Hey Leute ich habe einen Prob mit meinem Bot.
Er soll Tastendrücke an Metin2 senden. Dafür benötigt man ja die KeySend.au3 und .dll
Hier einmal die KeySend.au3:
PHP Code:
;=====================================================================
;Funktion: SendKey
;Autor: General Desert
;
;Website: www.elitepvpers.de
;OS: XP, VISTA, 7
;Sprache: Deutsch
;=====================================================================
#region Info
;=====================================================================
;Funktion: SendKey
;Beschreibung: Sendet einen Tastaturdruck an ein verstecktes Fenster.
; Dabei funktionieren auch Anwendungen die mit einem
; Anti-Cheat Schutz ausgestattet sind.
;Parameter: _SendKey($Handle, $Key, $SpecialKey)
; $Handle: Handle des Programmes. Zu bekommen durch WinGetProcess
; Key: Taste die gedrückt werden soll
; SpecialKey: Shift Taste oder Alt Taste einbinden (True/False)
;======================================================================
#EndRegion
Func _SendKey($Handle, $Key)
Local $Dll = DllOpen("KeySend.dll")
$Result = DllCall($Dll, "HWnd", "GetHandle", "Str", $Handle)
DllCall($Dll, "none", "SendKeyHwnd", "Hwnd", $Result, "str", $Key)
EndFunc
Ich habe auch schon die au3 und dll in den Include Ordner kopiert und in dem Ordner meines Scriptes die dll.
Wenn ich nun de Bot starte, macht er nix^^
Damit nicht jeder meinen Bot klaut, füge ich hier mal nicht die GUI ein^^
Der (halbe) Bot:
PHP Code:
$zahl = 0
$zahl2 = 0
$zahl3 = 0
$zahl4 = 0
#include <GUIConstants.au3>
#include <KeySend.au3>
;Hier wäre die Gui mit 15 Label, 8 Button und 5 Inputboxen
$PID = WinGetProcess ("METIN2")
$test = ProcessExists ($PID)
If $test = False Then
MsgBox (0, "Metin2 starten", "Bitte starten sie Metin2!")
EndIf
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Do
$zahl = $zahl + 1
$PID = WinGetProcess ("METIN2")
_SendKey ($PID, "^")
Sleep (500)
Until $zahl = - 1
Case $Button2
$zahl = - 1
Case $Button3
Do
$zahl2 = $zahl2 + 1
$PID = WinGetProcess ("METIN2")
_SendKey ($PID, " ")
Sleep (200)
Until $zahl2 = - 1
Case $Button4
$zahl2 = - 1
Case $Button5
Do
$zahl3 = $zahl3 + 1
$PID = WinGetProcess ("METIN2")
_SendKey ($PID, $Input3)
Sleep (3500)
_SendKey ($PID, $Input4)
Sleep (3500)
_SendKey ($PID, $Input5)
Sleep (30000)
Until $zahl3 = - 1
Case $Button6
$zahl3 = - 1
Case $Button7
Do
$zahl4 = $zahl4 + 1
$PID = WinGetProcess ("METIN2")
_SendKey ($PID, $Input1)
_SendKey ($PID, $Input2)
Sleep (250)
Until $zahl4 = - 1
Case $Button8
$zahl4 = - 1
EndSwitch
WEnd
mfg, H1rnt0t7
