hey habe mich an einem relogger für den pserver Arania2 versucht
aber es gibt ein prob das ich noch nicht lösen konnte
das ist der code
aber es gibt ein prob das ich noch nicht lösen konnte
das ist der code
Code:
$read = IniRead("Daten.ini", "Login", "ID", "")
$id = InputBox("ID", "Deine ID", $read)
IniWrite("Daten.ini", "Login", "ID", $id)
$read2 = IniRead("Daten.ini", "Login", "Passwort", "")
$pw = InputBox("Passwort", "Gib dein Passwort ein", $read2)
IniWrite("Daten.ini", "Login", "Passwort", $pw)
$read3 = IniRead("Daten.ini", "Login", "Exe", "")
$exe = InputBox("Exe", "Gib deine Exe ein z.B. Metin2.exe", $read3)
IniWrite("Daten.ini", "Login", "Exe", $exe)
$read4 = IniRead("Daten.ini", "Login", "Window", "")
$win = InputBox("Window", "Gib den fenster namen ein z.B. Metin2", $read4)
IniWrite("Daten.ini", "Login", "Window", $win)
If WinWaitActive($win) Then
MouseClick("left", 732, 560)
MouseClick("left", 765, 874)
Send("" & $id)
Send("{tab}")
Send("" & $pw)
Send("{enter}") das hier habe ich gemacht damit man
das programm auch zwischen durch
starten kann ohne das ein neues fenster geöffnet wird
nur habe ich seit dem das prob das er
es garnicht mehr startet wenn mir einer
sagen könnte woran es liegt wäre ich sehr dankbar
Else
Run($exe)
If WinWaitActive($win) Then
MouseClick("left", 732, 560)
MouseClick("left", 765, 874)
Send("" & $id)
Send("{tab}")
Send("" & $pw)
Send("{enter}")
Else
Sleep(5000)
MsgBox(0, "Error" . "Error Window not found")
Exit
EndIf
EndIf
HotKeySet("^{r}", "start")
Func start()
MouseClick("left", 732, 560)
MouseClick("left", 765, 874)
Send("" & $id)
Send("{tab}")
Send("" & $pw)
Send("{enter}")
EndFunc ;==>start
HotKeySet("^{y}", "pick")
Func pick()
While 20
Send("y")
Sleep(500)
WEnd
EndFunc ;==>pick
HotKeySet("{e}", "end")
Func end()
Exit
EndFunc ;==>end
While 1
Sleep(100)
WEnd
