Hallo Com.
Ich möchte einen command an einen server senden via TCP
wenn ich dies mache dann bekomme ich alerdings einen fehler "10061" also das der server meine "anfrage" verweigert wie kann ich das beheben oder gibt es noch eine andere möglichkeit einen command an einen server zu senden ?
Hier mein Code:
Spoiler anzeigen
Example()
[/autoit] [autoit][/autoit] [autoit]Func Example()
; Richte einige wiederverwendbare Informationen ein.
;--------------------------
Local $ConnectedSocket, $szData
Local $szIPADDRESS = "************"
Local $nPORT = "*******"
; Startet den TCP Service
;==============================================
TCPStartup()
; Initialisiert eine Variable, um eine Verbindung anzugeben.
;==============================================
Dim $ConnectedSocket = -1
; Versucht, zu einem Server mit der IP und dem PORT zu verbinden.
;=======================================================
$ConnectedSocket = TCPConnect($szIPADDRESS, $nPORT)
; Falls es einen Fehler gibt, wird er angezeigt
If @error Then
MsgBox(4112, "Fehler", "TCP-Connect schlug mit folgendem WSA-Fehler fehl: " & @error)
; Wenn es keinen Fehler gibt, dann erscheint wiederholt eine Inputbox zur Eingabe von Daten, die zum Server gesendet werden sollen.
Else
; Fragt fortwährend nach Daten, die zum Server gesendet werden sollen.
While 1
; InputBox für die zu versendenden Daten
$szData = "connectfp -f"
; Wenn die Inputbox geschlossen wird oder leer bleibt, wird die Schleife beendet.
If @error Or $szData = "" Then ExitLoop
; Wir sollten Daten in $szData haben... Lasst uns versuchen, sie durch unseren verbundenen Socket zu versenden.
TCPSend($ConnectedSocket, $szData)
; Wenn das Senden mit @error fehlgeschlagen ist, dann ist der Socket getrennt.
;----------------------------------------------------------------
If @error Then ExitLoop
WEnd
EndIf
EndFunc ;==>Example