Metin2 autologin

Page 1 of 2 1 2
12/17/2009 17:41 HOLYsw#1
Hallo ich wollte mal fragen wieso das so nicht geht ich will das er sich damit
in metin2 von selbst einloggt aber der geht nicht ins metin2 fenster sondern macht diese befehle auf dem desktop
danke schon mal im voraus:)


MouseClick("left",441,11)
Sleep(500)
MouseMove (267, 516)
Sleep(500)
MouseClick("left")
Sleep(500)
MouseMove(525, 259)
MouseClick("left")
Sleep(500)
MouseMove(527,533)
MouseClick("left")
Sleep(500)
Send("xxxx")
Sleep(500)
MouseMove(643,515)
MouseClick("left")
Sleep(500)
Send("xxxxx")
MouseMove(556,538)
Sleep(50)
MouseClick("left")
Sleep(4000)
MouseMove(482,539)
Sleep(200)
MouseClick("left")
Sleep(100)
MouseClick("left")
Sleep(100)
MouseMove(214,510)
Sleep(200)
MouseClick("left")
12/17/2009 17:57 | Moep |#2
setz mal "WinActivate("METIN2")" an anfang deines Scriptes...
12/17/2009 18:10 HOLYsw#3
Das geht nicht.Das geht zwar auf metin2 dort tuht sich aber nix
12/17/2009 22:28 WieMeinen#4
Mein Gott, was habt ihr alle mit Metin2?
(In Metin2 funktioniert MouseMove nicht)
12/18/2009 14:49 93lucas#5
ned winactive sondern winwaitactive or?
und hier der richtige
der müsste gehen

WinWaitActive ("METIN2")
MouseClick("left",441,11)
Mouseclick ("left",267, 516)
Mouseclick("left",525, 259)
Mouseclick("left",527,533)
Send("xxxx")
Mouseclick("left",643,515)
Send("xxxxx")
Mouseclick("left",556,538)
Sleep(4000)
Mouseclick("left",482,539)
Mouseclick("left",482,539)
Mouseclick("left",214,510)

mausmove versteh ich ned kannste ja gleich mouseclick
und immer die 500sleep ???
12/18/2009 15:37 eXcalibur93#6
Also ichh ab au mal einen loginbot geschreiben:

PHP Code:
$spieloptionenfarbe = 0x100C08
$metinlogofarbe = 0xEF8252
$fenstermod = 0xFF967B
$chafarbe = 0x632018
$erstellen = 0xC6C7C6
$read1 = IniRead ("logindaten.ini", "Section1", "wert1_in_sectino1", "")
$Server = InputBox ("Login", "Servernummer?", $read1)
IniWrite ("logindaten.ini", "Section1", "wert1_in_sectino1", $Server)
$read2 = IniRead ("logindaten.ini", "Section1", "wert2_in_sectino1", "")
$CH = InputBox ("Login", "CHnummer?", $read2)
IniWrite ("logindaten.ini", "Section1", "wert2_in_sectino1", $CH)
$read3 = IniRead ("logindaten.ini", "Section1", "wert3_in_sectino1", "")
$ID = InputBox ("Login", "ID?", $read3)
IniWrite ("logindaten.ini", "Section1", "wert3_in_sectino1", $ID)
$read4 = IniRead ("logindaten.ini", "Section1", "wert4_in_sectino1", "")
$Passwort = InputBox ("Login", "Passwort?", $read4)
IniWrite ("logindaten.ini", "Section1", "wert4_in_sectino1", $Passwort)
$read5 = IniRead ("logindaten.ini", "Section1", "wert5_in_sectino1", "")
$Charakter = InputBox ("Login", "Cha nr.? nach rechts", $read5)
IniWrite ("logindaten.ini", "Section1", "wert5_in_sectino1", $Charakter)
Sleep (1000)
Run ("metin2.exe")
WinWaitActive ("METIN II")
Do
    Sleep (100)
Until $spieloptionenfarbe = PixelGetColor ( 835, 406 )
MouseClick ("left", 873, 408)
WinWaitActive ("CONFIG")
MouseClick ("left", 652, 401)
Sleep (500)
if $fenstermod = PixelGetColor ( 696, 454 ) Then
    MouseClick ("left", 637, 523) 
    MouseClick ("left", 591, 402)
Else 
    MouseClick ("left", 591, 402)
EndIf
MouseClick ("left", 552, 423)
MouseClick ("left", 590, 467)
MouseClick ("left", 556, 515)
MouseClick ("left", 583, 650)
MouseClick ("left", 865, 362)
WinWaitActive ("METIN2")
Sleep (1000)
Switch $Server
    Case 1 To 20
If $Server = 1 Then
    MouseClick ("left", 262, 210)
ElseIf $Server = 2 Then
    MouseClick ("left", 260, 224)
ElseIf $Server = 3 Then
    MouseClick ("left", 260, 241)
ElseIf $Server = 4 Then
    MouseClick ("left", 260, 262)
ElseIf $Server = 5 Then
    MouseClick ("left", 260, 277)
ElseIf $Server = 6 Then
    MouseClick ("left", 260, 295)
ElseIf $Server = 7 Then
    MouseClick ("left", 260, 310)
ElseIf $Server = 8 Then
    MouseClick ("left", 260, 324)
ElseIf $Server = 9 Then
    MouseClick ("left", 260, 341)
ElseIf $Server = 10 Then
    MouseClick ("left", 260, 362)
ElseIf $Server = 11 Then
    MouseClick ("left", 260, 377)
ElseIf $Server = 12 Then
    MouseClick ("left", 260, 395)
ElseIf $Server = 13 Then
    MouseClick ("left", 260, 410)
ElseIf $Server = 14 Then
    MouseClick ("left", 260, 424)
ElseIf $Server = 15 Then
    MouseClick ("left", 260, 441)
ElseIf $Server = 16 Then
    MouseClick ("left", 260, 462)
ElseIf $Server = 17 Then
    MouseClick ("left", 260, 477)
ElseIf $Server = 18 Then
    MouseClick ("left", 260, 495)
ElseIf $Server = 19 Then
    MouseClick ("left", 260, 510)
ElseIf $Server = 20 Then
    MouseClick ("left", 260, 524)
EndIf
case Else
    MsgBox (0, "Fehler!", "Server existiert nicht!")
    Exit
EndSwitch
Switch $CH
    Case 1 To 6
If $CH = 1 Then
    MouseClick ("left", 515, 207)
ElseIf $CH = 2 Then
    MouseClick ("left", 515, 225)
ElseIf $CH = 3 Then
    MouseClick ("left", 515, 241)
ElseIf $CH = 4 Then
    MouseClick ("left", 515, 258)
EndIf
case Else
    MsgBox (0, "Fehler!", "Channel existiert nicht!")
    Exit
EndSwitch
Sleep (500)
MouseClick ("left", 526, 519)
Do
    Sleep (100)
Until $metinlogofarbe = PixelGetColor ( 516, 207 )
Send ($ID)
Send ("{enter}")
Sleep (500)
Send ($Passwort)
Sleep (500)
Send ("{enter}")
Sleep (6000)
Switch $Charakter
Case 1 To 4
    If $Charakter = 1 Then
        If $erstellen = PixelGetColor ( 154, 514 ) Then
            MsgBox (0, "Fehler!", "Charakter existiert nicht!")
        Else
        Send ("{enter}")
        EndIf
        Exit
    ElseIf $Charakter = 2 Then
        MouseClick ("left", 623, 550)
        If $erstellen = PixelGetColor ( 154, 514 ) Then
            MsgBox (0, "Fehler!", "Charakter existiert nicht!")
        Else
        Send ("{enter}")
        EndIf
        Exit
    ElseIf $Charakter = 3 Then
        MouseClick ("left", 623, 550)
        MouseClick ("left", 623, 550)
        If $erstellen = PixelGetColor ( 154, 514 ) Then
            MsgBox (0, "Fehler!", "Charakter existiert nicht!")
        Else
        Send ("{enter}")
        EndIf
        Exit
    ElseIf $Charakter = 4 Then
        MouseClick ("left", 623, 550)
        MouseClick ("left", 623, 550)
        MouseClick ("left", 623, 550)
        If $erstellen = PixelGetColor ( 154, 514 ) Then
            MsgBox (0, "Fehler!", "Charakter existiert nicht!")
        Else
        Send ("{enter}")
        EndIf
        Exit
    EndIf
Case Else
    MsgBox (0, "Fehler!", "Charakter existiert nicht!")
EndSwitch 
Also des is nen sehr einfacher bot und auch schon etwas älter, deshalb braucht man neue Farbwerte und neue Coordinaten, weil die sich durch die neuen server verändert haben
12/19/2009 11:10 ●ROBBY●#7
Quote:
Originally Posted by oOWaYnEOo View Post
Mein Gott, was habt ihr alle mit Metin2?
(In Metin2 funktioniert MouseMove nicht)
Mein Gott du hast keine Ahnung in M2 funktioniert MouseMove :facepalm::facepalm::facepalm:
12/19/2009 11:14 HardCore.1337#8
Das einzige was nicht funktioniert sind die Control Befehle ;)
12/19/2009 12:57 .nAno#9
Quote:
Originally Posted by General Desert View Post
Das einzige was nicht funktioniert sind die Control Befehle ;)
richtig :P

Quote:
Originally Posted by 93lucas View Post
ned winactive sondern winwaitactive or?
und hier der richtige
der müsste gehen

WinWaitActive ("METIN2")
MouseClick("left",441,11)
Mouseclick ("left",267, 516)
Mouseclick("left",525, 259)
Mouseclick("left",527,533)
Send("xxxx")
Mouseclick("left",643,515)
Send("xxxxx")
Mouseclick("left",556,538)
Sleep(4000)
Mouseclick("left",482,539)
Mouseclick("left",482,539)
Mouseclick("left",214,510)

mausmove versteh ich ned kannste ja gleich mouseclick
und immer die 500sleep ???
Nein WinActivate ist gemeint :P
aber ich würd ne Sleep phase einbauen, das Problem könnte sonst nämlich sein, dass das Fenster nich geladen ist bevor der 1. Befehl ausgeführt wird^^
12/19/2009 15:14 WieMeinen#10
Oh sry, das hatte ich gemeint^^
12/28/2009 21:35 HOLYsw#11
omg regt euch doch net gleich auf :mad: als ich diesen thread erstellt hatte hatte ich das programm seit vier stunden :cool:
12/29/2009 01:21 | Moep |#12
Quote:
Originally Posted by HOLYsw View Post
omg regt euch doch net gleich auf :mad: als ich diesen thread erstellt hatte hatte ich das programm seit vier stunden :cool:
FAIL!
12/29/2009 12:33 ninjaprobe#13
also am besten ist es du mahcst es mit farbweten dann logt dich der bot automatich ein wenn du geckickt wirst hir ich mach für dich
While 1
sleep (500)
if PixelGetColor (266,574) = 0x4B3E33 Then
MouseClick("left",441,11)
Sleep(500)
MouseMove (267, 516)
Sleep(500)
MouseClick("left")
Sleep(500)
MouseMove(525, 259)
MouseClick("left")
Sleep(500)
MouseMove(527,533)
MouseClick("left")
Sleep(500)
Send("xxxx")
Sleep(500)
MouseMove(643,515)
MouseClick("left")
Sleep(500)
Send("xxxxx")
MouseMove(556,538)
Sleep(50)
MouseClick("left")
Sleep(4000)
MouseMove(482,539)
Sleep(200)
MouseClick("left")
Sleep(100)
MouseClick("left")
Sleep(100)
MouseMove(214,510)
Sleep(200)
MouseClick("left")
Wend

so jetzt muss es gehen
12/29/2009 21:23 HOLYsw#14
endlich einer der mich versteht
12/29/2009 21:28 | Moep |#15
ninjaprobe is ja auch voll der üble hacker, der kann alles.
Page 1 of 2 1 2