Beiträge von Albtraum²

Albtraum²

Hallo,
Super, es klappt! Habe ich vorher nicht gewusst, dass man bei Send Flags angeben kann.
Danke an für alle Antworten!
Lg,
Albtraum²

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]

$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

[/autoit][autoit][/autoit][autoit]

; Check if file opened for reading OK
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
MsgBox(0, "", "")
Sleep(4000)

[/autoit][autoit][/autoit][autoit]

While 1
If $State= 1 Then
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
Send($line)
Sleep(500)
Send(@CR)
EndIf
WEnd

[/autoit][autoit][/autoit][autoit]

FileClose($file)

[/autoit]

Albtraum²

Huhu,
Super! Dein 2. Link hat mir wirklich geholfen! Wie blind ich war!
Liebe Grüße,
Albtraum²

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²

Albtraum²

Huhu,
gut, dass du es mir sagst, mache ich doch glatt
Lg,
Albtraum²

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!

Albtraum²

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

[autoit]

TCPStartup()
$socket = TCPConnect("127.0.0.1", 4432)

[/autoit][autoit][/autoit][autoit]

If $socket = -1 Then
MsgBox(0, "Fehler!", "Keine Verbng. möglich")
EndIf

[/autoit][autoit][/autoit][autoit]

$sendedbytes = TCPSend($socket, "Hallo")
If $sendedbytes = 0 Then
MsgBox(0, "Fehler!", "Nicht gesendet")
EndIf
TCPCloseSocket($socket)
TCPShutdown()

[/autoit][autoit][/autoit][autoit][/autoit]

Server:

[autoit]

TCPStartup()
$mainsocket = TCPListen("127.0.0.1", 4432)

[/autoit][autoit][/autoit][autoit]

While 1
$acceptedsocket = TCPAccept($mainsocket)
If $acceptedsocket <> -1 Then
$resiveddata = TCPRecv($acceptedsocket, 1240)
MsgBox(0, "Daten", $resiveddata)
EndIf
TCPCloseSocket($acceptedsocket)
WEnd

[/autoit][autoit][/autoit][autoit][/autoit]

Und hier die neueste Version des eigentlichen Scripts:
Client:

[autoit]

TCPStartup()
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]

HotKeySet("{ESC}", "_Exit")
Func _Exit()
TCPCloseSocket( $acceptsocket)
TCPShutdown()
Exit
EndFunc

[/autoit][autoit][/autoit][autoit]

TCPStartup()
;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
WEnd

[/autoit]

Ps: Ich finde es Klasse, dass ich so viele Antworten bekomme, an alle: Weiter so, finde ich cool

Albtraum²

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()
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:

[autoit]

HotKeySet("{ESC}", "_Exit")
Func _Exit()
TCPCloseSocket( $acceptsocket)
TCPShutdown()
Exit
EndFunc

[/autoit][autoit][/autoit][autoit]

TCPStartup()
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

[/autoit]

Albtraum²

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")
Func _Exit()
TCPCloseSocket($socket)
TCPShutdown()
Exit
EndFunc

[/autoit][autoit][/autoit][autoit]

TCPStartup()
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)
WEnd

[/autoit][autoit][/autoit][autoit][/autoit]

Und 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()
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

[/autoit]

Beiträge von Albtraum²

Datein auslesen und senden

Datein auslesen und senden

_GUICtrlIpAddress_Create

_GUICtrlIpAddress_Create

Hilfe bei TCP Script

Hilfe bei TCP Script

Hilfe bei TCP Script

Hilfe bei TCP Script

Hilfe bei TCP Script