Hallo,
Super, es klappt! Habe ich vorher nicht gewusst, dass man bei Send Flags angeben kann.
Danke an für alle Antworten!
Lg,
Albtraum²
Beiträge von Albtraum²
-
-
Hallo liebe Leute,
ich bin beim auf ein Problem gestoßen:
Wenn ich mit AutoIt ein Dokument Zeilenweise auslese und sende, sendet er ! nicht als ! sonder, eben als Strg.
In diesem Fall soll er jeddoch ein ! sende, bzw. alle in der Datei enthaltenen Sonderzeichen richtig schreiben.
Schonmal danke,
Albtraum²Hiern noch das Skript:
[autoit]
[/autoit][autoit][/autoit][autoit]
$file = FileOpen("Code", 0)
HotKeySet("{Esc}", _Pause)
Global $Active= 1
Global $State= $Active
Func _Pause()
If $State= 1 Then
$State= 0
Else
$State= 1
EndIf
EndFunc; Check if file opened for reading OK
[/autoit][autoit][/autoit][autoit]
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
MsgBox(0, "", "")
Sleep(4000)While 1
[/autoit][autoit][/autoit][autoit]
If $State= 1 Then
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
Send($line)
Sleep(500)
Send(@CR)
EndIf
WEndFileClose($file)
[/autoit] -
Huhu,
Super! Dein 2. Link hat mir wirklich geholfen! Wie blind ich war!
Liebe Grüße,
Albtraum² -
Huhu liebe Forenfreunde,
kurz und knapp, ohne großartig rumzureden:
Wie lese ich ein IP Feld, der im Script erstellten GUI aus?
Bitte möglichst mit Beispiel, in der Hilfe geschaut habe ich bereits.
Liebe Grüße und schonmal vielen Dank,
Albtraum² -
Huhu,
gut, dass du es mir sagst, mache ich doch glatt
Lg,
Albtraum² -
Hallo,
Vielen Lieben Dank!!! Es geht!
Und gut, dass du nen Spoiler gemacht hast, dan konnte ich es auch selbst versuchen
Klasse, weiter so!
Ich schreibe erst jetzt, weil ich am Wochenende keine Zeit hatte
Lg,
Albtraum²@mods: Das Thema kann geschlossen werden!
-
Hallo liebe Forenfreunde,
es geht zwar immer noch nicht, aber ich habe mal ein bisschen rumprobiert und habe somit 2 funktionierende
Scripts, ich weiß allerdings nicht, wo das Problem liegt (bei den anderen Scripts). Bitte nochmal drüberschauen,
wäre nett, Danke!
Lg,
Albtraum²Hier die funktionierenden:
[autoit]
Client:TCPStartup()
[/autoit][autoit][/autoit][autoit]
$socket = TCPConnect("127.0.0.1", 4432)If $socket = -1 Then
[/autoit][autoit][/autoit][autoit]
MsgBox(0, "Fehler!", "Keine Verbng. möglich")
EndIf$sendedbytes = TCPSend($socket, "Hallo")
[/autoit][autoit][/autoit][autoit][/autoit]
If $sendedbytes = 0 Then
MsgBox(0, "Fehler!", "Nicht gesendet")
EndIf
TCPCloseSocket($socket)
TCPShutdown()
[autoit]
Server:TCPStartup()
[/autoit][autoit][/autoit][autoit]
$mainsocket = TCPListen("127.0.0.1", 4432)While 1
[/autoit][autoit][/autoit][autoit][/autoit]
$acceptedsocket = TCPAccept($mainsocket)
If $acceptedsocket <> -1 Then
$resiveddata = TCPRecv($acceptedsocket, 1240)
MsgBox(0, "Daten", $resiveddata)
EndIf
TCPCloseSocket($acceptedsocket)
WEndUnd hier die neueste Version des eigentlichen Scripts:
[autoit]
Client:TCPStartup()
[/autoit]
Global $ip = InputBox("Ip", "Bitte Ip angeben")
Global $socket = TCPConnect( $ip, 4321)
If $socket = -1 Then
MsgBox(0, "Verbindungsfehler", "Verbingdungsaufbau zum Server gescheitert")
EndIf
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Client-Server - by Albtraum²", 317, 180, 355, 194)
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 9, 8, 212, 19)
_GUICtrlIpAddress_Set($IPAddress1, "0.0.0.0")
$Button1 = GUICtrlCreateButton("Connect", 232, 9, 57, 20, $WS_GROUP)
$Button2 = GUICtrlCreateButton("CD-Tray", 9, 40, 66, 26, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE
TCPCloseSocket($socket)
TCPShutdown()
Exit
Case $nMsg = $Button2
Local $input = "CDTray"
$send = TCPSend( $socket, "CDTray")
If $send = 0 Then
MsgBox(0, "Sendefehler", "Daten konnten nicht gesendet werden!")
EndIf
EndSelect
WEnd
[autoit]
Server:
[/autoit][autoit][/autoit][autoit]
HotKeySet("{ESC}", "_Exit")
Func _Exit()
TCPCloseSocket( $acceptsocket)
TCPShutdown()
Exit
EndFuncTCPStartup()
[/autoit]
;Global $ip = @IPAddress1
Global $ip = "127.0.0.1"
MsgBox(0, "IP", $ip)
$mainsocket = TCPListen( $ip, 4321)
While 1
Global $acceptsocket = TCPAccept( $mainsocket)
If $acceptsocket <> -1 Then
$resivedData = TCPRecv( $acceptsocket, 1240)
If $resivedData = "CDTray" Then
CDTray("E:", "open")
Else
MsgBox(0, "Nachricht von Client", $resivedData)
EndIf
EndIf
WEndPs: Ich finde es Klasse, dass ich so viele Antworten bekomme, an alle: Weiter so, finde ich cool
-
Hallo,
schonmal Danke, an dich! Mein Problem hat es nicht gelöst...
Ich habe selber noch ein wenig rum probiert, mir auch mal die Hilfe durchgelesen, hat aber
nix gebracht!
Der jetztige Stand ist der:
Antscheinend sendet der Client ganz brav alles, gibt auch keine Fehlermeldungen etc.
Der Server scheint die Daten zwar anzunehmen, aber er macht nichts mit ihnen!
Hier sind nochmal die beiden Scripte (überarbeitet), es wäre nett, wenn ihr nochmal nen Blick
drauf werfen könntet, schonmal Danke!
Mfg,
Albtraum²Client:
[autoit]TCPStartup()
[/autoit]
Global $ip = InputBox("Ip", "Bitte Ip angeben")
Global $socket = TCPConnect( $ip, 4321)
If $socket = -1 Then
MsgBox(0, "Verbindungsfehler", "Verbingdungsaufbau zum Server gescheitert")
EndIf
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("RAT - by Albtraum²", 317, 180, 355, 194)
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 9, 8, 212, 19)
_GUICtrlIpAddress_Set($IPAddress1, "0.0.0.0")
$Button1 = GUICtrlCreateButton("Connect", 232, 9, 57, 20, $WS_GROUP)
$Button2 = GUICtrlCreateButton("CD-Tray", 9, 40, 66, 26, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE
TCPCloseSocket($socket)
TCPShutdown()
Exit
Case $nMsg = $Button2
Local $input = "CDTray"
$send = TCPSend( $socket, "CDTray")
If $send = 0 Then
MsgBox(0, "Sendefehler", "Daten konnten nicht gesendet werden!")
EndIf
EndSelect
WEnd
[autoit]
Server:HotKeySet("{ESC}", "_Exit")
[/autoit][autoit][/autoit][autoit]
Func _Exit()
TCPCloseSocket( $acceptsocket)
TCPShutdown()
Exit
EndFuncTCPStartup()
[/autoit]
Global $ip = @IPAddress1
MsgBox(0, "IP", $ip)
While 1
$mainsocket = TCPListen( $ip, 4321)
Global $acceptsocket = TCPAccept( $mainsocket)
If $acceptsocket <> -1 Then
$resivedData = TCPRecv( $acceptsocket, 1024)
If $resivedData = "CDTray" Then
CDTray("D:", "open")
Else
MsgBox(0, "Nachricht von Client", $resivedData)
EndIf
EndIf
WEnd -
Hallo liebe Leute,
ich bin seit kurzer Zeit daran ein kleines Tool zu schreiben. Ein paar Infos:
Was soll es können:
Es soll ein kleiner einseitiger Test Chat sein (auch mit Befehlen, CDTray, etc.).
Wie siehts aus, wo ist dein Problem:
Ich habe die beiden Komponeneten eigentlich fertig, aber es hapert an der Verbindung (beides erstmal auf einem Pc), früher hat es
geklappt, also was mache ich falsch?
Es wäre nett von euch, wenn ihr mal in meine beiden Scripte reinschaut (sry für die Unordnung). Schonmal vielen Dank für eure Mühen!
Mfg,
Albtraum²Hier die beiden Scripte:
Server:
[autoit]HotKeySet("{ESC}", "_Exit")
[/autoit][autoit][/autoit][autoit]
Func _Exit()
TCPCloseSocket($socket)
TCPShutdown()
Exit
EndFuncTCPStartup()
[/autoit][autoit][/autoit][autoit][/autoit]
Global $ip = @IPAddress1
MsgBox(0, "IP", $ip)
While 1
$mainsocket = TCPListen( $ip, 4321)
$acceptsocket = TCPAccept( $mainsocket)
If $acceptsocket <> -1 Then
$resivedData = TCPRecv( $acceptsocket, 1024)
If $resivedData = "CDTray" Then
CDTray("D:", "open")
Else
MsgBox(0, "Nachricht von Client", $resivedData)
EndIf
EndIf
TCPCloseSocket( $acceptsocket)
WEndUnd hier der Cleint (schon mit kleiner Gui (das Ip Feld geht noch net, aber das schaff ich alleine, erstmal dass das andere alles klappt ;):
[autoit]TCPStartup()
[/autoit]
Global $ip = InputBox("Ip", "Bitte Ip angeben")
Global $socket = TCPConnect( $ip, 4321)
If $socket = -1 Then
MsgBox(0, "Verbindungsfehler", "Verbingdungsaufbau zum Server gescheitert")
EndIf
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("RAT - by Albtraum²", 317, 180, 355, 194)
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 9, 8, 212, 19)
_GUICtrlIpAddress_Set($IPAddress1, "0.0.0.0")
$Button1 = GUICtrlCreateButton("Connect", 232, 9, 57, 20, $WS_GROUP)
$Button2 = GUICtrlCreateButton("CD-Tray", 9, 40, 66, 26, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
TCPCloseSocket($socket)
TCPShutdown()
Exit
Case $nMsg = $Button2
Local $input = "CDTray"
$send = TCPSend( $socket, "CDTray")
If $send = 0 Then
MsgBox(0, "Sendefehler", "Daten konnten nicht gesendet werden!")
EndIf
EndSwitch
WEnd