AutoIt Français

Code : Tout sélectionner

TCPStartup()

Call("main", $CmdLine[0])

Func main($argc)
    Local $sock_clients[20]
    Local $main_socket

    $main_socket = TCPListen("127.0.0.1", 24000)
    initTab($sock_clients)

    While 1
        $nbClient = UBound($sock_clients) - 1

        For $i = 0 To $nbClient
            If $sock_clients[$i] = -1 Then
                $sock_clients[$i] = TCPAccept($main_socket)
            Else
                $data = TCPRecv($sock_clients[$i], 512)
                If @error Then
                    $sock_clients[$i] = -1
                    ContinueLoop
                EndIf
                if ($data <> "") Then MsgBox(0, "Server:", "- Client : " & $i & @CRLF _
                         & "- Send: " & $data)
            EndIf
        Next

    WEnd

EndFunc   ;==>main


Func initTab(ByRef $arr_sock)
    Local $i = 0
    For $i = 0 to (UBound($arr_sock) - 1)
        $arr_sock[$i] = -1
    Next
EndFunc   ;==>initTab