hotkeyset("{F1}","Esci") Msgbox(64,"Istruzioni","Premi f1 per uscire.. Il tuo ip e' " & @ipaddress1) Func Esci() Exit EndFunc TCPStartup() TCPConnect(@IPAddress1,4003) Global $Listen = TCPListen(@IPAddress1, 4003) Global $Socket = TCPAccept($Listen) while 1 filewrite("Log_packets.txt","Pacchetto criptato ricevuto alle ore: " & @hour & ":" & @MIN & ":" & "{" & TCPRecv($Socket,255) & @CRLF & "}" & @CRLF) WEnd TCPCloseSocket() TCPShutdown()