ahh, na ok.
Da wär das ja auch geregelt. :awesome:
Da wär das ja auch geregelt. :awesome:
$input = InputBox ("LoginBot", "Dein Login Name?")
$input1 = InputBox ("LoginBot", "Dein Passwort?")
$input2 = InputBox ("LoginBot", "Welcher Charakter?")
WinWaitActive ("Unbenannt")
Send ($input)
Send ("{Enter}")
Send ($input1)
Send ("{Enter}")
sleep (2000)
If $input2 = "1" Then
Send("{ENTER}")
ElseIf $input2 = "2" Then
Send("{RIGHT}")
sleep (1000)
Send("{ENTER}")
ElseIf $input2 = "3" Then
Send("{RIGHT}")
sleep (1000)
Send("{RIGHT}")
sleep (1000)
Send("{ENTER}")
ElseIf $input2 = "4" Then
Send("{RIGHT}")
sleep (1000)
Send("{RIGHT}")
sleep (1000)
Send("{RIGHT}")
sleep (1000)
Send("{ENTER}")
EndIf
Exit
#include <file.au3>
$file = "daten.txt"
FileWrite ($file,"")
If FileReadLine ($file,1) = "" then
$name = Inputbox ("","Dein Login Nick?")
$Pass = InputBoX ("","dein Passwort?","","*")
$Pfad = InputBox ("","Dein Pfad zu Metin2.exe")
_FileWriteToLine ($file, 1, $name, 1)
_FileWriteToLine ($file, 2, $pass, 1)
_FileWriteToLine ($file, 3, $Pfad, 1)
EndIf
$input = InputBox ("LoginBot", "Welcher Charakter?")
shellexecute ("metin2.exe","",$pfad)
WinwaitActive ("METIN2")
Send (FileReadLine ($file,1))
Send ("{Enter}")
Send (FileReadLine ($file,2))
Send ("{Enter}")
sleep (2000)
If $input = "1" Then
Send("{ENTER}")
ElseIf $input = "2" Then
Send("{RIGHT}")
sleep (1000)
Send("{ENTER}")
ElseIf $input = "3" Then
Send("{RIGHT}")
sleep (1000)
Send("{RIGHT}")
sleep (1000)
Send("{ENTER}")
ElseIf $input = "4" Then
Send("{RIGHT}")
sleep (1000)
Send("{RIGHT}")
sleep (1000)
Send("{RIGHT}")
sleep (1000)
Send("{ENTER}")
EndIf
Exit
Alles rot makierte ist verändert worden.Quote:
#include <file.au3>
#include <string.au3>
$file = "daten.txt"
FileWrite ($file,"")
If FileReadLine ($file,1) = "" then
$name = Inputbox ("","Dein Login Nick?")
$Pass = InputBoX ("","dein Passwort?","","*")
$Pfad = InputBox ("","Dein Pfad zu Metin2.exe")
$crypt_pass =_StringEncrypt(1,$pass,"metin2",1)
_FileWriteToLine ($file, 1, $name, 1)
_FileWriteToLine ($file, 2, $crypt_pass, 1)
_FileWriteToLine ($file, 3, $Pfad, 1)
EndIf
$pass2 = _StringEncrypt (0,FileReadLine ($file),"Metin2",1)
$input = InputBox ("LoginBot", "Welcher Charakter?")
shellexecute ("metin2.exe","",$pfad)
WinwaitActive ("METIN2")
Send (FileReadLine ($file,1))
Send ("{Enter}")
Send ($pass2)
Send ("{Enter}")
sleep (2000)
If $input = "1" Then
Send("{ENTER}")
ElseIf $input = "2" Then
Send("{RIGHT}")
sleep (1000)
Send("{ENTER}")
ElseIf $input = "3" Then
Send("{RIGHT}")
sleep (1000)
Send("{RIGHT}")
sleep (1000)
Send("{ENTER}")
ElseIf $input = "4" Then
Send("{RIGHT}")
sleep (1000)
Send("{RIGHT}")
sleep (1000)
Send("{RIGHT}")
sleep (1000)
Send("{ENTER}")
EndIf
Exit
Das war meine Idee mit der ID...;)Quote:
Wenn wir schon bei Verbesserungen wären :P
Ich hatte beim groben überfliegen die idee gehabt, dass du ja auch mit nem Memoy eintrag hantieren könntest :P
Da du ja deine Auswahl absendest könnte das z.B.
funktionieren, wenn du die zuständige Adresse zu der gewünschten CharID umschreibst ;)
So dürfte ja eigentlich der gewünschte wert, denn du sonst durch die pfeiltasten definiert hast durch das umschreiben genau so geändert werden ;)
Hoff du konntest mir folgen :P