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