opoiknet
Новичок
- Сообщения
- 2
- Репутация
- 0
После запуска скрипта не срабатывает кнопка "закрыть"
нужен мониторинг нескольких IP
если поставить exitloop то опрос IP прекращается.
нужен мониторинг нескольких IP
если поставить exitloop то опрос IP прекращается.
Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 625, 443, 192, 124)
GUISetState(@SW_SHOW)
While 1
$var1 = Ping("192.168.0.1",500)
If $var1=1 Then
GUICtrlCreateLabel("ok", 24, 32, 108, 17)
Else
GUICtrlCreateLabel("no", 24, 32, 108, 17)
EndIf
$var2 = Ping("192.168.0.11",500)
If $var2=1 Then
GUICtrlCreateLabel("ok", 24, 62, 108, 17)
Else
GUICtrlCreateLabel("no", 24, 62, 108, 17)
EndIf
WEnd
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd