PHP Code:
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
Global $Fenstername
Global $Server
Global $Channel
Global $Char
Global $Pixel
Global $ID
Global $PW
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Bei Kick - Einlogg Bot", 311, 300, 192, 124)
$Label1 = GUICtrlCreateLabel("Herzlich Willkommen beim Bei Kick - Einlogg Bot von 50Millionen", 0, 0, 309, 17, $SS_CENTERIMAGE)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Pics\149513739_a42832ebfd.gif", 0, 24, 308, 124, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Progress = GUICtrlCreateProgress(0, 152, 310, 25)
$Label2 = GUICtrlCreateLabel("Suche deine Auflösung und drücke den Button zum starten.", 0, 184, 286, 17)
$A800 = GUICtrlCreateButton("800x600 16bpp", 0, 208, 91, 25, 0)
$A900 = GUICtrlCreateButton("960x600 16bpp", 96, 208, 91, 25, 0)
$A1000 = GUICtrlCreateButton("1024x768 16bpp", 192, 208, 91, 25, 0)
$B800 = GUICtrlCreateButton("800x600 32bpp", 0, 240, 91, 25, 0)
$B900 = GUICtrlCreateButton("960x600 32bpp", 96, 240, 91, 25, 0)
$B1000 = GUICtrlCreateButton("1024x768 32bpp", 192, 240, 91, 25, 0)
$my16 = GUICtrlCreateButton("1280x1024 16bpp", 0, 272, 131, 25, 0)
$my32 = GUICtrlCreateButton("1280x1024 32bpp", 152, 272, 131, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $A800
A800()
Case $A900
A900()
Case $A1000
A1000()
Case $B800
B800()
Case $B900
B900()
Case $B1000
B1000()
Case $my16
my16()
Case $my32
my32()
EndSwitch
WEnd
Func A800()
For $mpega = 0 To 100
GUICtrlSetData($Progress,$mpega)
sleep(10)
$mpega = $mpega + 1
Next
GUISetState(@SW_HIDE)
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Bei Kick -Einlogg Bot (C)(R) by 50Millionen", 500, 255, 192, 124)
GUISetFont(10, 800, 0, "Comic Sans MS")
$Label1 = GUICtrlCreateLabel("Deine Daten werden nicht weitergegeben!", 0, 104, 266, 23)
$Label2 = GUICtrlCreateLabel("Damit der Bei Kick - Einlogg Bot funktioniert musst du erst alles ausfüllen !!", 0, 8, 497, 23)
GUICtrlSetFont(-1, 10, 800, 4, "Comic Sans MS")
$Label3 = GUICtrlCreateLabel("ID:", 0, 40, 26, 23)
GUICtrlSetColor(-1, 0xFF0000)
$Label4 = GUICtrlCreateLabel("PW:", 0, 72, 31, 23)
GUICtrlSetColor(-1, 0xFF0000)
$ID = GUICtrlCreateInput("Beispiel", 32, 40, 121, 27)
$PW = GUICtrlCreateInput("Beispiel", 32, 72, 121, 27, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Pics\50.jpg", 392, 32, 100, 68, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label5 = GUICtrlCreateLabel("Wähle hier deinen Server und deinen Channel.", 0, 128, 302, 23)
$Label6 = GUICtrlCreateLabel("Channel:", 0, 160, 58, 23)
$Channel = GUICtrlCreateCombo("", 64, 160, 169, 25)
GUICtrlSetData(-1, "Channel1|Channel2|Channel3|Channel4|Channel5|Channel6")
$Label7 = GUICtrlCreateLabel("Server:", 240, 160, 51, 23)
$Server = GUICtrlCreateCombo("", 296, 160, 169, 25)
GUICtrlSetData(-1, "Server1|Server2|Server3|Server4|Server5|Server6|Server7|Server8|Server9|Server10|Server11|Server12|Server13|Server14|Server15|Server16|Server17|Server18")
$Label8 = GUICtrlCreateLabel("Character:", 0, 200, 72, 23)
$Char = GUICtrlCreateCombo("", 72, 200, 161, 25)
GUICtrlSetData(-1, "1|2|3|4")
$Label9 = GUICtrlCreateLabel("Fenstername:", 240, 200, 88, 23)
$Fenstername = GUICtrlCreateCombo("", 328, 200, 137, 25)
GUICtrlSetData(-1, "METIN2|Às¾s")
$Start = GUICtrlCreateButton("Start", 392, 104, 99, 41, 0)
$MenuItem2 = GUICtrlCreateMenu("Hilfe")
$MenuItem3 = GUICtrlCreateMenuItem("Anleitung", $MenuItem2)
$MenuItem4 = GUICtrlCreateMenuItem("Elitepvper Forum", $MenuItem2)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$R = IniRead("Bot.dll","Daten","ID","Wert nicht gefunden")
GUICtrlSetData($ID,$R)
$R = IniRead("Bot.dll","Daten","PW","Wert nicht gefunden")
GUICtrlSetData($PW,$R)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start
StartA1()
Case $MenuItem3
MsgBox(0,"Anleitung","Die Anleitung findest du in dem Ordner des Botes")
Case $MenuItem4
_IECreate("http://www.elitepvpers.com/forum/metin2-hacks-bots-cheats-exploits-macros/")
EndSwitch
IniWrite("Bot.dll","Daten","ID",GUICtrlRead($ID))
IniWrite("Bot.dll","Daten","PW",GUICtrlRead($PW))
WEnd
EndFunc
Func StartA1()
GUISEtState(@SW_HIDE)
If GUICtrLRead($Fenstername) = "METIN2" Then WinActivate("METIN2")
If GUICtrlRead($Fenstername) = "Às¾s" Then WinActivate("Às¾s")
If GUICtrLRead($Fenstername) = "METIN2" Then WinMove("METIN2","",0,0)
If GUICtrLRead($Fenstername) = "Às¾s" Then WinMove("Às¾s","",0,0)
while(1)
Do
sleep(100)
PixelSearch(120,359,147,387,0x8A1A1B)
Until Not @error
sleep(100)
If GUICtrlRead($Server)= "Server1" Then MouseClick("left",263,201)
If GUICtrlRead($Server)= "Server2" Then MouseClick("left",260,223)
If GUICtrlRead($Server)= "Server3" Then MouseClick("left",258,243)
If GUICtrlRead($Server)= "Server4" Then MouseClick("left",260,257)
If GUICtrlRead($Server)= "Server5" Then MouseClick("left",259,273)
If GUICtrlRead($Server)= "Server6" Then MouseClick("left",257,291)
If GUICtrlRead($Server)= "Server7" Then MouseCLick("left",267,309)
If GUICtrlRead($Server)= "Server8" Then MouseClick("left",260,328)
If GUICtrlRead($Server)= "Server9" Then MouseClick("left",260,344)
If GUICtrlRead($Server)= "Server10" Then MouseClick("left",260,358)
If GUICtrlRead($Server)= "Server11" Then MouseCLick("left",263,374)
If GUICtrlRead($Server)= "Server12" Then MouseClick("left",255,396)
If GUICtrlRead($Server)= "Server13" Then MouseClick("left",257,410)
If GUICtrlRead($Server)= "Server14" Then MouseClick("left",257,429)
If GUICtrlRead($Server)= "Server15" Then MouseClick("left",258,445)
If GUICtrlRead($Server)= "Server16" Then MouseClick("left",254,465)
If GUICtrlRead($Server)= "Server17" Then MouseClick("left",263,476)
If GUICtrlRead($Server)= "Server18" Then MouseClick("left",263,495)
sleep(100)
If GUICtrlRead($Channel) = "Channel1" Then MouseClick("left",509,204)
If GUICtrlRead($Channel) = "Channel2" Then MouseClick("left",509,226)
If GUICtrlRead($Channel) = "Channel3" Then MouseClick("left",507,240)
If GUICtrlRead($Channel) = "Channel4" Then MouseClick("left",507,256)
If GUICtrlRead($Channel) = "Channel5" Then MouseClick("left",498,272)
If GUICtrlRead($Channel) = "Channel6" Then MouseClick("left",498,294)
sleep(100)
MouseClick("left",530,519)
sleep(100)
send(GUICtrlRead($ID))
send("{enter}",0)
send(GUICtrlRead($PW))
MouseClick("left",584,550)
Do
sleep(100)
PixelSearch(13,218,31,238,0x3E352C)
Until Not @error
If GUICtrlRead($Char) = "1" Then sleep(100)
If GUICtrlRead($Char) = "2" Then MouseClick("left",469,553)
If GUICtrlRead($Char) = "3" Then MouseCLick("left",469,553)
If GUICtrlRead($Char) = "3" Then MouseCLick("left",469,553)
If GUICtrlRead($Char) = "4" Then MouseCLick("left",469,553)
If GUICtrlRead($Char) = "4" Then MouseCLick("left",469,553)
If GUICtrlRead($Char) = "4" Then MouseCLick("left",469,553)
sleep(100)
MouseClick("left",168,514)
WEnd
EndFunc
Func A900()
For $mpega = 0 To 100
GUICtrlSetData($Progress,$mpega)
sleep(10)
$mpega = $mpega + 1
Next
GUISetState(@SW_HIDE)
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Bei Kick -Einlogg Bot (C)(R) by 50Millionen", 500, 255, 192, 124)
GUISetFont(10, 800, 0, "Comic Sans MS")
$Label1 = GUICtrlCreateLabel("Deine Daten werden nicht weitergegeben!", 0, 104, 266, 23)
$Label2 = GUICtrlCreateLabel("Damit der Bei Kick - Einlogg Bot funktioniert musst du erst alles ausfüllen !!", 0, 8, 497, 23)
GUICtrlSetFont(-1, 10, 800, 4, "Comic Sans MS")
$Label3 = GUICtrlCreateLabel("ID:", 0, 40, 26, 23)
GUICtrlSetColor(-1, 0xFF0000)
$Label4 = GUICtrlCreateLabel("PW:", 0, 72, 31, 23)
GUICtrlSetColor(-1, 0xFF0000)
$ID = GUICtrlCreateInput("Beispiel", 32, 40, 121, 27)
$PW = GUICtrlCreateInput("Beispiel", 32, 72, 121, 27, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Pics\50.jpg", 392, 32, 100, 68, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label5 = GUICtrlCreateLabel("Wähle hier deinen Server und deinen Channel.", 0, 128, 302, 23)
$Label6 = GUICtrlCreateLabel("Channel:", 0, 160, 58, 23)
$Channel = GUICtrlCreateCombo("", 64, 160, 169, 25)
GUICtrlSetData(-1, "Channel1|Channel2|Channel3|Channel4|Channel5|Channel6")
$Label7 = GUICtrlCreateLabel("Server:", 240, 160, 51, 23)
$Server = GUICtrlCreateCombo("", 296, 160, 169, 25)
GUICtrlSetData(-1, "Server1|Server2|Server3|Server4|Server5|Server6|Server7|Server8|Server9|Server10|Server11|Server12|Server13|Server14|Server15|Server16|Server17|Server18")
$Label8 = GUICtrlCreateLabel("Character:", 0, 200, 72, 23)
$Char = GUICtrlCreateCombo("", 72, 200, 161, 25)
GUICtrlSetData(-1, "1|2|3|4")
$Label9 = GUICtrlCreateLabel("Fenstername:", 240, 200, 88, 23)
$Fenstername = GUICtrlCreateCombo("", 328, 200, 137, 25)
GUICtrlSetData(-1, "METIN2|Às¾s")
$Start = GUICtrlCreateButton("Start", 392, 104, 99, 41, 0)
$MenuItem2 = GUICtrlCreateMenu("Hilfe")
$MenuItem3 = GUICtrlCreateMenuItem("Anleitung", $MenuItem2)
$MenuItem4 = GUICtrlCreateMenuItem("Elitepvper Forum", $MenuItem2)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$R = IniRead("Bot.dll","Daten","ID","Wert nicht gefunden")
GUICtrlSetData($ID,$R)
$R = IniRead("Bot.dll","Daten","PW","Wert nicht gefunden")
GUICtrlSetData($PW,$R)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start
StartA2()
Case $MenuItem3
MsgBox(0,"Anleitung","Die Anleitung findest du in dem Ordner des Botes")
Case $MenuItem4
_IECreate("http://www.elitepvpers.com/forum/metin2-hacks-bots-cheats-exploits-macros/")
EndSwitch
IniWrite("Bot.dll","Daten","ID",GUICtrlRead($ID))
IniWrite("Bot.dll","Daten","PW",GUICtrlRead($PW))
WEnd
EndFunc
Func StartA2()
GUISETSTATE(@SW_HIDE)
If GUICtrLRead($Fenstername) = "METIN2" Then WinActivate("METIN2")
If GUICtrlRead($Fenstername) = "Às¾s" Then WinActivate("Às¾s")
If GUICtrLRead($Fenstername) = "METIN2" Then WinMove("METIN2","",0,0)
If GUICtrLRead($Fenstername) = "Às¾s" Then WinMove("Às¾s","",0,0)
while(1)
Do
sleep(100)
PixelSearch(153,365,172,391,0x72191D)
Until Not @error
sleep(100)
If GUICtrlRead($Server)= "Server1" Then MouseClick("left",328,208)
If GUICtrlRead($Server)= "Server2" Then MouseClick("left",330,223)
If GUICtrlRead($Server)= "Server3" Then MouseClick("left",334,239)
If GUICtrlRead($Server)= "Server4" Then MouseClick("left",331,259)
If GUICtrlRead($Server)= "Server5" Then MouseClick("left",328,274)
If GUICtrlRead($Server)= "Server6" Then MouseClick("left",333,291)
If GUICtrlRead($Server)= "Server7" Then MouseCLick("left",338,308)
If GUICtrlRead($Server)= "Server8" Then MouseClick("left",339,327)
If GUICtrlRead($Server)= "Server9" Then MouseClick("left",338,342)
If GUICtrlRead($Server)= "Server10" Then MouseClick("left",338,359)
If GUICtrlRead($Server)= "Server11" Then MouseCLick("left",335,377)
If GUICtrlRead($Server)= "Server12" Then MouseClick("left",331,395)
If GUICtrlRead($Server)= "Server13" Then MouseClick("left",334,405)
If GUICtrlRead($Server)= "Server14" Then MouseClick("left",331,426)
If GUICtrlRead($Server)= "Server15" Then MouseClick("left",333,443)
If GUICtrlRead($Server)= "Server16" Then MouseClick("left",333,463)
If GUICtrlRead($Server)= "Server17" Then MouseClick("left",333,478)
If GUICtrlRead($Server)= "Server18" Then MouseClick("left",333,492)
sleep(100)
If GUICtrlRead($Channel) = "Channel1" Then MouseClick("left",591,212)
If GUICtrlRead($Channel) = "Channel2" Then MouseClick("left",591,223)
If GUICtrlRead($Channel) = "Channel3" Then MouseClick("left",587,238)
If GUICtrlRead($Channel) = "Channel4" Then MouseClick("left",588,255)
If GUICtrlRead($Channel) = "Channel5" Then MouseClick("left",588,273)
If GUICtrlRead($Channel) = "Channel6" Then MouseClick("left",587,295)
sleep(100)
MouseClick("left",599,517)
sleep(100)
send(GUICtrlRead($ID))
send("{enter}",0)
send(GUICtrlRead($PW))
MouseClick("left",731,552)
Do
sleep(100)
PixelSearch(13,218,39,241,0x483F36)
Until Not @error
If GUICtrlRead($Char) = "1" Then sleep(100)
If GUICtrlRead($Char) = "2" Then MouseClick("left",553,560)
If GUICtrlRead($Char) = "3" Then MouseCLick("left",553,560)
If GUICtrlRead($Char) = "3" Then MouseCLick("left",553,560)
If GUICtrlRead($Char) = "4" Then MouseCLick("left",553,560)
If GUICtrlRead($Char) = "4" Then MouseCLick("left",553,560)
If GUICtrlRead($Char) = "4" Then MouseCLick("left",553,560)
sleep(100)
MouseClick("left",179,511)
WEnd
EndFunc
Func A1000()
For $mpega = 0 To 100
GUICtrlSetData($Progress,$mpega)
sleep(10)
$mpega = $mpega + 1
Next
GUISetState(@SW_HIDE)
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Bei Kick -Einlogg Bot (C)(R) by 50Millionen", 500, 255, 192, 124)
GUISetFont(10, 800, 0, "Comic Sans MS")
$Label1 = GUICtrlCreateLabel("Deine Daten werden nicht weitergegeben!", 0, 104, 266, 23)
$Label2 = GUICtrlCreateLabel("Damit der Bei Kick - Einlogg Bot funktioniert musst du erst alles ausfüllen !!", 0, 8, 497, 23)
GUICtrlSetFont(-1, 10, 800, 4, "Comic Sans MS")
$Label3 = GUICtrlCreateLabel("ID:", 0, 40, 26, 23)
GUICtrlSetColor(-1, 0xFF0000)
$Label4 = GUICtrlCreateLabel("PW:", 0, 72, 31, 23)
GUICtrlSetColor(-1, 0xFF0000)
$ID = GUICtrlCreateInput("Beispiel", 32, 40, 121, 27)
$PW = GUICtrlCreateInput("Beispiel", 32, 72, 121, 27, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Pics\50.jpg", 392, 32, 100, 68, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label5 = GUICtrlCreateLabel("Wähle hier deinen Server und deinen Channel.", 0, 128, 302, 23)
$Label6 = GUICtrlCreateLabel("Channel:", 0, 160, 58, 23)
$Channel = GUICtrlCreateCombo("", 64, 160, 169, 25)
GUICtrlSetData(-1, "Channel1|Channel2|Channel3|Channel4|Channel5|Channel6")
$Label7 = GUICtrlCreateLabel("Server:", 240, 160, 51, 23)
$Server = GUICtrlCreateCombo("", 296, 160, 169, 25)
GUICtrlSetData(-1, "Server1|Server2|Server3|Server4|Server5|Server6|Server7|Server8|Server9|Server10|Server11|Server12|Server13|Server14|Server15|Server16|Server17|Server18")
$Label8 = GUICtrlCreateLabel("Character:", 0, 200, 72, 23)
$Char = GUICtrlCreateCombo("", 72, 200, 161, 25)
GUICtrlSetData(-1, "1|2|3|4")
$Label9 = GUICtrlCreateLabel("Fenstername:", 240, 200, 88, 23)
$Fenstername = GUICtrlCreateCombo("", 328, 200, 137, 25)
GUICtrlSetData(-1, "METIN2|Às¾s")
$Start = GUICtrlCreateButton("Start", 392, 104, 99, 41, 0)
$MenuItem2 = GUICtrlCreateMenu("Hilfe")
$MenuItem3 = GUICtrlCreateMenuItem("Anleitung", $MenuItem2)
$MenuItem4 = GUICtrlCreateMenuItem("Elitepvper Forum", $MenuItem2)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$R = IniRead("Bot.dll","Daten","ID","Wert nicht gefunden")
GUICtrlSetData($ID,$R)
$R = IniRead("Bot.dll","Daten","PW","Wert nicht gefunden")
GUICtrlSetData($PW,$R)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start
StartA3()
Case $MenuItem3
MsgBox(0,"Anleitung","Die Anleitung findest du in dem Ordner des Botes")
Case $MenuItem4
_IECreate("http://www.elitepvpers.com/forum/metin2-hacks-bots-cheats-exploits-macros/")
EndSwitch
IniWrite("Bot.dll","Daten","ID",GUICtrlRead($ID))
IniWrite("Bot.dll","Daten","PW",GUICtrlRead($PW))
WEnd
EndFunc
Func StartA3()
GUISETSTATE(@SW_HIDE)
If GUICtrLRead($Fenstername) = "METIN2" Then WinActivate("METIN2")
If GUICtrlRead($Fenstername) = "Às¾s" Then WinActivate("Às¾s")
If GUICtrLRead($Fenstername) = "METIN2" Then WinMove("METIN2","",0,0)
If GUICtrLRead($Fenstername) = "Às¾s" Then WinMove("Às¾s","",0,0)
while(1)
Do
sleep(100)
PixelSearch(163,463,188,487,0xAB1C1A)
Until Not @error
sleep(100)
If GUICtrlRead($Server)= "Server1" Then MouseClick("left",373,372)
If GUICtrlRead($Server)= "Server2" Then MouseClick("left",374,394)
If GUICtrlRead($Server)= "Server3" Then MouseClick("left",375,407)
If GUICtrlRead($Server)= "Server4" Then MouseClick("left",373,425)
If GUICtrlRead($Server)= "Server5" Then MouseClick("left",374,445)
If GUICtrlRead($Server)= "Server6" Then MouseClick("left",376,460)
If GUICtrlRead($Server)= "Server7" Then MouseCLick("left",377,474)
If GUICtrlRead($Server)= "Server8" Then MouseClick("left",377,492)
If GUICtrlRead($Server)= "Server9" Then MouseClick("left",376,510)
If GUICtrlRead($Server)= "Server10" Then MouseClick("left",372,526)
If GUICtrlRead($Server)= "Server11" Then MouseCLick("left",372,540)
If GUICtrlRead($Server)= "Server12" Then MouseClick("left",372,563)
If GUICtrlRead($Server)= "Server13" Then MouseClick("left",373,575)
If GUICtrlRead($Server)= "Server14" Then MouseClick("left",374,594)
If GUICtrlRead($Server)= "Server15" Then MouseClick("left",374,612)
If GUICtrlRead($Server)= "Server16" Then MouseClick("left",374,625)
If GUICtrlRead($Server)= "Server17" Then MouseClick("left",375,641)
If GUICtrlRead($Server)= "Server18" Then MouseClick("left",377,664)
sleep(100)
If GUICtrlRead($Channel) = "Channel1" Then MouseClick("left",631,372)
If GUICtrlRead($Channel) = "Channel2" Then MouseClick("left",630,389)
If GUICtrlRead($Channel) = "Channel3" Then MouseClick("left",629,409)
If GUICtrlRead($Channel) = "Channel4" Then MouseClick("left",628,425)
If GUICtrlRead($Channel) = "Channel5" Then MouseClick("left",625,442)
If GUICtrlRead($Channel) = "Channel6" Then MouseClick("left",622,460)
sleep(100)
MouseClick("left",632,683)
sleep(100)
send(GUICtrlRead($ID))
send("{enter}",0)
send(GUICtrlRead($PW))
MouseClick("left",803,719)
Do
sleep(100)
PixelSearch(15,272,45,301,0x3D342B)
Until Not @error
If GUICtrlRead($Char) = "1" Then sleep(100)
If GUICtrlRead($Char) = "2" Then MouseClick("left",580,695)
If GUICtrlRead($Char) = "3" Then MouseClick("left",580,695)
If GUICtrlRead($Char) = "3" Then MouseClick("left",580,695)
If GUICtrlRead($Char) = "4" Then MouseClick("left",580,695)
If GUICtrlRead($Char) = "4" Then MouseClick("left",580,695)
If GUICtrlRead($Char) = "4" Then MouseClick("left",580,695)
sleep(100)
MouseClick("left",185,570)
WEnd
EndFunc
Func B1000()
For $mpega = 0 To 100
GUICtrlSetData($Progress,$mpega)
sleep(10)
$mpega = $mpega + 1
Next
GUISetState(@SW_HIDE)
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Bei Kick -Einlogg Bot (C)(R) by 50Millionen", 500, 255, 192, 124)
GUISetFont(10, 800, 0, "Comic Sans MS")
$Label1 = GUICtrlCreateLabel("Deine Daten werden nicht weitergegeben!", 0, 104, 266, 23)
$Label2 = GUICtrlCreateLabel("Damit der Bei Kick - Einlogg Bot funktioniert musst du erst alles ausfüllen !!", 0, 8, 497, 23)
GUICtrlSetFont(-1, 10, 800, 4, "Comic Sans MS")
$Label3 = GUICtrlCreateLabel("ID:", 0, 40, 26, 23)
GUICtrlSetColor(-1, 0xFF0000)
$Label4 = GUICtrlCreateLabel("PW:", 0, 72, 31, 23)
GUICtrlSetColor(-1, 0xFF0000)
$ID = GUICtrlCreateInput("Beispiel", 32, 40, 121, 27)
$PW = GUICtrlCreateInput("Beispiel", 32, 72, 121, 27, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Pics\50.jpg", 392, 32, 100, 68, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label5 = GUICtrlCreateLabel("Wähle hier deinen Server und deinen Channel.", 0, 128, 302, 23)
$Label6 = GUICtrlCreateLabel("Channel:", 0, 160, 58, 23)
$Channel = GUICtrlCreateCombo("", 64, 160, 169, 25)
GUICtrlSetData(-1, "Channel1|Channel2|Channel3|Channel4|Channel5|Channel6")
$Label7 = GUICtrlCreateLabel("Server:", 240, 160, 51, 23)
$Server = GUICtrlCreateCombo("", 296, 160, 169, 25)
GUICtrlSetData(-1, "Server1|Server2|Server3|Server4|Server5|Server6|Server7|Server8|Server9|Server10|Server11|Server12|Server13|Server14|Server15|Server16|Server17|Server18")
$Label8 = GUICtrlCreateLabel("Character:", 0, 200, 72, 23)
$Char = GUICtrlCreateCombo("", 72, 200, 161, 25)
GUICtrlSetData(-1, "1|2|3|4")
$Label9 = GUICtrlCreateLabel("Fenstername:", 240, 200, 88, 23)
$Fenstername = GUICtrlCreateCombo("", 328, 200, 137, 25)
GUICtrlSetData(-1, "METIN2|Às¾s")
$Start = GUICtrlCreateButton("Start", 392, 104, 99, 41, 0)
$MenuItem2 = GUICtrlCreateMenu("Hilfe")
$MenuItem3 = GUICtrlCreateMenuItem("Anleitung", $MenuItem2)
$MenuItem4 = GUICtrlCreateMenuItem("Elitepvper Forum", $MenuItem2)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$R = IniRead("Bot.dll","Daten","ID","Wert nicht gefunden")
GUICtrlSetData($ID,$R)
$R = IniRead("Bot.dll","Daten","PW","Wert nicht gefunden")
GUICtrlSetData($PW,$R)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start
StartB3()
Case $MenuItem3
MsgBox(0,"Anleitung","Die Anleitung findest du in dem Ordner des Botes")
Case $MenuItem4
_IECreate("http://www.elitepvpers.com/forum/metin2-hacks-bots-cheats-exploits-macros/")
EndSwitch
IniWrite("Bot.dll","Daten","ID",GUICtrlRead($ID))
IniWrite("Bot.dll","Daten","PW",GUICtrlRead($PW))
WEnd
EndFunc
Func StartB3()
GUISetState(@SW_HIDE)
If GUICtrLRead($Fenstername) = "METIN2" Then WinActivate("METIN2")
If GUICtrlRead($Fenstername) = "Às¾s" Then WinActivate("Às¾s")
If GUICtrLRead($Fenstername) = "METIN2" Then WinMove("METIN2","",0,0)
If GUICtrLRead($Fenstername) = "Às¾s" Then WinMove("Às¾s","",0,0)
while(1)
Do
sleep(100)
PixelSearch(163,463,188,487,0x60191B)
Until Not @error
sleep(100)
If GUICtrlRead($Server)= "Server1" Then MouseClick("left",373,372)
If GUICtrlRead($Server)= "Server2" Then MouseClick("left",374,394)
If GUICtrlRead($Server)= "Server3" Then MouseClick("left",375,407)
If GUICtrlRead($Server)= "Server4" Then MouseClick("left",373,425)
If GUICtrlRead($Server)= "Server5" Then MouseClick("left",374,445)
If GUICtrlRead($Server)= "Server6" Then MouseClick("left",376,460)
If GUICtrlRead($Server)= "Server7" Then MouseCLick("left",377,474)
If GUICtrlRead($Server)= "Server8" Then MouseClick("left",377,492)
If GUICtrlRead($Server)= "Server9" Then MouseClick("left",376,510)
If GUICtrlRead($Server)= "Server10" Then MouseClick("left",372,526)
If GUICtrlRead($Server)= "Server11" Then MouseCLick("left",372,540)
If GUICtrlRead($Server)= "Server12" Then MouseClick("left",372,563)
If GUICtrlRead($Server)= "Server13" Then MouseClick("left",373,575)
If GUICtrlRead($Server)= "Server14" Then MouseClick("left",374,594)
If GUICtrlRead($Server)= "Server15" Then MouseClick("left",374,612)
If GUICtrlRead($Server)= "Server16" Then MouseClick("left",374,625)
If GUICtrlRead($Server)= "Server17" Then MouseClick("left",375,641)
If GUICtrlRead($Server)= "Server18" Then MouseClick("left",377,664)
sleep(100)
If GUICtrlRead($Channel) = "Channel1" Then MouseClick("left",631,372)
If GUICtrlRead($Channel) = "Channel2" Then MouseClick("left",630,389)
If GUICtrlRead($Channel) = "Channel3" Then MouseClick("left",629,409)
If GUICtrlRead($Channel) = "Channel4" Then MouseClick("left",628,425)
If GUICtrlRead($Channel) = "Channel5" Then MouseClick("left",625,442)
If GUICtrlRead($Channel) = "Channel6" Then MouseClick("left",622,460)
sleep(100)
MouseClick("left",632,683)
sleep(100)
send(GUICtrlRead($ID))
send("{enter}",0)
send(GUICtrlRead($PW))
MouseClick("left",803,719)
Do
sleep(100)
PixelSearch(15,272,45,301,0x4E4437)
Until Not @error
If GUICtrlRead($Char) = "1" Then sleep(100)
If GUICtrlRead($Char) = "2" Then MouseClick("left",580,695)
If GUICtrlRead($Char) = "3" Then MouseClick("left",580,695)
If GUICtrlRead($Char) = "3" Then MouseClick("left",580,695)
If GUICtrlRead($Char) = "4" Then MouseClick("left",580,695)
If GUICtrlRead($Char) = "4" Then MouseClick("left",580,695)
If GUICtrlRead($Char) = "4" Then MouseClick("left",580,695)
sleep(100)
MouseClick("left",185,570)
WEnd
EndFunc
Func B900()
For $mpega = 0 To 100
GUICtrlSetData($Progress,$mpega)
sleep(10)
$mpega = $mpega + 1
Next
GUISetState(@SW_HIDE)
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Bei Kick -Einlogg Bot (C)(R) by 50Millionen", 500, 255, 192, 124)
GUISetFont(10, 800, 0, "Comic Sans MS")
$Label1 = GUICtrlCreateLabel("Deine Daten werden nicht weitergegeben!", 0, 104, 266, 23)
$Label2 = GUICtrlCreateLabel("Damit der Bei Kick - Einlogg Bot funktioniert musst du erst alles ausfüllen !!", 0, 8, 497, 23)
GUICtrlSetFont(-1, 10, 800, 4, "Comic Sans MS")
$Label3 = GUICtrlCreateLabel("ID:", 0, 40, 26, 23)
GUICtrlSetColor(-1, 0xFF0000)
$Label4 = GUICtrlCreateLabel("PW:", 0, 72, 31, 23)
GUICtrlSetColor(-1, 0xFF0000)
$ID = GUICtrlCreateInput("Beispiel", 32, 40, 121, 27)
$PW = GUICtrlCreateInput("Beispiel", 32, 72, 121, 27, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Pics\50.jpg", 392, 32, 100, 68, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label5 = GUICtrlCreateLabel("Wähle hier deinen Server und deinen Channel.", 0, 128, 302, 23)
$Label6 = GUICtrlCreateLabel("Channel:", 0, 160, 58, 23)
$Channel = GUICtrlCreateCombo("", 64, 160, 169, 25)
GUICtrlSetData(-1, "Channel1|Channel2|Channel3|Channel4|Channel5|Channel6")
$Label7 = GUICtrlCreateLabel("Server:", 240, 160, 51, 23)
$Server = GUICtrlCreateCombo("", 296, 160, 169, 25)
GUICtrlSetData(-1, "Server1|Server2|Server3|Server4|Server5|Server6|Server7|Server8|Server9|Server10|Server11|Server12|Server13|Server14|Server15|Server16|Server17|Server18")
$Label8 = GUICtrlCreateLabel("Character:", 0, 200, 72, 23)
$Char = GUICtrlCreateCombo("", 72, 200, 161, 25)
GUICtrlSetData(-1, "1|2|3|4")
$Label9 = GUICtrlCreateLabel("Fenstername:", 240, 200, 88, 23)
$Fenstername = GUICtrlCreateCombo("", 328, 200, 137, 25)
GUICtrlSetData(-1, "METIN2|Às¾s")
$Start = GUICtrlCreateButton("Start", 392, 104, 99, 41, 0)
$MenuItem2 = GUICtrlCreateMenu("Hilfe")
$MenuItem3 = GUICtrlCreateMenuItem("Anleitung", $MenuItem2)
$MenuItem4 = GUICtrlCreateMenuItem("Elitepvper Forum", $MenuItem2)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$R = IniRead("Bot.dll","Daten","ID","Wert nicht gefunden")
GUICtrlSetData($ID,$R)
$R = IniRead("Bot.dll","Daten","PW","Wert nicht gefunden")
GUICtrlSetData($PW,$R)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start
StartB2()
Case $MenuItem3
MsgBox(0,"Anleitung","Die Anleitung findest du in dem Ordner des Botes")
Case $MenuItem4
_IECreate("http://www.elitepvpers.com/forum/metin2-hacks-bots-cheats-exploits-macros/")
EndSwitch
IniWrite("Bot.dll","Daten","ID",GUICtrlRead($ID))
IniWrite("Bot.dll","Daten","PW",GUICtrlRead($PW))
WEnd
EndFunc
Func StartB2()
GUISETSTATE(@SW_HIDE)
If GUICtrLRead($Fenstername) = "METIN2" Then WinActivate("METIN2")
If GUICtrlRead($Fenstername) = "Às¾s" Then WinActivate("Às¾s")
If GUICtrLRead($Fenstername) = "METIN2" Then WinMove("METIN2","",0,0)
If GUICtrLRead($Fenstername) = "Às¾s" Then WinMove("Às¾s","",0,0)
while(1)
Do
sleep(100)
PixelSearch(153,365,172,391,0xF21919)
Until Not @error
sleep(100)
If GUICtrlRead($Server)= "Server1" Then MouseClick("left",328,208)
If GUICtrlRead($Server)= "Server2" Then MouseClick("left",330,223)
If GUICtrlRead($Server)= "Server3" Then MouseClick("left",334,239)
If GUICtrlRead($Server)= "Server4" Then MouseClick("left",331,259)
If GUICtrlRead($Server)= "Server5" Then MouseClick("left",328,274)
If GUICtrlRead($Server)= "Server6" Then MouseClick("left",333,291)
If GUICtrlRead($Server)= "Server7" Then MouseCLick("left",338,308)
If GUICtrlRead($Server)= "Server8" Then MouseClick("left",339,327)
If GUICtrlRead($Server)= "Server9" Then MouseClick("left",338,342)
If GUICtrlRead($Server)= "Server10" Then MouseClick("left",338,359)
If GUICtrlRead($Server)= "Server11" Then MouseCLick("left",335,377)
If GUICtrlRead($Server)= "Server12" Then MouseClick("left",331,395)
If GUICtrlRead($Server)= "Server13" Then MouseClick("left",334,405)
If GUICtrlRead($Server)= "Server14" Then MouseClick("left",331,426)
If GUICtrlRead($Server)= "Server15" Then MouseClick("left",333,443)
If GUICtrlRead($Server)= "Server16" Then MouseClick("left",333,463)
If GUICtrlRead($Server)= "Server17" Then MouseClick("left",333,478)
If GUICtrlRead($Server)= "Server18" Then MouseClick("left",333,492)
sleep(100)
If GUICtrlRead($Channel) = "Channel1" Then MouseClick("left",591,212)
If GUICtrlRead($Channel) = "Channel2" Then MouseClick("left",591,223)
If GUICtrlRead($Channel) = "Channel3" Then MouseClick("left",587,238)
If GUICtrlRead($Channel) = "Channel4" Then MouseClick("left",588,255)
If GUICtrlRead($Channel) = "Channel5" Then MouseClick("left",588,273)
If GUICtrlRead($Channel) = "Channel6" Then MouseClick("left",587,295)
sleep(100)
MouseClick("left",599,517)
sleep(100)
send(GUICtrlRead($ID))
send("{enter}",0)
send(GUICtrlRead($PW))
MouseClick("left",731,552)
Do
sleep(100)
PixelSearch(13,218,39,241,0x4E453C)
Until Not @error
If GUICtrlRead($Char) = "1" Then sleep(100)
If GUICtrlRead($Char) = "2" Then MouseClick("left",553,560)
If GUICtrlRead($Char) = "3" Then MouseCLick("left",553,560)
If GUICtrlRead($Char) = "3" Then MouseCLick("left",553,560)
If GUICtrlRead($Char) = "4" Then MouseCLick("left",553,560)
If GUICtrlRead($Char) = "4" Then MouseCLick("left",553,560)
If GUICtrlRead($Char) = "4" Then MouseCLick("left",553,560)
sleep(100)
MouseClick("left",179,511)
WEnd
EndFunc
Func B800()
For $mpega = 0 To 100
GUICtrlSetData($Progress,$mpega)
sleep(10)
$mpega = $mpega + 1
Next
GUISetState(@SW_HIDE)
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Bei Kick -Einlogg Bot (C)(R) by 50Millionen", 500, 255, 192, 124)
GUISetFont(10, 800, 0, "Comic Sans MS")
$Label1 = GUICtrlCreateLabel("Deine Daten werden nicht weitergegeben!", 0, 104, 266, 23)
$Label2 = GUICtrlCreateLabel("Damit der Bei Kick - Einlogg Bot funktioniert musst du erst alles ausfüllen !!", 0, 8, 497, 23)
GUICtrlSetFont(-1, 10, 800, 4, "Comic Sans MS")
$Label3 = GUICtrlCreateLabel("ID:", 0, 40, 26, 23)
GUICtrlSetColor(-1, 0xFF0000)
$Label4 = GUICtrlCreateLabel("PW:", 0, 72, 31, 23)
GUICtrlSetColor(-1, 0xFF0000)
$ID = GUICtrlCreateInput("Beispiel", 32, 40, 121, 27)
$PW = GUICtrlCreateInput("Beispiel", 32, 72, 121, 27, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Pics\50.jpg", 392, 32, 100, 68, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label5 = GUICtrlCreateLabel("Wähle hier deinen Server und deinen Channel.", 0, 128, 302, 23)
$Label6 = GUICtrlCreateLabel("Channel:", 0, 160, 58, 23)
$Channel = GUICtrlCreateCombo("", 64, 160, 169, 25)
GUICtrlSetData(-1, "Channel1|Channel2|Channel3|Channel4|Channel5|Channel6")
$Label7 = GUICtrlCreateLabel("Server:", 240, 160, 51, 23)
$Server = GUICtrlCreateCombo("", 296, 160, 169, 25)
GUICtrlSetData(-1, "Server1|Server2|Server3|Server4|Server5|Server6|Server7|Server8|Server9|Server10|Server11|Server12|Server13|Server14|Server15|Server16|Server17|Server18")
$Label8 = GUICtrlCreateLabel("Character:", 0, 200, 72, 23)
$Char = GUICtrlCreateCombo("", 72, 200, 161, 25)
GUICtrlSetData(-1, "1|2|3|4")
$Label9 = GUICtrlCreateLabel("Fenstername:", 240, 200, 88, 23)
$Fenstername = GUICtrlCreateCombo("", 328, 200, 137, 25)
GUICtrlSetData(-1, "METIN2|Às¾s")
$Start = GUICtrlCreateButton("Start", 392, 104, 99, 41, 0)
$MenuItem2 = GUICtrlCreateMenu("Hilfe")
$MenuItem3 = GUICtrlCreateMenuItem("Anleitung", $MenuItem2)
$MenuItem4 = GUICtrlCreateMenuItem("Elitepvper Forum", $MenuItem2)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$R = IniRead("Bot.dll","Daten","ID","Wert nicht gefunden")
GUICtrlSetData($ID,$R)
$R = IniRead("Bot.dll","Daten","PW","Wert nicht gefunden")
GUICtrlSetData($PW,$R)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start
StartB1()
Case $MenuItem3
MsgBox(0,"Anleitung","Die Anleitung findest du in dem Ordner des Botes")
Case $MenuItem4
_IECreate("http://www.elitepvpers.com/forum/metin2-hacks-bots-cheats-exploits-macros/")
EndSwitch
IniWrite("Bot.dll","Daten","ID",GUICtrlRead($ID))
IniWrite("Bot.dll","Daten","PW",GUICtrlRead($PW))
WEnd
EndFunc
Func StartB1()
GUISEtState(@SW_HIDE)
If GUICtrLRead($Fenstername) = "METIN2" Then WinActivate("METIN2")
If GUICtrlRead($Fenstername) = "Às¾s" Then WinActivate("Às¾s")
If GUICtrLRead($Fenstername) = "METIN2" Then WinMove("METIN2","",0,0)
If GUICtrLRead($Fenstername) = "Às¾s" Then WinMove("Às¾s","",0,0)
while(1)
Do
sleep(100)
PixelSearch(120,359,147,387,0x861C1A)
Until Not @error
sleep(100)
If GUICtrlRead($Server)= "Server1" Then MouseClick("left",263,201)
If GUICtrlRead($Server)= "Server2" Then MouseClick("left",260,223)
If GUICtrlRead($Server)= "Server3" Then MouseClick("left",258,243)
If GUICtrlRead($Server)= "Server4" Then MouseClick("left",260,257)
If GUICtrlRead($Server)= "Server5" Then MouseClick("left",259,273)
If GUICtrlRead($Server)= "Server6" Then MouseClick("left",257,291)
If GUICtrlRead($Server)= "Server7" Then MouseCLick("left",267,309)
If GUICtrlRead($Server)= "Server8" Then MouseClick("left",260,328)
If GUICtrlRead($Server)= "Server9" Then MouseClick("left",260,344)
If GUICtrlRead($Server)= "Server10" Then MouseClick("left",260,358)
If GUICtrlRead($Server)= "Server11" Then MouseCLick("left",263,374)
If GUICtrlRead($Server)= "Server12" Then MouseClick("left",255,396)
If GUICtrlRead($Server)= "Server13" Then MouseClick("left",257,410)
If GUICtrlRead($Server)= "Server14" Then MouseClick("left",257,429)
If GUICtrlRead($Server)= "Server15" Then MouseClick("left",258,445)
If GUICtrlRead($Server)= "Server16" Then MouseClick("left",254,465)
If GUICtrlRead($Server)= "Server17" Then MouseClick("left",263,476)
If GUICtrlRead($Server)= "Server18" Then MouseClick("left",263,495)
sleep(100)
If GUICtrlRead($Channel) = "Channel1" Then MouseClick("left",509,204)
If GUICtrlRead($Channel) = "Channel2" Then MouseClick("left",509,226)
If GUICtrlRead($Channel) = "Channel3" Then MouseClick("left",507,240)
If GUICtrlRead($Channel) = "Channel4" Then MouseClick("left",507,256)
If GUICtrlRead($Channel) = "Channel5" Then MouseClick("left",498,272)
If GUICtrlRead($Channel) = "Channel6" Then MouseClick("left",498,294)
sleep(100)
MouseClick("left",530,519)
sleep(100)
send(GUICtrlRead($ID))
send("{enter}",0)
send(GUICtrlRead($PW))
MouseClick("left",584,550)
Do
sleep(100)
PixelSearch(13,218,31,238,0x3E352C)
Until Not @error
If GUICtrlRead($Char) = "1" Then sleep(100)
If GUICtrlRead($Char) = "2" Then MouseClick("left",469,553)
If GUICtrlRead($Char) = "3" Then MouseCLick("left",469,553)
If GUICtrlRead($Char) = "3" Then MouseCLick("left",469,553)
If GUICtrlRead($Char) = "4" Then MouseCLick("left",469,553)
If GUICtrlRead($Char) = "4" Then MouseCLick("left",469,553)
If GUICtrlRead($Char) = "4" Then MouseCLick("left",469,553)
sleep(100)
MouseClick("left",168,514)
WEnd
EndFunc
Func my16()
For $mpega = 0 To 100
GUICtrlSetData($Progress,$mpega)
sleep(10)
$mpega = $mpega + 1
Next
GUISetState(@SW_HIDE)
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Bei Kick -Einlogg Bot (C)(R) by 50Millionen", 500, 255, 192, 124)
GUISetFont(10, 800, 0, "Comic Sans MS")
$Label1 = GUICtrlCreateLabel("Deine Daten werden nicht weitergegeben!", 0, 104, 266, 23)
$Label2 = GUICtrlCreateLabel("Damit der Bei Kick - Einlogg Bot funktioniert musst du erst alles ausfüllen !!", 0, 8, 497, 23)
GUICtrlSetFont(-1, 10, 800, 4, "Comic Sans MS")
$Label3 = GUICtrlCreateLabel("ID:", 0, 40, 26, 23)
GUICtrlSetColor(-1, 0xFF0000)
$Label4 = GUICtrlCreateLabel("PW:", 0, 72, 31, 23)
GUICtrlSetColor(-1, 0xFF0000)
$ID = GUICtrlCreateInput("Beispiel", 32, 40, 121, 27)
$PW = GUICtrlCreateInput("Beispiel", 32, 72, 121, 27, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Pics\50.jpg", 392, 32, 100, 68, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label5 = GUICtrlCreateLabel("Wähle hier deinen Server und deinen Channel.", 0, 128, 302, 23)
$Label6 = GUICtrlCreateLabel("Channel:", 0, 160, 58, 23)
$Channel = GUICtrlCreateCombo("", 64, 160, 169, 25)
GUICtrlSetData(-1, "Channel1|Channel2|Channel3|Channel4|Channel5|Channel6")
$Label7 = GUICtrlCreateLabel("Server:", 240, 160, 51, 23)
$Server = GUICtrlCreateCombo("", 296, 160, 169, 25)
GUICtrlSetData(-1, "Server1|Server2|Server3|Server4|Server5|Server6|Server7|Server8|Server9|Server10|Server11|Server12|Server13|Server14|Server15|Server16|Server17|Server18")
$Label8 = GUICtrlCreateLabel("Character:", 0, 200, 72, 23)
$Char = GUICtrlCreateCombo("", 72, 200, 161, 25)
GUICtrlSetData(-1, "1|2|3|4")
$Label9 = GUICtrlCreateLabel("Fenstername:", 240, 200, 88, 23)
$Fenstername = GUICtrlCreateCombo("", 328, 200, 137, 25)
GUICtrlSetData(-1, "METIN2|Às¾s")
$Start = GUICtrlCreateButton("Start", 392, 104, 99, 41, 0)
$MenuItem2 = GUICtrlCreateMenu("Hilfe")
$MenuItem3 = GUICtrlCreateMenuItem("Anleitung", $MenuItem2)
$MenuItem4 = GUICtrlCreateMenuItem("Elitepvper Forum", $MenuItem2)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$R = IniRead("Bot.dll","Daten","ID","Wert nicht gefunden")
GUICtrlSetData($ID,$R)
$R = IniRead("Bot.dll","Daten","PW","Wert nicht gefunden")
GUICtrlSetData($PW,$R)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start
StartM1()
Case $MenuItem3
MsgBox(0,"Anleitung","Die Anleitung findest du in dem Ordner des Botes")
Case $MenuItem4
_IECreate("http://www.elitepvpers.com/forum/metin2-hacks-bots-cheats-exploits-macros/")
EndSwitch
IniWrite("Bot.dll","Daten","ID",GUICtrlRead($ID))
IniWrite("Bot.dll","Daten","PW",GUICtrlRead($PW))
WEnd
EndFunc
Func StartM1()
GUISEtState(@SW_HIDE)
If GUICtrLRead($Fenstername) = "METIN2" Then WinActivate("METIN2")
If GUICtrlRead($Fenstername) = "Às¾s" Then WinActivate("Às¾s")
If GUICtrLRead($Fenstername) = "METIN2" Then WinMove("METIN2","",0,0)
If GUICtrLRead($Fenstername) = "Às¾s" Then WinMove("Às¾s","",0,0)
while(1)
Do
sleep(100)
PixelSearch(205,537,234,567,0xC71B18)
Until Not @error
sleep(100)
If GUICtrlRead($Server)= "Server1" Then MouseClick("left",499,503)
If GUICtrlRead($Server)= "Server2" Then MouseClick("left",501,510)
If GUICtrlRead($Server)= "Server3" Then MouseClick("left",501,546)
If GUICtrlRead($Server)= "Server4" Then MouseClick("left",501,560)
If GUICtrlRead($Server)= "Server5" Then MouseClick("left",499,581)
If GUICtrlRead($Server)= "Server6" Then MouseClick("left",500,591)
If GUICtrlRead($Server)= "Server7" Then MouseCLick("left",499,606)
If GUICtrlRead($Server)= "Server8" Then MouseClick("left",503,638)
If GUICtrlRead($Server)= "Server9" Then MouseClick("left",503,640)
If GUICtrlRead($Server)= "Server10" Then MouseClick("left",493,656)
If GUICtrlRead($Server)= "Server11" Then MouseCLick("left",506,681)
If GUICtrlRead($Server)= "Server12" Then MouseClick("left",503,691)
If GUICtrlRead($Server)= "Server13" Then MouseClick("left",496,708)
If GUICtrlRead($Server)= "Server14" Then MouseClick("left",494,724)
If GUICtrlRead($Server)= "Server15" Then MouseClick("left",488,740)
If GUICtrlRead($Server)= "Server16" Then MouseClick("left",482,764)
If GUICtrlRead($Server)= "Server17" Then MouseClick("left",480,777)
If GUICtrlRead($Server)= "Server18" Then MouseClick("left",487,792)
sleep(100)
If GUICtrlRead($Channel) = "Channel1" Then MouseClick("left",743,502)
If GUICtrlRead($Channel) = "Channel2" Then MouseClick("left",743,519)
If GUICtrlRead($Channel) = "Channel3" Then MouseClick("left",742,540)
If GUICtrlRead($Channel) = "Channel4" Then MouseClick("left",743,560)
If GUICtrlRead($Channel) = "Channel5" Then MouseClick("left",746,573)
If GUICtrlRead($Channel) = "Channel6" Then MouseClick("left",746,587)
sleep(100)
MouseClick("left",762,818)
sleep(100)
send(GUICtrlRead($ID))
send("{enter}",0)
send(GUICtrlRead($PW))
MouseClick("left",1060,847)
Do
sleep(100)
PixelSearch(18,312,53,346,0x433A31)
Until Not @error
If GUICtrlRead($Char) = "1" Then sleep(100)
If GUICtrlRead($Char) = "2" Then MouseClick("left",714,806)
If GUICtrlRead($Char) = "3" Then MouseClick("left",714,806)
If GUICtrlRead($Char) = "3" Then MouseClick("left",714,806)
If GUICtrlRead($Char) = "4" Then MouseClick("left",714,806)
If GUICtrlRead($Char) = "4" Then MouseClick("left",714,806)
If GUICtrlRead($Char) = "4" Then MouseClick("left",714,806)
sleep(100)
MouseClick("left",209,617)
WEnd
EndFunc
Func my32()
For $mpega = 0 To 100
GUICtrlSetData($Progress,$mpega)
sleep(10)
$mpega = $mpega + 1
Next
GUISetState(@SW_HIDE)
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Bei Kick -Einlogg Bot (C)(R) by 50Millionen", 500, 255, 192, 124)
GUISetFont(10, 800, 0, "Comic Sans MS")
$Label1 = GUICtrlCreateLabel("Deine Daten werden nicht weitergegeben!", 0, 104, 266, 23)
$Label2 = GUICtrlCreateLabel("Damit der Bei Kick - Einlogg Bot funktioniert musst du erst alles ausfüllen !!", 0, 8, 497, 23)
GUICtrlSetFont(-1, 10, 800, 4, "Comic Sans MS")
$Label3 = GUICtrlCreateLabel("ID:", 0, 40, 26, 23)
GUICtrlSetColor(-1, 0xFF0000)
$Label4 = GUICtrlCreateLabel("PW:", 0, 72, 31, 23)
GUICtrlSetColor(-1, 0xFF0000)
$ID = GUICtrlCreateInput("Beispiel", 32, 40, 121, 27)
$PW = GUICtrlCreateInput("Beispiel", 32, 72, 121, 27, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Pics\50.jpg", 392, 32, 100, 68, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label5 = GUICtrlCreateLabel("Wähle hier deinen Server und deinen Channel.", 0, 128, 302, 23)
$Label6 = GUICtrlCreateLabel("Channel:", 0, 160, 58, 23)
$Channel = GUICtrlCreateCombo("", 64, 160, 169, 25)
GUICtrlSetData(-1, "Channel1|Channel2|Channel3|Channel4|Channel5|Channel6")
$Label7 = GUICtrlCreateLabel("Server:", 240, 160, 51, 23)
$Server = GUICtrlCreateCombo("", 296, 160, 169, 25)
GUICtrlSetData(-1, "Server1|Server2|Server3|Server4|Server5|Server6|Server7|Server8|Server9|Server10|Server11|Server12|Server13|Server14|Server15|Server16|Server17|Server18")
$Label8 = GUICtrlCreateLabel("Character:", 0, 200, 72, 23)
$Char = GUICtrlCreateCombo("", 72, 200, 161, 25)
GUICtrlSetData(-1, "1|2|3|4")
$Label9 = GUICtrlCreateLabel("Fenstername:", 240, 200, 88, 23)
$Fenstername = GUICtrlCreateCombo("", 328, 200, 137, 25)
GUICtrlSetData(-1, "METIN2|Às¾s")
$Start = GUICtrlCreateButton("Start", 392, 104, 99, 41, 0)
$MenuItem2 = GUICtrlCreateMenu("Hilfe")
$MenuItem3 = GUICtrlCreateMenuItem("Anleitung", $MenuItem2)
$MenuItem4 = GUICtrlCreateMenuItem("Elitepvper Forum", $MenuItem2)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$R = IniRead("Bot.dll","Daten","ID","Wert nicht gefunden")
GUICtrlSetData($ID,$R)
$R = IniRead("Bot.dll","Daten","PW","Wert nicht gefunden")
GUICtrlSetData($PW,$R)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start
StartM2()
Case $MenuItem3
MsgBox(0,"Anleitung","Die Anleitung findest du in dem Ordner des Botes")
Case $MenuItem4
_IECreate("http://www.elitepvpers.com/forum/metin2-hacks-bots-cheats-exploits-macros/")
EndSwitch
IniWrite("Bot.dll","Daten","ID",GUICtrlRead($ID))
IniWrite("Bot.dll","Daten","PW",GUICtrlRead($PW))
WEnd
EndFunc
Func StartM2()
GUISEtState(@SW_HIDE)
If GUICtrLRead($Fenstername) = "METIN2" Then WinActivate("METIN2")
If GUICtrlRead($Fenstername) = "Às¾s" Then WinActivate("Às¾s")
If GUICtrLRead($Fenstername) = "METIN2" Then WinMove("METIN2","",0,0)
If GUICtrLRead($Fenstername) = "Às¾s" Then WinMove("Às¾s","",0,0)
while(1)
Do
sleep(100)
PixelSearch(205,537,234,567,0xC71B18)
Until Not @error
sleep(100)
If GUICtrlRead($Server)= "Server1" Then MouseClick("left",499,503)
If GUICtrlRead($Server)= "Server2" Then MouseClick("left",501,510)
If GUICtrlRead($Server)= "Server3" Then MouseClick("left",501,546)
If GUICtrlRead($Server)= "Server4" Then MouseClick("left",501,560)
If GUICtrlRead($Server)= "Server5" Then MouseClick("left",499,581)
If GUICtrlRead($Server)= "Server6" Then MouseClick("left",500,591)
If GUICtrlRead($Server)= "Server7" Then MouseCLick("left",499,606)
If GUICtrlRead($Server)= "Server8" Then MouseClick("left",503,638)
If GUICtrlRead($Server)= "Server9" Then MouseClick("left",503,640)
If GUICtrlRead($Server)= "Server10" Then MouseClick("left",493,656)
If GUICtrlRead($Server)= "Server11" Then MouseCLick("left",506,681)
If GUICtrlRead($Server)= "Server12" Then MouseClick("left",503,691)
If GUICtrlRead($Server)= "Server13" Then MouseClick("left",496,708)
If GUICtrlRead($Server)= "Server14" Then MouseClick("left",494,724)
If GUICtrlRead($Server)= "Server15" Then MouseClick("left",488,740)
If GUICtrlRead($Server)= "Server16" Then MouseClick("left",482,764)
If GUICtrlRead($Server)= "Server17" Then MouseClick("left",480,777)
If GUICtrlRead($Server)= "Server18" Then MouseClick("left",487,792)
sleep(100)
If GUICtrlRead($Channel) = "Channel1" Then MouseClick("left",743,502)
If GUICtrlRead($Channel) = "Channel2" Then MouseClick("left",743,519)
If GUICtrlRead($Channel) = "Channel3" Then MouseClick("left",742,540)
If GUICtrlRead($Channel) = "Channel4" Then MouseClick("left",743,560)
If GUICtrlRead($Channel) = "Channel5" Then MouseClick("left",746,573)
If GUICtrlRead($Channel) = "Channel6" Then MouseClick("left",746,587)
sleep(100)
MouseClick("left",762,818)
sleep(100)
send(GUICtrlRead($ID))
send("{enter}",0)
send(GUICtrlRead($PW))
MouseClick("left",1060,847)
Do
sleep(100)
PixelSearch(18,312,53,346,0x3E352C)
Until Not @error
If GUICtrlRead($Char) = "1" Then sleep(100)
If GUICtrlRead($Char) = "2" Then MouseClick("left",714,806)
If GUICtrlRead($Char) = "3" Then MouseClick("left",714,806)
If GUICtrlRead($Char) = "3" Then MouseClick("left",714,806)
If GUICtrlRead($Char) = "4" Then MouseClick("left",714,806)
If GUICtrlRead($Char) = "4" Then MouseClick("left",714,806)
If GUICtrlRead($Char) = "4" Then MouseClick("left",714,806)
sleep(100)
MouseClick("left",209,617)
WEnd
EndFunc
