Hallo,
kann keine Verbindung zu meinem Server herstellen via TCPConnect($IP, $Port) (siehe vorheriges Thema)
rückgabewert = -1
Fehlercode @error = 0
hat jemand ne idee???
Spoiler anzeigen
dim $aPingAll[1]
$aPingAll[0] = "192.168.178.36"
_ArrayDisplay($aPingAll, "ipadress nur 2.")
$Port = 31758
$ConnectedSocket = TCPConnect($aPingAll[0], $Port)
MsgBox("","Linie 25 $ConnectedSocket = ",$aPingAll[0] &"_"& $Port )
If $ConnectedSocket = -1 Then
MsgBox(16, "Error", "Es ist bei dem Verbindungsversuch ein Fehler aufgetreten, vermutlich ist kein Server gestartet!"&@error&" &"&$ConnectedSocket)
Exit
Else
MsgBox("", "Erfolg", "$ConnectedSocket: " & $ConnectedSocket)
EndIf
komischer weise funktionierts mit dem script
Spoiler anzeigen
#include <INet.au3>
$IP = InputBox("INC", "Die IP des Servers", _GetIP())
$Port = 31758
MsgBox("", "Linie 25 $ConnectedSocket = ", $IP & "_" & $Port)
$ConnectedSocket = TCPConnect($IP, $Port)
If $ConnectedSocket = -1 Then
MsgBox(16, "Error", "Es ist bei dem Verbindungsversuch ein Fehler aufgetreten, vermutlich ist kein Server gestartet!")
Exit
EndIf
HotKeySet("^s", "_Senden")
While 1
$Empfang = TCPRecv($ConnectedSocket, 9999)
If $Empfang <> "" Then
MsgBox(0, "Nachricht", $Empfang)
EndIf
WEnd
Func _Senden()
$Nachricht = InputBox("Nachricht senden", "Schreibe deine Nachricht")
If $Nachricht <> "" Then
TCPSend($ConnectedSocket, $Nachricht)
EndIf
EndFunc ;==>_Senden
Siehe aber keinen Unterschied zwischen beiden (ich steh voll auf der Leitung)
Bitte um Hilfe --Danke!!
