TCPRecv liefert komische Zeichen

Maxoo

Hallo zusammen,

ich habe hier im Büro ein Gerät, mit dem ich regelmäßig per Telnet "reden" muss. Einiges davon möchte ich automatisieren und bin deshalb vor einiger Zeit auf AutoIt gestoßen.
Leider stehe ich schon am Anfang auf dem Schlauch. Mit TCPRecv empfange ich nur kryptische Zeichen wie diese hier: ÿýÿý ÿý#ÿý'ÿý$.
Kennt jemand das Problem und kann mir dabei helfen, es zu lösen?

Viele Grüße,
Max

Lottich

vielleicht hilft dir BinaryToString() weiter?!
Ohne ein Beispielscript (im Idealfall ein bei uns ausführbares) ist alles nur

**Andy**

Zitat von Maxoo

Mit TCPRecv empfange ich nur kryptische Zeichen wie diese hier: ÿýÿý ÿý#ÿý'ÿý$.

Naja, was steht denn zur Rückgabe von TCPRecv in der Hilfe...nicht bemühen, ich habs schon...

Zitat von AutoIt-Hilfe zu TCPRecv

Return Value

Success: the binary/string sent by the connected socket.

und aus der deutschen Hilfe

Zitat von deutsche Hilfe zu TCPRecv

Rückgabewert

Erfolg: Gibt, gesendet vom verbundenen "Socket", binär oder String zurück.

Maxoo

Entschuldigt, ich habe vergessen zu erwähnen, dass mit BinaryToString() dasselbe rauskommt.

Mein Beispiel ist dieses hier:

AutoIt

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>


TCPStartup ()
$sockettarget = TCPConnect("172.31.1.241","23")
$message=TCPRecv($sockettarget,65535)
MsgBox (0,"bla",$message)
$string=BinaryToString($message)
MsgBox (0,"blaa",$string)

Aber auch folgendes, was ich hier irgendwo aus dem Forum (weiß leider nicht mehr den genauen Thread) habe, bringt dasselbe Ergebnis:

AutoIt

#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
TCPStartup()
GUICreate("Telnet Client", 500, 390, -1, -1, BitOr($WS_THICKFRAME, $WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU) )
$EDIT = GUICtrlCreateEdit("", 10, 10, 480, 330, $GUI_SS_DEFAULT_EDIT + $ES_READONLY)
GUICtrlSetFont(-1, 10, 0, -1, "Courier New")
GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
$INPUT = GUICtrlCreateInput("", 10, 360, 480, 20)
GUICtrlSetResizing(-1, 582)
$HOSTI = InputBox("Telnet Client", "Please enter the name of the host you want to connect to", "172.31.1.241")
$PORTI = InputBox("Telnet Client", "Please enter the port of the host", "23")
GUISetState()
ControlSend("Telnet Client", "", $EDIT, "{TAB}")
$HOST = TCPNameToIP($HOSTI)
$CONECTION = TCPConnect($HOST, $PORTI)
If @error Then Exit
While 1
	$MSG = GUIGetMsg()
	If $MSG = $GUI_EVENT_CLOSE And (MsgBox(36, "AutoIt Telnet", "Sitzung wirklich beenden?") = 6) Then Exit
	$RECV = TCPRecv($CONECTION, 2048)
	If $RECV <> "" Then
		$RECV = StringReplace($RECV, @LF, @CRLF)
		$RECV = StringReplace($RECV, @CRLF & @CR, @CRLF)
		$TEXT = GUICtrlRead($EDIT)
		GUICtrlSetData($EDIT, $TEXT & $RECV)
		GUICtrlSendMsg($EDIT, 183, 0, 0)
	EndIf
	If $MSG = $INPUT Then
		$TEXT = GUICtrlRead($EDIT)
		$EINGABE = GUICtrlRead($INPUT)
		GUICtrlSetData($EDIT, $TEXT & $EINGABE & @CRLF)
		GUICtrlSetData($INPUT, "")
		TCPSend($CONECTION, $EINGABE & Chr(10))
		If @error Then
			MsgBox(0, "AutoIt Telnet", "Error - Wird beendet")
			Exit
		EndIf
		GUICtrlSendMsg($EDIT, 183, 0, 0)
	EndIf
WEnd
Func ONAUTOITEXIT()
	TCPCloseSocket($CONECTION)
	TCPShutdown()
EndFunc

Alles anzeigen

Lottich

Dann versuch mal folgendes:

Tausche aus deinem kleinen Beispielscript die Zeile 6 gegen $message=TCPRecv($sockettarget,65535, 1) aus.
Das könnte bereits die Lösung sein. Der Flag 1 gibt an, dass die Daten binär empfangen werden sollen.

Maxoo

Das gibt dann ohne BinaryToString() dies hier: 0xFFFD18FFFD20FFFD23FFFD27FFFD24
Und mit BinaryToString() wieder dies: ÿýÿý ÿý#ÿý'ÿý$

Habe dann noch mit den Flags von BinaryToString() rumgespielt. Ergebnis: nichts oder �� #��'��$

**Kanashius**

Hmmm... Kommunizierst du zufälligerweise mit einem Chinesischen Client?
Dann könnten sich eventuell Probleme mit dem Zeichensatz ergeben. (UTF8,ANSI,...)

**autoBert**

Zitat von Lottich

Das könnte bereits die Lösung sein. Der Flag 1 gibt an, dass die Daten binär empfangen werden sollen.

und wenn es dann immer noch nicht klappt: BinaryToString kann mit 4 verschiedenen Flagwerten aufgerufen werden:

Zitat von Helpfile

Parameters

expression An expression to convert into a string.
flag [optional] Changes how the binary data is converted:
$SB_ANSI (1) = binary data is ANSI (default)
$SB_UTF16LE (2) = binary data is UTF16 Little Endian
$SB_UTF16BE (3) = binary data is UTF16 Big Endian
$SB_UTF8 (4) = binary data is UTF8

Constants are defined in StringConstants.au3.

Alles anzeigen

Homer J. S.

...ich würde den Verkehr mal mit WireShark mitlesen (in Hex) und schauen wo das Problem her kommt.

Gruß
Homer J. S.

**autoBert**

Homer J. S. wenn's hier einen LikeButton gäbe würde ich in klicken. Fühl dich also geehrt und füge ein Sir oder einen sonstigen Titel (außer Kaiser, König) vor deinem Namen ein!

Maxoo

Zitat von Kanashius

Hmmm... Kommunizierst du zufälligerweise mit einem Chinesischen Client?
Dann könnten sich eventuell Probleme mit dem Zeichensatz ergeben. (UTF8,ANSI,...)

Das ist eine Hardware auf der QNX läuft. Bisher gehe ich mit PuTTY drauf und habe damit keine Probleme.

Zitat von autoBert

und wenn es dann immer noch nicht klappt: BinaryToString kann mit 4 verschiedenen Flagwerten aufgerufen werden:

Vielen Dank für den Tipp, damit habe ich auch schon rumgespielt (siehe oben). Leider hat es auch nicht geklappt.

Zitat von Homer J. S.

...ich würde den Verkehr mal mit WireShark mitlesen (in Hex) und schauen wo das Problem her kommt.

Vielen Dank für die Idee. Ich habe es gerade installiert und gucke erstmal wie ein Schwein ins Uhrwerk. Werde mich wohl etwas intensiver mit beschäftigen müssen. Oder ich mache das Ganze doch weiterhin händisch per PuTTY.

Homer J. S.

Zitat von autoBert

Homer J. S. wenn's hier einen LikeButton gäbe würde ich in klicken. Fühl dich also geehrt und füge ein Sir oder einen sonstigen Titel (außer Kaiser, König) vor deinem Namen ein!

Danke für die Lorbeeren :). Hoffe das war nicht ironisch gemeint?

Maxoo: Vielleicht ist es für dich etwas einfacher das Netzwerk mit Network Monitor 3.4 zu sniffen.
=> Link: https://www.microsoft.com/en-us/download…ls.aspx?id=4865

Gruß
Sir Homer J. S.

expression	An expression to convert into a string.
flag	[optional] Changes how the binary data is converted: $SB_ANSI (1) = binary data is ANSI (default) $SB_UTF16LE (2) = binary data is UTF16 Little Endian $SB_UTF16BE (3) = binary data is UTF16 Big Endian $SB_UTF8 (4) = binary data is UTF8 Constants are defined in StringConstants.au3.