AutoIT scripts

[.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

[Shadow992]

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 :

[Crrrespo]

 Spoiler

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)

[.nAno]

thx^^ ma sehn wofür ich dass alles gebrauchen kann :P

[Xeranor]

tipp: lern lieber was richtiges ... autoit ist SEHR begrenzt

[.nAno]

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^^

[Xeranor]

Naja also c# ist php/javascript noch am ähnlichsten

[.nAno]

dann würds sich für mich ja nur lohnen :P