Hab da mal einen Chat gebastelt wo jeder Client und Server gleichzeitig ist...
vll hilft dir das weiter:
#include <GUIConstantsEx.au3>
[/autoit][autoit][/autoit][autoit][/autoit][autoit];IP, Port und Nick von Client
$ip = "192.168.178.23"
$port = 3000
$nick = ""
;IP, Port und Nick von Server
$ip2 = "192.168.178.21"
$port2 = 3000
$nick2 = ""
TCPStartUp ()
$server = TCPListen($ip,$port,1)
$form = GUICreate("Chat", 625, 445, 192, 124)
$edit = GUICtrlCreateEdit("", 56, 16, 505, 265)
$input = GUICtrlCreateInput("", 64, 336, 401, 21)
$sender = GUICtrlCreateButton("Send", 488, 336, 97, 25, 0)
GUISetState(@SW_SHOW)
ControlClick("", "", $edit)
Send("Connection von " & $ip & " zu " & $ip2 & " wird aufgebaut...")
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $sender
$client2 = TCPConnect ($ip2,$port2)
TCPSend ($client2, GUICtrlRead($input))
ControlClick ("","",$edit)
Send("[" & @HOUR & ":" & @MIN & ":" & @SEC & "] " & $nick & ": " & GUICtrlRead($input),1)
Send(" {Enter}",0)
EndSwitch
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]$client = TCPAccept($server)
If $client >= 0 Then
Do
$message = TCPRecv($client,2048)
Until $message <> ""
ControlClick ("","",$edit)
Send("[" & @HOUR & ":" & @MIN & ":" & @SEC & "] " & $nick2 & ": " & $message,1)
Send(" {Enter}",0)
EndIf
WEnd
TCPShutdown()
[/autoit]