|
You last visited: Today at 07:10
Advertisement
AutoIT scripts
Discussion on AutoIT scripts within the AutoIt forum part of the Coders Den category.
11/19/2009, 17:59
|
#16
|
elite*gold: 1 
Join Date: Oct 2008
Posts: 1,078
Received Thanks: 276
|
tutorials = theorie 
ich benutz die trotzdem oft als ideenquelle :P
Ich find, dass man vorallem beim Rumexperimentieren an Scriptes mehr lernt^^ (zumindest zu Anfang, wie soll man auch einfacher nen Gefühl für ne neue Sprache bekommen?)
Deutsch haste als kleines Kind bestimmt auch nich aus Grammatikwälzern gelernt
aber trotzdem danke für den Tipp^^
2T: Ich such trotzallem immer noch nach nen pa Scripts, also immer her damit :P
greetz nAno
|
|
|
|
11/19/2009, 18:04
|
#17
|
elite*gold: 77
Join Date: May 2008
Posts: 5,430
Received Thanks: 5,878
|
Quote:
Originally Posted by .nAno
tutorials = theorie
ich benutz die trotzdem oft als ideenquelle :P
Ich find, dass man vorallem beim Rumexperimentieren an Scriptes mehr lernt^^ (zumindest zu Anfang, wie soll man auch einfacher nen Gefühl für ne neue Sprache bekommen?)
Deutsch haste als kleines Kind bestimmt auch nich aus Grammatikwälzern gelernt
aber trotzdem danke für den Tipp^^
2T: Ich such trotzallem immer noch nach nen pa Scripts, also immer her damit :P
greetz nAno |
Hier gibts es ein paar im Anhang zum Download :
|
|
|
|
|
11/19/2009, 18:10
|
#18
|
elite*gold: 87
Join Date: Jul 2009
Posts: 2,998
Received Thanks: 1,640
|
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
© by 50Millionen (den Code hat er mal hochgeladen, hat mir bei ein paar Sachen geholfen)
|
|
|
|
|
11/19/2009, 21:43
|
#19
|
elite*gold: 1
Join Date: Oct 2008
Posts: 1,078
Received Thanks: 276
|
thx^^ ma sehn wofür ich dass alles gebrauchen kann :P
|
|
|
|
|
11/19/2009, 21:45
|
#20
|
elite*gold: 0
Join Date: Aug 2009
Posts: 308
Received Thanks: 184
|
tipp: lern lieber was richtiges ... autoit ist SEHR begrenzt
|
|
|
|
|
11/20/2009, 23:07
|
#21
|
elite*gold: 1
Join Date: Oct 2008
Posts: 1,078
Received Thanks: 276
|
ja^^ aber ich denk schonmal nen guter anfang um nen gefühl dafür zu bekommen, wenn ich das drauf hab guck ich mir warscheinlich ma C# an^^ ma sehn wie gut ich damit zurecht komm^^
|
|
|
|
|
11/21/2009, 10:03
|
#22
|
elite*gold: 0
Join Date: Aug 2009
Posts: 308
Received Thanks: 184
|
Naja also c# ist php/javascript noch am ähnlichsten
|
|
|
|
|
11/21/2009, 12:08
|
#23
|
elite*gold: 1
Join Date: Oct 2008
Posts: 1,078
Received Thanks: 276
|
dann würds sich für mich ja nur lohnen :P
|
|
|
|
 |
|
Similar Threads
|
[Frage] AutoIt Scripts compilieren?
07/03/2011 - AutoIt - 11 Replies
hab heute durch ein tut im e*pvp paar scripts geschrieben mit autoit, abgespeichert.
Soweit so gut, diese werden als *.au3 gespeichert.
aber wie mache ich die zu einer exe, dass auch andere diese öffnen können, die kein autoit haben?
man muss die soweit ich verstanden hab compilieren, aber wie geht das? muss ich da was downloaden?
das stand da nicht bei...
thx im vorraus.
|
how about using autoit scripts to make a bot?
05/25/2010 - Rohan - 1 Replies
how about using autoit scripts to make a bot for rohan?
besides it has many actions that can be used by macro-recorders.
the only problem is: it's auto response in using the skills.
but heres another problem if you'll create it from autoit: no dual log in
well, it's your problem if you don't have 2 pcs, I suggest that if you own 1 pc and 1 laptop, then login your two different accounts one on each computer's own clients normally, then after that you must to a safe place so no one can pk...
|
How to turn on autoit scripts
02/04/2010 - Mabinogi - 5 Replies
umm im a newb so dont hate too much on my question
I've been trying to get the cloud bot to work but whenever i click the imagesearch.au3 script thingy nothing happens. I tryed the .exe but it gets deteted by hackshield..
ne ideas why?
|
AutoIt - Scripts im Hintergrund
10/08/2009 - AutoIt - 7 Replies
deutsch:
Huhu Leute, ich bin gerade dabei einen S4 bot zu scripten und hab da mal eine frage an die die sich mit dem programm AutoIt auskennen.
Das script läuft immer im vordergrund, d.h. man kann nicht dabei machen z.B. Internet surfen usw.
Gibt es eine Möglichkeit, das mein AutoIt script NUR auf das spiel also s4league.exe begrenzt wird, sodass man sachen nebenbei machen kann?
gruß foggdp ;)
english:
hi guys, i'm still scripting a s4 bot and I've a question for those, who are still...
|
autoit scripts
12/14/2006 - World of Warcraft - 4 Replies
kann es sein das autoit antiafk script net mehr gehen ?
zumindest bei mir net
|
All times are GMT +1. The time now is 07:14.
|
|
