#include <guiconstants.au3>
HotKeySet("{F1}", "help")
$Form1 = GUICreate("Ping v1.0 - Jacopo Ricci", 359, 197, 193, 125)
GUISetBkColor(0x000000)
$Input1 = GUICtrlCreateInput("", 8, 32, 345, 21)
$Label1 = GUICtrlCreateLabel("Host", 152, 8, 30, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Button1 = GUICtrlCreateButton("Ping", 136, 64, 73, 17, 0)
$Group1 = GUICtrlCreateGroup("Risposta", 8, 96, 337, 89)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label2 = GUICtrlCreateLabel("Premi F1 per la guida e l'about", 16, 112, 320, 70)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$host = GUICtrlRead($Input1)
$var = Ping($host, 200)
If $var Then
MsgBox(0, "Ok", "Ping eseguito correttamente!"&@CRLF&"I risultati verrano scritti nell'apposito spazio")
Else
MsgBox(0, "Error", @error)
EndIf
GUICtrlSetData($Label2, $var)
EndSwitch
WEnd
Func help()
MsgBox(0, "Help/About", "Created by Jacopo Ricci"&@CRLF&"
[email protected](msn)"&@CRLF&"jacoporicci94(skype)"&@CRLF&"Compilato con Windows XP SP2"&@CRLF&"16/05/2008")
EndFunc