Chat

TCPStartup()
#NoTrayIcon
#include <guiconstants.au3>
#include <guiedit.au3>
$ascolta=TCPListen(@IPAddress1, 9999)
While 1
$connessione=TCPAccept($ascolta)
If $connessione <> -1 Then ExitLoop
WEnd
;Gui
GUICreate("Lamer",300,240)
$conversazione=GUICtrlCreateEdit("",0,0,300,200)
$conversazione1=""
$messaggio=GUICtrlCreateInput("",10,210,200,20)
$invia=GUICtrlCreateButton("Invia",215,210,80,20)
GUISetState(@SW_HIDE)


While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE

;Invia messaggio
Case $invia
$conversazione1=GUICtrlRead($conversazione)&"Lamer: "&GUICtrlRead($messaggio)&@CRLF
GUICtrlSetData($conversazione,$conversazione1)
TCPSend($connessione,GUICtrlRead($messaggio))
GUICtrlSetData($messaggio,"")
EndSwitch

;Ricevi
$ricevi=TCPRecv($connessione,10001)

;Ricevi messaggio
If $ricevi = "" Then
EndIf
Else
If $ricevi <> "" Then
_GUICTRLEDIT_APPENDTEXT($conversazione,"Hacker: "&$ricevi&@CRLF)
EndIf
EndIf
WEnd

TCPStartup()
#include <guiconstants.au3>
#include <guiedit.au3>
$ip=InputBox("Chat","Inserisci l'ip:",@IPAddress1,"",50,50)
If $ip = "" Then Exit
$connessione=TCPConnect($ip,9999)
If $connessione = -1 Then
MsgBox(16,"Errore","Errore nella connessione",5)
Exit
EndIf
GUICreate("Hacker",300,300)
$conversazione = GUICtrlCreateEdit("",0,0,300,200)
$conversazione1 = ""
$messaggio=GUICtrlCreateInput("",10,210,200,20)
$invia=GUICtrlCreateButton("Invia",215,210,80,20)
GUISetState()
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
TCPSend($connessione,"exit")
Exit

;Invia
Case $invia
$conversazione1=GUICtrlRead($conversazione)&"Hacker: "&GUICtrlRead($messaggio)&@CRLF
GUICtrlSetData($conversazione,$conversazione1)
TCPSend($connessione,GUICtrlRead($messaggio))
GUICtrlSetData($messaggio,"")
EndSwitch

;Ricevi
$ricevi=TCPRecv($connessione,10001)

;Ricevi messaggio
If $ricevi <> "" Then
_GUICTRLEDIT_APPENDTEXT($conversazione,"Lamer: "&$ricevi&@CRLF)
EndIf
WEnd