AutoIt Français

Code : Tout sélectionner

;SERVER!! Start Me First !!!!!!!!!!!!!!!
$g_IP = "127.0.0.1"

; Start The TCP Services
;==============================================
TCPStartUp()

; Create a Listening "SOCKET"
;==============================================
$MainSocket = TCPListen($g_IP,1456,100)
If $MainSocket = -1 Then Exit

;  look for client connection
;--------------------
While 1
$ConnectedSocket = TCPAccept( $MainSocket)
If $ConnectedSocket >= 0 Then
MsgBox(0, '', 'Client Connecté')
    exitloop
EndIf
Wend


While 1
$recv = tcprecv($ConnectedSocket, 9999) ; Receptions des données
if $recv = -1 Then
Msgbox(0, 'Error', 'Client disconnect')
Exit
endif
$recu = StringSplit ($recv,"/")

If $recu[1] = "msg" Then
    Msgbox (64,"Message recu !!","Vous vener de recevoir le message suivant de la part de " & $recu[2] & " : " & $recu[3])
    TCPSend ($ConnectedSocket,"ok")
EndIf
WEnd


 

Code : Tout sélectionner

While 1
TCPStartup()
$Connect = TCPConnect ("192.168.1.20",1456)
If @error Then MsgBox (64,"",$Connect)

$pseudo = InputBox ("Messenger local by drave","Veuillez entrer un pseudo")
$toSend = InputBox ("Messenger local by Drave","Veuillez entrer le message a faire passer : ")
TCPSend($Connect, "msg/" & $pseudo&"/" &$toSend)
While 1
    $recv = TCPRecv($Connect,5)
    If $recv = "ok" Then ExitLoop
    Sleep(1000)
WEnd

WEnd