#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Local $hGUI = GUICreate("Test ping", 400, 400)

Local $idping= GUICtrlCreateButton("Пропинговать сайт", 100, 300, 185, 50)
GUISetState(@SW_SHOW, $hGUI)
Local $testping=GUICtrlCreateInput("www.google.com", 10, 35, 300, 20)
Local $test = GUICtrlCreateLabel("Состояние пинга", 10,110,200,150)
While 1
Switch GUIGetMsg()
Case   $idping 

Local $site = GUICtrlRead($testping)
$ping = Ping($site)

If $ping Then 
GUICtrlSetData($test,"Состояние пинга" & @CRLF & "  В онлайне, задержка ответа: " & $ping)
Else
GUICtrlSetData($test, "Состояние пинга"& @CRLF & "Произошла ошибка, @error=" & @error)
EndIf

Case $GUI_EVENT_CLOSE
ExitLoop

EndSwitch
WEnd