На моём 3G модеме в ноуте есть встроенный GPS навигатор. Чтобы активировать трафик, нужно отослать команду AT_OGPS=2 на COM-порт устройства. В мануале это делается с помощью гипертерминала. При этом, после перезагрузки всё сбрасывается (AT_OGPS=0). Каждый раз заходить в гипертерминал и прописывать команду для моей жены слишком сложно и неудобно (как и для любого человека).
Нашел в интернете программу для Powershell, которая делает это:
Param ($modus)
if (($modus -eq "on") -or ($modus -eq "off")) {
$port = new-Object System.IO.Ports.SerialPort COM6
$port.Open()
if ($modus -eq "on") {
$port.Write("AT_OGPS = 2 `r `n")
}
else {
$port.Write("AT_OGPS = 0 `r `n")
}
$port.Close()
}
Как это сделать на Delphi или Pascal? Было бы очень хорошо просто иметь такую программу на панели задач, нажав на которую GPS трафик включается или выключается.
Помогите!
Размещение рекламы