AutoIt Français

#include <Inet.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\pierre\desktop\form1.kxf
$Form1_1 = GUICreate("Form1", 468, 218, 192, 124)
$lip_serveur = GUICtrlCreateInput(@IPAddress1, 48, 64, 321, 21)
$lmsg = GUICtrlCreateInput("Msg", 48, 40, 321, 21)

$Button1 = GUICtrlCreateButton("evoie", 160, 104, 129, 57, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$ip=_GetIP()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$ip_serveur=GUICtrlRead($lip_serveur)
$msg=GUICtrlRead($lmsg)
Local $SocketEnvoi , $msg , $port=16523
if @error Then
MsgBox(4112,"Erreur","Il ya eu une erreur :" &@error)

TCPStartup()
Else
if @error Then
MsgBox(4112,"Erreur","Une erreur s'est produite")
Exit
EndIf
$SocketEnvoi = TCPConnect($ip_serveur,$port)
TCPSend($SocketEnvoi, $ip&"\"&$msg)
if @error Then
MsgBox(4112,"Erreur","Le paquet n'a pas pu etre envoyer!")
EndIf
EndIf

EndSwitch
WEnd

#include <GUIConstantsEx.au3>

$ip_serveur = InputBox("Adresse IP","IP du serveur",@IPAddress1)

$port = 16523
$bloc_text = GUICreate("Mon Serveur", 300, 200)
$edit = GUICtrlCreateEdit("", 10, 10, 280, 180)
GUISetState()
while 1
TCPStartup()
$MainSocket = TCPlisten($ip_serveur,$port,10000)
$Socket_receptrice = -1
do
$Socket_receptrice = TCPAccept($MainSocket)
$msg = GUIGetMsg()
if $msg = $GUI_EVENT_CLOSE then Exit

until $Socket_receptrice <> -1


$msg = GUIGetMsg()

if $msg = $GUI_EVENT_CLOSE then Exit
$data=TCPRecv($Socket_receptrice,4096)

$message = StringSplit($data,"\")

If $message <> "" then
if $message[2]="google" Then
ShellExecute("http://www.google.fr/")
GUICtrlSetData(-1,$message[1]&">"&$message[2]& @CRLF &GUIctrlRead($edit))
TCPShutdown()
Else
GUICtrlSetData(-1,$message[1]&">"&$message[2]& @CRLF &GUIctrlRead($edit))
TCPShutdown()
endIF
endIF
TCPShutdown()
WEnd