[Pomoc]Autolog Metin2

[czysz1998]

Witam. znalazłem na elitepvp taki program wraz z kodem ale po niemiecku więc postanowiłem go spolszczyc. Światy wybiera, kanały też ale po przejściu do okna logowania nic nie wpisuje A hasło i login są podane.

 

Macie kod, możecie się bawic, ja nadmorze wyjeżdżam :P

 

 

 

 

 

#include <ButtonConstants.au3>

#include <ComboConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

$file = "data.ini"

$StandartServers1 = Iniread ($file,"Standarts","Servers1","Serwandes")

$StandartServers2 = Iniread ($file,"Standarts","Servers2","Onyks")

$StandartChannels1 = Iniread ($file,"Standarts","Channels1","1")

$StandartChannels2 = Iniread ($file,"Standarts","Channels2","1")

$Nickname1 = Iniread ($file,"Standarts","Nickname1","Your Nick")

$Nickname2 = Iniread ($file,"Standarts","Nickname2","Your Nick")

$Pass1 = Iniread ($file,"Standarts","Pass1","YourPass")

$Pass2 = Iniread ($file,"Standarts","Pass2","YourPass")

#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\philipp keil\desktop\autoit\metin2 autolog + relog\gui.kxf

$GUI = GUICreate("Metin2AutoLog+Relog v.1PL By Czysz1998 4 MPCFORUM ", 413, 301, 304, 122)

$Heading = GUICtrlCreateLabel("Metin2 Autolog v.1", 72, 0, 267, 41)

GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")

$AutologCheck = GUICtrlCreateCheckbox("Funkcja Autolog", 16, 64, 137, 17)

GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

$RelogCheck = GUICtrlCreateCheckbox("Fukcja Relog", 16, 88, 137, 17)

GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

$CharacterSettings = GUICtrlCreateGroup("Ustawienia postaci", 3, 120, 401, 145)

$Character2 = GUICtrlCreateGroup("Postac 2", 41, 213, 257, 49)

$NickNameInput2 = GUICtrlCreateInput($Nickname2, 65, 237, 105, 21)

$PassInput2 = GUICtrlCreateInput($Pass2, 185, 237, 89, 21)

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Character1 = GUICtrlCreateGroup("Postac 1", 41, 141, 257, 49)

$NickNameInput1 = GUICtrlCreateInput($NickName1, 65, 165, 105, 21)

$PassInput1 = GUICtrlCreateInput($Pass1, 185, 165, 89, 21)

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Servers2 = GUICtrlCreateCombo("", 305, 208, 97, 25)

$Servers1 = GUICtrlCreateCombo("", 305, 133, 97, 25)

GUICtrlSetData($Servers1,"Serwandes|Onyks|Deimos",$StandartServers1)

GUICtrlSetData($Servers2,"Serwandes|Onyks|Deimos",$StandartServers2)

$Load1 = GUICtrlCreateRadio("", 16, 160, 17, 17)

GUICtrlSetState(-1, $GUI_CHECKED)

$Load2 = GUICtrlCreateRadio("", 16, 232, 17, 17)

$Channels1 = GUICtrlCreateCombo("", 305, 165, 97, 25)

$Channels2 = GUICtrlCreateCombo("", 305, 240, 97, 25)

GUICtrlSetData($Channels1,"1|2|3|4",$StandartChannels1)

GUICtrlSetData($Channels2,"1|2|3|4",$StandartChannels2)

GUICtrlCreateGroup("", -99, -99, 1, 1)

$StartLoggerButton = GUICtrlCreateButton("Start Autolog", 152, 272, 99, 25, $WS_GROUP)

$OptionsButton = GUICtrlCreateButton("Opcje", 288, 272, 99, 25, $WS_GROUP)

$StartMetinButton = GUICtrlCreateButton("Start Metin2 PL", 24, 272, 99, 25, $WS_GROUP)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

 

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $OptionsButton

MsgBoX (0,"","Moe bedzie w wersji 1.1")

Case $StartMetinButton

MouseMove (44, 41)

MouseClick ("left")

MouseClick ("left")

Case $StartLoggerButton

AutoLog()

EndSwitch

WEnd

 

Func AutoLog()

Iniwrite ($file,"Standarts","Servers1",GUICtrlRead($Servers1))

Iniwrite ($file,"Standarts","Servers2",GUICtrlRead($Servers2))

Iniwrite ($file,"Standarts","Nickname1",GUICtrlRead($NickNameInput1))

Iniwrite ($file,"Standarts","Nickname2",GUICtrlRead($NickNameInput2))

Iniwrite ($file,"Standarts","Pass1",GUICtrlRead($PassInput1))

Iniwrite ($file,"Standarts","Pass2",GUICtrlRead($PassInput2))

Iniwrite ($file,"Standarts","Channels1",GUICtrlRead($Channels1))

Iniwrite ($file,"Standarts","Channels2",GUICtrlRead($Channels2))

WinWaitActive("METIN2")

sleep (1000)

If GUICtrlRead($AutologCheck) = 1 Then

Logger()

EndIf

Relog()

EndFunc

 

Func Relog()

If GUICtrlRead($RelogCheck) = 1 Then

sleep(20000)

while 1

sleep (800)

If PixelGetColor (0,0) = 0x000000 Then

Logger()

EndIf

WEnd

EndIf

Exit

EndFunc

 

Func Logger()

If GUICtrlRead($load1) = 1 Then

If GUICtrlRead($Servers1) = "Serwandes" Then

MouseMove (399, 219)

MouseClick ("left")

ElseIf GUICtrlRead($Servers1) = "Onyks" Then

MouseMove (275, 329)

MouseClick ("left")

ElseIf GUICtrlRead($Servers1) = "Deimos" Then

MouseMove (395, 260)

MouseClick ("left")

EndIf

If GUICtrlRead($Channels1) = "1" Then

MouseMove (528, 211)

MouseClick ("left")

MouseMove (525, 517)

MouseClick ("left")

ElseIf GUICtrlRead($Channels1) = "2" Then

MouseMove (506, 227)

MouseClick ("left")

MouseMove (525, 517)

MouseClick ("left")

ElseIf GUICtrlRead($Channels1) = "3" Then

MouseMove (548, 233)

MouseClick ("left")

MouseMove (525, 517)

MouseClick ("left")

ElseIf GUICtrlRead($Channels1) = "4" Then

MouseMove (519, 259)

MouseClick ("left")

MouseMove (525, 517)

MouseClick ("left")

EndIf

ElseIf GUICtrlRead($load2) = 1 Then

If GUICtrlRead($Servers2) = "Serwandes" Then

MouseMove (399, 219)

MouseClick ("left")

ElseIf GUICtrlRead($Servers2) = "Onyks" Then

MouseMove (275, 329)

MouseClick ("left")

ElseIf GUICtrlRead($Servers2) = "Deimos" Then

MouseMove (395, 260)

MouseClick ("left")

EndIf

If GUICtrlRead($Channels2) = "1" Then

MouseMove (528, 211)

MouseClick ("left")

MouseMove (525, 517)

MouseClick ("left")

ElseIf GUICtrlRead($Channels2) = "2" Then

MouseMove (506, 227)

MouseClick ("left")

MouseMove (525, 517)

MouseClick ("left")

ElseIf GUICtrlRead($Channels2) = "3" Then

MouseMove (548, 223)

MouseClick ("left")

MouseMove (525, 517)

MouseClick ("left")

ElseIf GUICtrlRead($Channels2) = "4" Then

MouseMove (519, 259)

MouseClick ("left")

MouseMove (525, 517)

MouseClick ("left")

EndIf

EndIf

EndFunc

 

 

 

[jackraymund]

MouseMove (275, 329) 0.o

lepiej powiedz pod jaką rozdzielczosc i gdzie te okienko ma byc ustawione:|

[arturkup....]

Skrocilem o 50 % i poprawilem spol

 

To jest ukryta treść, proszę

• Zaloguj się
• lub
• Zarejestruj się

[czysz1998]

MouseMove (275, 329) 0.o

lepiej powiedz pod jaką rozdzielczosc i gdzie te okienko ma byc ustawione:|

 

 

Sorry że nie podałem, okienko jest w lewym górnym rogu, a ustawienia są w windowMode 800x600 32bpp

 

 

arturkup- zadużo nie zmieniłem, nadal bot po wybraniu światow nie wpisuje passów