Franson GPSGate 2.6

[Lexx09]

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

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

[mendisabal]

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

[Krysanov]

Сообщение от mendisabal

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

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

[Krysanov]

Вот код, из файла 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 <Array.au3>
#include <CommMG.au3>
#include <Date.au3>
#include <MsgBoxConstants.au3>

; Настройки 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

а вот скомпилированный файл
GpsGateWatcher.zip
, его надо положить в разархивированную папку со скриптом от LEXX09, после запуска скрипта появляется дополнительный файл..

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

[Lexx09]

Сообщение от mendisabal

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

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

[Krysanov]

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

[mendisabal]

Сообщение от Lexx09

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

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

[Krysanov]

LEXX09, после сна вылазит ошибка, опробовал на домашнем ноуте, то же самое, вот смотри

после нажатия закрыть программу, скрипт закрывается
вот, что в папке скрипта

[Lexx09]

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

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

Сообщение от Krysanov

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

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

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

[Krysanov]

Сообщение от Lexx09

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

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

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

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

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