Func SocketToIP($SHOCKET)
Local $sockaddr = DLLStructCreate("short;ushort;uint;char[8]")
Local $aRet = DLLCall("Ws2_32.dll","int","getpeername","int",$SHOCKET, _
"ptr",DLLStructGetPtr($sockaddr),"int*",DLLStructGetSize($sockaddr))
If Not @error And $aRet[0] = 0 Then
$aRet = DLLCall("Ws2_32.dll","str","inet_ntoa","int",DLLStructGetData($sockaddr,3))
If Not @error Then $aRet = $aRet[0]
Else
$aRet = 0
EndIf
$sockaddr = 0
Return $aRet
EndFunc
Wer auch immer diese Funktion geschrieben hat, er möge mir für die fehlende Erwähnung seines Namens verzeihen. 
Wie der Name und der geforderte Parameter der Funktion schon sagt:
SocketToIp nimmt einen Socket, und gibt dir eine IP. Dafür solltest du ihm allerdings schon auch den Socket gönnen, zu dem du die IP wissen willst....
$Client1_IP = SocketToIp( $Client1_Socket );
Sozusagen.
Der Socket mit der Verbindung ist $con. Dein Ansatz ist übrigens nicht sinnvoll. Die Antwort sollte über die gleiche Verbindung gesendet werden, über die auch die Anfrage empfangen wurde.
Schau dir am besten mal Client und Server in der Hilfe zu TCP... an.
Da könnten aber sehr leicht die Firewalls dazwischenfunken. Wenn es nicht nötig ist, spezielle Verbindungen aufzubauen würde ich deshalb möglichst vorhandene Verbindungen nutzen. Falls das für dich aber kein Problem ist, dann mach ruhig weiter.
