Beiträge von 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.

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 ���� ��#��'��$

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

Mein Beispiel ist dieses hier:

#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:

#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

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