PCCar.ru - Ваш автомобильный компьютер

- Навигация (http://pccar.ru/forumdisplay.php?f=13)

- - Franson GPSGate 2.6 (http://pccar.ru/showthread.php?t=21042)

Да, забыл написать про звук. Поправил сообщение.

Для GPSBridge тоже можно сделать нечто подобное. Как-нибудь посмотрю...

Спасибо, хотел заценить .... компилировать то чем? не ,яб нашел кконечно ,но там же черт ногу сломит ,буду признателен.

Цитата:

Сообщение от mendisabal (Сообщение 335194)

почту в личку давай или скажи номер Вирт порта, скомпилирую файл

Вот код, из файла GpsGateWatcher.au3 для WIN 8.1 x 64 бит (вирт порт № 6):

Код:

#pragma compile(Icon, "C:\Program Files (x86)\AutoIt3\Icons\au3script_v9.ico")

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****

#AutoIt3Wrapper_Compression=4

#AutoIt3Wrapper_UseUpx=y

#AutoIt3Wrapper_Run_AU3Check=n

#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****



#include 

#include 

#include 

#include 



; Настройки COM-порта... себе установил порт 6

$iPort   = 6

$iBaud   = 115200

$iBits   = 8

$iParity = 0

$iStop   = 1

$iFlow   = 0



$msgError = ''



While (True)



        ; Запускаем GpsGate, если не запущена

        If (Not ProcessExists("GpsGateXP.exe")) Then

                ShellExecute("C:\Program Files (x86)\Franson\GpsGate 2.0\GpsGateXP.exe")

                Sleep(500)

        EndIf



        ; Открываем порт

        $portStatus = _CommSetPort($iPort, $msgError, $iBaud, $iBits, $iParity, $iStop, $iFlow)

        If ($portStatus <> 1) Then

                MsgBox($MB_SYSTEMMODAL, 'Ошибка', 'Ошибка открытия порта COM' & $iPort)

                Exit

        EndIf



        $LastValidDateTime = _NowCalc()



        While (True)

                $sInString = _CommGetString()

                If (StringLen($sInString)) Then

                        $LastValidDateTime = _NowCalc()

                Else

                        $iDiff = _DateDiff('s', $LastValidDateTime, _NowCalc())

                        If ($iDiff > 3) Then

                                ExitLoop

                        EndIf

                EndIf

                Sleep(1000)

        WEnd



        ; Звук потери сигнала GPS

        SoundPlay('C:\Windows\Media\Windows Hardware Fail.wav')



        ; Если GpsGate аварийно завершилась, то будет ошибка при закрытии порта

        ; Поэтому проверяем наличие запущенного процесса

        If ProcessExists("GpsGateXP.exe") Then

                _CommClosePort()

        EndIf



        WinClose("Franson GpsGate")

        Sleep(250)



WEnd

а вот скомпилированный файл
Вложение 40755
, его надо положить в разархивированную папку со скриптом от LEXX09, после запуска скрипта появляется дополнительный файл..
Вложение 40727
, где 1 - скомпилированный файл (при создании простой задачи в планировщике задач, к нему указать путь);
2 - сам скрипт не компилированный;
3 - результат запуска скомпилированного файла..
Судя по всему, при создании задачи в планировщике задач на автозапуск данного скрипта, задачу на автозапуск гейта (если она уже была создана ранее нужно отключить), тк этот скрипт, по заявлению разработчика, гейт будет запускать... Осталось все это только проверить..

Цитата:

Сообщение от mendisabal (Сообщение 335194)

Скачиваешь и устанавливаешь Autoit. Потом скачиваешь и устанавливаешь SciTE4AutoIt3.

Целый день катаюсь , вроде все работает.пока не проснется. После сна вылазит ошибка не найден порт 6 (тот Вирт порт, который я выбрал в гейте согласно инструкции), нажимаю закрыть и все скрипт закрывается.

Цитата:

Сообщение от Lexx09 (Сообщение 335207)

Скачиваешь и устанавливаешь Autoit. Потом скачиваешь и устанавливаешь SciTE4AutoIt3.

спасибо отпишусь .

LEXX09, после сна вылазит ошибка, опробовал на домашнем ноуте, то же самое, вот смотри
Вложение 40739
после нажатия закрыть программу, скрипт закрывается
вот, что в папке скрипта
Вложение 40740

Попробовал в виртуальной машине - никаких ошибок при выходе из сна нет. Попозже попробую на реальной системе.

PS: Эта строка неправильная:

Цитата:

Сообщение от Krysanov (Сообщение 335201)

SoundPlay('C:\Windows\Media\Windows Hardware Fail.wav - отказ оборудования.wav')

Должно быть так:

Код:

SoundPlay('C:\Windows\Media\Windows Hardware Fail.wav')

Цитата:

Сообщение от Lexx09 (Сообщение 335327)

Попробовал в виртуальной машине - никаких ошибок при выходе из сна нет. Попозже попробую на реальной системе.

PS: Эта строка неправильная:

Должно быть так:

Код:

SoundPlay('C:\Windows\Media\Windows Hardware Fail.wav')

Это да, я у себя уже изменил, а здесь забыл..