TCP

#include <Array.au3>
TCPStartup()
$MainSocket=TCPListen(@IpAddress1,28960)
Dim $Acc[1]
$Acc[0]=""
$AccAdd=-1
Do
$AccAdd=TCPAccept($MainSocket)
Until $AccAdd <> -1
_ArrayAdd($Acc,$AccAdd)
_ArrayDelete($Acc,0)
AdLibEnable("_Send",300000)
While 1
$Accept=TCPAccept($MainSocket)
If $Accept <> -1 Then
_ArrayAdd($Acc,$Accept)
EndIf
For $i=0 to Ubound($Acc,1)-1
$Recv=TCPRecv($Acc[$i],999999)
If @error Then
_ArrayDelete($Acc,$i)
ContinueLoop
EndIf
If $Recv <> "" Then
MsgBox(0,"test","success")
For $j=0 to $i-1
TCPSend($Acc[$j],$Recv)
Next
For $k=$i+1 to Ubound($Acc,1)-1
TCPSend($Acc[$k],$Recv)
Next
EndIf
Next
WEnd
Func _Send()
For $i=0 to Ubound($Acc,1)-1
TCPSend($Acc[$i],"ADMIN**"&"ADMIN ist online bitte pass auf was du sagst.")
Next
EndFunc