AutoIt Français

Code : Tout sélectionner

$g_IP = @IPAddress1
$port="81"

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

; Connect to a Listening "SOCKET"
;==============================================
$socket = TCPListen( $g_IP,$port,999)
While 1
    $tempsocket = TCPAccept($socket)
    If $tempsocket >= 0 Then
        MsgBox(0,"client","Server connecté")
        ExitLoop
    EndIf
WEnd
while 1
$szData = InputBox("Data for Server", @LF & @LF & "Enter data to transmit to the SERVER:")
if $szData="" then exit
TCPSend($tempsocket,$szData)
WEnd
 

Code : Tout sélectionner

$noip="manzarek2.no-ip.biz"
$port="81"

;~ start connection
TCPStartup()

;~ create socket
$ip=TCPNameToIP($noip)
$socket=TCPConnect($ip,$port)


$recv = TCPRecv($socket, 2048)
While 1
$recv=TCPRecv($socket,2048)
if $recv<>"" Then
MsgBox(0,"server",$recv)
EndIf
WEnd