Добрый день. Есть комп к которому постоянно подключено оборудование по сети. Это оборудование периодически отваливается. Я хочу постоянно его пинговать и в случает отвала оповещать оператора сообщение. Помогите, почему не работает?
Код:
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
OnAutoItExitRegister('CoordSave')
Local $Button_1, $sSettings = @ScriptDir & '\setting.ini'
$hGUI = GUICreate("PixelSearch", 200, 300)
GUICtrlCreateLabel(' Left', 10, 10, 180, 20)
$hLeft = GUICtrlCreateInput(IniRead($sSettings, 'main', 'left', ''), 10, 30, 180, 20)
GUISetState(@SW_SHOW, $hGUI)
$Button_1 = GUICtrlCreateButton("Ок", 40, 260, 120)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $Button_1
GUISetState(@SW_HIDE)
EndSwitch
Pixel_Search()
WEnd
Func Pixel_Search()
Ping("GUICtrlRead($hLeft)", 250)
If Not @error Then
SoundSetWaveVolume(100) ; устанавливает громкость
SoundPlay(@WindowsDir & "\media\tada.wav", 1)
MsgBox(16 + 262144, "Сообщение", "Ошибка записи!", 1) ; Действие
EndIf
Sleep(100)
EndFunc
Func CoordSave()
IniWrite($sSettings, 'main', 'left', GUICtrlRead($hLeft))
EndFunc