Клиент-сервер помогите с примером.

#include "TCP.au3"
 
 ToolTip("CLIENT: Connecting...",10,10)
 
 $hClient = _TCP_Client_Create(@IPAddress1, 88); Create the client. Which will connect to the local ip address on port 88
 
 _TCP_RegisterEvent($hClient, $TCP_RECEIVE, "Received"); Function "Received" will get called when something is received
 _TCP_RegisterEvent($hClient, $TCP_CONNECT, "Connected"); And func "Connected" will get called when the client is connected.
 _TCP_RegisterEvent($hClient, $TCP_DISCONNECT, "Disconnected"); And "Disconnected" will get called when the server disconnects us, or when the connection is lost.
 
 While 1
 ; just to keep the program running
 WEnd
 
 Func Connected($hSocket, $iError); We registered this (you see?), When we're connected (or not) this function will be called.
     
     If not $iError Then; If there is no error...
         ToolTip("CLIENT: Connected!",10,10); ... we're connected.
     Else; ,else...
         ToolTip("CLIENT: Could not connect. Are you sure the server is running?",10,10); ... we aren't.
     EndIf
     
 EndFunc
 
 
 Func Received($hSocket, $sReceived, $iError); And we also registered this! Our homemade do-it-yourself function gets called when something is received.
     ToolTip("CLIENT: We received this: "& $sReceived, 10,10); (and we'll display it)
 EndFunc
 
 Func Disconnected($hSocket, $iError); Our disconnect function. Notice that all functions should have an $iError parameter.
     ToolTip("CLIENT: Connection closed or lost.", 10,10)
 EndFunc

#include "TCP.au3"
GUICtrlCreateListViewItem("asas|saasas", $List1)
 
$hServer = _TCP_Server_Create(88, @IPAddress1); A server. Tadaa!
 
_TCP_RegisterEvent($hServer, $TCP_NEWCLIENT, "NewClient"); Whooooo! Now, this function (NewClient) get's called when a new client connects to the server.
_TCP_RegisterEvent($hServer, $TCP_DISCONNECT, "Disconnect"); And this,... this will get called when a client disconnects.
 
 
 
ToolTip("SERVER: Creating server...",10,30)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
 
    EndSwitch
WEnd
 
 
 Func NewClient($hSocket); Yo, check this out! It's a $iError parameter! (In case you didn't noticed: It's in every function)
 
 ToolTip("SERVER: New client connected."&@CRLF&"Sending this: Bleh!",10,30)
 
 _TCP_Send($hSocket, "Bleh!"); Sending: "Bleh!" to the new client. (Yes, that's right: $hSocket is the socket of the new client.)
 
 EndFunc
 
 Func Disconnect($hSocket); Damn, we lost a client. Time of death: @Hour & @Min & @Sec :P
 
 ToolTip("SERVER: Client disconnected.",10,30); Placing a tooltip right under the tooltips of the client.
 
 EndFunc