[GUIDA] Connessioni tcp

TCPStartup() ;avviamo il servizio TCP

$ip=InputBox("Chat","Inserisci l'ip:",@IPAddress1,"",50,50) ;richiesta dell'ip
If $ip="" Then Exit
$porta=1234 ;porta di connessione

$socket=TCPConnect($ip,$porta) ;si connette al server specificato
If $socket=-1 Then ;se non si riesce a collegare ritorna un errore esce
MsgBox(16,"errore","errore nella connessione",5)
Exit
Else
MsgBox(0,"chat","Connesso con successo.")
Exit
EndIf