Relogger Metin2 Pserver

[itoy70]

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

$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

[Fl00d3R]

Originally Posted by itoy70

hey habe mich an einem relogger für den pserver Arania2 versucht
aber es gibt prob das ich noch nicht lösen konnte
das ist der 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

Die Funktion WinWaitActice unterbricht das Programm und wartet bis das angegebene Fenster existiert außerdem hat die Funktion keinen Rückgabe werte, sodass die If-Schleife nicht weiß, wann sie zu funktionieren hat.
Du solltest die Funktion WinExists benutzen.

LG Fl00d3R

[itoy70]

vielen dank jetz funzt alles super