[-TRM-]

$Exit=0
Do
$var = Ping("www.ya.ru",250)
If $var Then ; also possible: If @error = 0 Then ...
; Msgbox(0,"Статус интернета","Online, время возврата ответа в миллисекундах : " & $var, 5)
Else
Msgbox(0,"Статус интернета","Ошибка : " & @error & " ПЕРЕЗАПУСК МОДЕМА...", 5)
If FileExists(@ScriptDir & "\modem.exe") Then RunWait(@ScriptDir & "\modem.exe")
EndIf
Sleep(30000)
Until $Exit=1