Naja, du hast unnötige Variablen / Abfragen, Platzverbrauch.
Warum nicht aus
Code:
Global $iPort,$iSocket1, $iSocket
$iPort= "XXXX"
$iSocket1 = -1
$iSocket = -1
einfach
Code:
Global $iPort = "XXXX", $iSocket1 = -1, $iSocket = -1
machen, oder aus
Code:
if TCPSend($iSocket1,"x"&StringReplace(GUICtrlRead($InputLabel),Chr(1),"")&Chr(1)) == 0
einfach
Code:
If Not TCPSend($iSocket, "x" & StringReplace(GUICtrlRead($InputLabel), Chr(1), "") & Chr(1)) Then ;...
