Ciao so che e uno skifo e il mio primo lavoro commenti e critiche.
#include <guiconstants.au3>
$gui = guicreate('Dos By Cyborg50',300,200)
$Input1 = GUICtrlCreateInput("Inserisci Ip", 64, 48, 161, 21)
$Distruggi = GUICtrlCreateButton("Distruggi", 64, 96, 81, 49, 0)
$Stop = GUICtrlCreateButton("Exit", 152, 96, 75, 49, 0)
guisetstate ()
while 1
switch guigetmsg()
case $GUI_EVENT_CLOSE
Exit
case $Distruggi
msgbox(4096,"Distruzione","Ok ora provvedero alla distruzione di questo server")
;;This is the UDP Client
;;Start the server first
; Start The UDP Services
;==============================================
UDPStartup()
; Open a "SOCKET"
;==============================================
$socket = UDPOpen("$Input1", 65532)
If @error <> 0 Then Exit
$n=0
While 1
$n = $n + 1
$status = UDPSend($socket, "Message #" & $n)
If $status = 0 then
MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
Exit
EndIf
WEnd
case $Stop
Exit
EndSwitch
wend