League of Legends Bot (mit Pixelsearch; Anfangsbot)

03/03/2013 01:35 golle12#1
PHP Code:
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Global $Paused
$status = False
If Not FileExists("Master Passwort.ini") Then
IniWrite_crypt("Master Passwort.ini","MP","Lautet",InputBox("Master Passwort Eingeben","Bitte gib dein eigenes Master Passwort ein!","","*"),97659768576443567)
EndIf
$passwort = InputBox ("Master Passwort Manager","Bitte geben sie das Master Passwort ein!","","*")
 If $passwort = IniRead_crypt("Master Passwort.ini","MP","Lautet","",97659768576443567) Then
MsgBox(64, "Master Passwort Manager", "Das Master Passwort wurde richtig eingegeben!",1)
Else
MsgBox(16, "ERROR 405", "Zugriff Verweigert! " &@CRLF& " Bitte geben sie das Passwort richtig ein!",2)
 Exit
 EndIf
#include <EditConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ImageSearch.au3>
#include <String.au3>
Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("League of Legends Afk Bot made by  ", 418, 227, 196, 126)
$Group1 = GUICtrlCreateGroup("LOL Afk Bot", 0, 0, 417, 225)
$Button1 = GUICtrlCreateButton("Start", 8, 176, 43, 41)
$Button2 = GUICtrlCreateButton("Exit", 56, 176, 75, 41)
$Label1 = GUICtrlCreateLabel("Bot made by ", 144, 192, 266, 24)
GUICtrlSetFont(-1, 12, 800, 2, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("F2: Start", 16, 16, 61, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("F3: Login", 16, 40, 67, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Pic1 = GUICtrlCreatePic("G:\LOL Afk Bot\Afk Bot\Pentakill.jpg", 96, 8, 321, 161)
$Button3 = GUICtrlCreateButton("Go LOL", 8, 136, 73, 33)
$Label4 = GUICtrlCreateLabel("F5: Stop", 16, 88, 61, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("F7: Pause", 16, 112, 73, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label6 = GUICtrlCreateLabel("F4: Spiel", 16, 64, 65, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
FileInstall("Pentakill.jpg" ,@TempDir & "Pentakill.jpg")
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUICtrlSetOnEvent($Button1, "_Start")
GUICtrlSetOnEvent($Button2, "_Exit")
GUICtrlSetOnEvent($Button3, "_Login")
HotKeySet("{F2}","Start")
    HotKeySet("{F3}","Login")
    HotKeySet("{F4}","Start_Spiel")
    HotKeySet("{F5}","Stop")
    HotKeySet("{F6}","Champs")
    HotKeySet("{F7}", "TogglePause")
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            _Start()
        Case $Button2
            _Exit()
        Case $Button3
            _Login()
    EndSwitch
WEnd


Func Login()
If Not FileExists("Accountname.ini") Then
        IniWrite_crypt("Accountname.ini","Accountnamen Eingabe","Benutzername",InputBox("Accountname Eingeben","Bitte gib deinen Benutzernamen ein!"),96755643)
    EndIf
If Not FileExists("Passwort.ini") Then
    IniWrite_crypt("Passwort.ini","Passwort Eingabe","Passwort",InputBox("Passwort Eingeben","Bitte gib dein Passwort ein!","","*"),9797685)
EndIf
$accountname = IniRead_crypt("Accountname.ini","Accountnamen Eingabe","Benutzername","Gefunden",96755643)
$passwort = IniRead_crypt("Passwort.ini","Passwort Eingabe","Passwort","Gefunden",9797685)
 If Run("C:\Riot Games\League of Legends\lol.launcher.exe") Then
MsgBox(64,"League of Legends Launcher!","Launcher wird gestartet " &@CRLF& " und wirst eingeloggt!",5)
 Else
MsgBox(16,"ERROR 426!","League of Legends wurde nicht insatlliert " &@CRLF& " bitte installieren sie League of Legends um diesen Bot nutzen zu können!",5)
Exit
EndIf
While 1
$Start = PixelSearch(906,578,1066,667,0x964007,0)
If IsArray($Start) Then
MouseClick("left", 981, 624, 1)
Sleep(560)
EndIf
If $status == False Then ExitLoop
WEnd
Sleep(600)
While 2
$wait = "LolClient.exe"
ProcessWait ($wait)
Sleep(12500)
$Nutzername = PixelSearch(175,300,459,320,0xF3F2F3,0)
If IsArray($Nutzername) Then
MouseClick("left",304,306,1)
Sleep(560)
EndIf
If $status == False Then ExitLoop
WEnd
Sleep(1000)
Send("{BACKSPACE 13}")
Sleep(1000)
Send ($accountname)
MouseClick("left",307,367,1)
Sleep(1500)
Send($passwort)
Sleep(2500)
While 3
$Einloggen = PixelSearch(377,399,461,421,0xCF7116,0)
If IsArray($Einloggen) Then
MouseClick("left",415,411,1)
Sleep(560)
EndIf
If $status == False Then ExitLoop
WEnd
Sleep(6000)
MsgBox(64,"Erfolgreich","Login erfolgreich",2)
EndFunc

Func _Login()
If Not FileExists("Accountname.ini") Then
        IniWrite_crypt("Accountname.ini","Accountnamen Eingabe","Benutzername",InputBox("Accountname Eingeben","Bitte gib deinen Benutzernamen ein!"),96755643)
    EndIf
If Not FileExists("Passwort.ini") Then
    IniWrite_crypt("Passwort.ini","Passwort Eingabe","Passwort",InputBox("Passwort Eingeben","Bitte gib dein Passwort ein!","","*"),9797685)
EndIf
$accountname = IniRead_crypt("Accountname.ini","Accountnamen Eingabe","Benutzername","",96755643)
$passwort = IniRead_crypt("Passwort.ini","Passwort Eingabe","Passwort","",9797685)
 If Run("C:\Riot Games\League of Legends\lol.launcher.exe") Then
MsgBox(64,"League of Legends Launcher!","Launcher wird gestartet " &@CRLF& " und wirst eingeloggt!",5)
 Else
MsgBox(16,"ERROR 426!","League of Legends wurde nicht insatlliert " &@CRLF& " bitte installieren sie League of Legends um diesen Bot nutzen zu können!",5)
Exit
EndIf
While 1
$Start = PixelSearch(906,578,1066,667,0x964007,0)
If IsArray($Start) Then
MouseClick("left", 981, 624, 1)
Sleep(500)
EndIf
If $status == False Then ExitLoop
WEnd
Sleep(600)
While 2
$wait = "LolClient.exe"
ProcessWait ($wait)
Sleep(12500)
$Nutzername = PixelSearch(175,300,459,320,0xF3F2F3,0)
If IsArray($Nutzername) Then
MouseClick("left",304,306,1)
Sleep(560)
EndIf
If $status == False Then ExitLoop
WEnd
Sleep(1000)
Send("{BACKSPACE 13}")
Sleep(1000)
Send ($accountname)
MouseClick("left",307,367,1)
Sleep(1500)
Send($passwort)
Sleep(2500)
While 1
$Einloggen = PixelSearch(377,399,461,421,0xCF7116,0)
If IsArray($Einloggen) Then
MouseClick("left",415,411,1)
Sleep(560)
EndIf
If $status == False Then ExitLoop
WEnd
Sleep(6000)
MsgBox(64,"Erfolgreich","Login erfolgreich",2)
EndFunc


Func Start()
    If $status == False Then
        $status = True
    While 1
Sleep(3000)
MouseClick("right",1189,695,1)
Sleep(9000)
MouseClick("right",1228,708,1)
Sleep(9000)
MouseClick("right",1240,747,1)
Sleep(8000)
MouseClick("right",1203,737,1)
Sleep(8000)
MouseClick("right",1208,665,1)
Sleep(8000)
MouseClick("right",1255,715,1)
Sleep(6000)
MouseClick("right",1254,739,1)
Sleep(7000)
MouseClick("right",1281,738,1)
Sleep(10000)
Send("b")
Sleep(9600)
WEnd
EndIf
EndFunc

Func _Start()
    If $status == False Then
        $status = True
    While 1
Sleep(3000)
MouseClick("right",1189,695,1)
Sleep(9000)
MouseClick("right",1228,708,1)
Sleep(9000)
MouseClick("right",1240,747,1)
Sleep(8000)
MouseClick("right",1203,737,1)
Sleep(8000)
MouseClick("right",1208,665,1)
Sleep(8000)
MouseClick("right",1255,715,1)
Sleep(6000)
MouseClick("right",1254,739,1)
Sleep(7000)
MouseClick("right",1281,738,1)
Sleep(10000)
Send("b")
Sleep(9600)
WEnd
EndIf
EndFunc

Func Start_Spiel()
MsgBox(64,"Bot Game","/Bot Game\/Kluft der Beschwörer\ " &@CRLF& " /Anfänger\",5)
Sleep(100)
MouseClick("left",726,40,1)
Sleep(999)
MouseClick("left",435,158,1)
Sleep(500)
MouseClick("left",606,136,1)
Sleep(500)
MouseClick("left",795,147,1)
Sleep(500)
MouseClick("left",976,137,1)
Sleep(500)
MouseClick("left",793,682,1)
Sleep(1000)
While 1
$Annehmen = PixelSearch(542,417,634,441,0xFEFEFE,0)
If Not @error Then
MouseMove($Annehmen[0],$Annehmen[1])
MouseClick("left",$Annehmen[0],$Annehmen[1])
Sleep(3100)
EndIf
Sleep(60000)
ExitLoop
WEnd
EndFunc

Func Champs()
While 2
$Champs = InputBox("Champ Auswahl","Bitte wähle dir einen von den Champs aus:" &@CRLF& " -Teemo- -Darius- -Akali- -Morgana- -Shaco- " &@CRLF& " -Garen- -Vaigar- -Jana- -Master Yi- -Leblanc- -Katarina- -Zilean- -Alistar- -Ashe- " &@CRLF& " -Soraka- -Evelynn- -Sivir- -Tryndamere-","","",0,0,0,0)

If $Champs = "Teemo" Then
$Teemo = PixelSearch(313,161,1002,419,0x443710,0)
If IsArray($Teemo) Then
MouseMove($Teemo[0],$Teemo[1])
MouseClick("left")
Sleep(1350)
$sBestaetigen = PixelSearch(821,465,986,506,0xEBC9A9,0)
If IsArray($sBestaetigen) Then
MouseClick("left",902,486)
EndIf
EndIf
EndIf

If $Champs = "Tryndamere" Or $Champs = "Trynda" Then
$Tryndamere = PixelSearch(313,161,1002,419,0x4EBF9F,0)
If IsArray($Tryndamere) Then
MouseMove($Tryndamere[0],$Tryndamere[1])
MouseClick("left")
Sleep(1350)
$sBestaetigen = PixelSearch(821,465,986,506,0xEBC9A9,0)
If IsArray($sBestaetigen) Then
MouseClick("left",902,486)
EndIf
EndIf
EndIf

If $Champs = "Sivir" Then
    $Sivir = PixelSearch(313,161,1002,419,0x785F54,0)
    If IsArray($Sivir) Then
    MouseMove($Sivir[0], $Sivir[1])
    MouseClick("left")
    Sleep(1350)
$sBestaetigen = PixelSearch(821,465,986,506,0xEBC9A9,0)
If IsArray($sBestaetigen) Then
MouseClick("left",902,486)
EndIf
EndIf
EndIf

If $Champs = "Evelynn" Then
    $Evelynn = PixelSearch(313,161,1002,419,0x42397D,0)
    If IsArray($Evelynn) Then
    MouseMove($Evelynn[0], $Evelynn[1])
    MouseClick("left")
    Sleep(1350)
$sBestaetigen = PixelSearch(821,465,986,506,0xEBC9A9,0)
If IsArray($sBestaetigen) Then
MouseClick("left",902,486)
EndIf
EndIf
EndIf

If $Champs = "Soraka" Then
    $Soraka = PixelSearch(313,161,1002,419,0xF5D55D,0)
    If IsArray($Soraka) Then
    MouseMove($Soraka[0], $Soraka[1])
    MouseClick("left")
    Sleep(1350)
$sBestaetigen = PixelSearch(821,465,986,506,0xEBC9A9,0)
If IsArray($sBestaetigen) Then
MouseClick("left",902,486)
EndIf
EndIf
EndIf

If $Champs = "Alistar" Or $Champs = "Ali" Then
    $Alistar = PixelSearch(313,161,1002,419,0xFFFFE9,0)
    If IsArray($Alistar) Then
    MouseMove($Alistar[0], $Alistar[1])
    MouseClick("left")
    Sleep(1350)
$sBestaetigen = PixelSearch(821,465,986,506,0xEBC9A9,0)
If IsArray($sBestaetigen) Then
MouseClick("left",902,486)
EndIf
EndIf
EndIf

If $Champs = "Ashe" Then
    $Ashe = PixelSearch(313,161,1002,419,0x26214D,0)
    If IsArray($Ashe) Then
    MouseMove($Ashe[0], $Ashe[1])
    MouseClick("left")
    Sleep(1350)
$sBestaetigen = PixelSearch(821,465,986,506,0xEBC9A9,0)
If IsArray($sBestaetigen) Then
MouseClick("left",902,486)
EndIf
EndIf
EndIf

If $Champs = "Zilean" Then
    $Zilean = PixelSearch(313,161,1002,419,0x0C3236,0)
    If IsArray($Zilean) Then
    MouseMove($Zilean[0], $Zilean[1])
    MouseClick("left")
    Sleep(1350)
$sBestaetigen = PixelSearch(821,465,986,506,0xEBC9A9,0)
If IsArray($sBestaetigen) Then
MouseClick("left",902,486)
EndIf
EndIf
EndIf

If $Champs = "Jana" Then
$Jana = PixelSearch(313,161,1002,419,0x9F5F37,0)
If IsArray($Jana) Then
MouseMove($Jana[0],$Jana[1])
MouseClick("left")
Sleep(1350)
$sBestaetigen = PixelSearch(821,465,986,506,0xEBC9A9,0)
If IsArray($sBestaetigen) Then
MouseClick("left",902,486)
EndIf
EndIf
EndIf

If $Champs = "Akali" Then
$Akali = PixelSearch(313,161,1002,419,0xD8D144,0)
If IsArray($Akali) Then
MouseMove($Akali[0],$Akali[1])
MouseClick("left")
Sleep(1350)
$sBestaetigen = PixelSearch(821,465,986,506,0xEBC9A9,0)
If IsArray($sBestaetigen) Then
MouseClick("left",902,486)
EndIf
EndIf
EndIf

If $Champs = "Darius" Then
$Darius = PixelSearch(313,161,1002,419,0x311319,0)
If IsArray($Darius) Then
MouseMove($Darius[0],$Darius[1])
MouseClick("left")
Sleep(1350)
$sBestaetigen = PixelSearch(821,465,986,506,0xEBC9A9,0)
If IsArray($sBestaetigen) Then
MouseClick("left",902,486)
EndIf
EndIf
EndIf

If $Champs = "Shaco" Then
$Shaco = PixelSearch(313,161,1002,419,0x3DB59B,0)
If IsArray($Shaco) Then
MouseMove($Shaco[0],$Shaco[1])
MouseClick("left")
Sleep(1350)
$sBestaetigen = PixelSearch(821,465,986,506,0xEBC9A9,0)
If IsArray($sBestaetigen) Then
MouseClick("left",902,486)
EndIf
EndIf
EndIf

If $Champs = "Garen" Then
$Garen = PixelSearch(313,161,1002,419,0x262320,0)
If IsArray($Garen) Then
MouseMove($Garen[0],$Garen[1])
MouseClick("left")
Sleep(1350)
$sBestaetigen = PixelSearch(821,465,986,506,0xEBC9A9,0)
If IsArray($sBestaetigen) Then
MouseClick("left",902,486)
EndIf
EndIf
EndIf

If $Champs = "Vaigar" Then
$Vaigar = PixelSearch(313,161,1002,419,0xF08BFF,0)
If IsArray($Vaigar) Then
MouseMove($Vaigar[0],$Vaigar[1])
MouseClick("left")
Sleep(1350)
$sBestaetigen = PixelSearch(821,465,986,506,0xEBC9A9,0)
If IsArray($sBestaetigen) Then
MouseClick("left",902,486)
EndIf
EndIf
EndIf

If $Champs = "Morgana" Then
$Morgana = PixelSearch(313,161,1002,419,0xF4D6FB,0)
If IsArray($Morgana) Then
MouseMove($Morgana[0],$Morgana[1])
MouseClick("left")
Sleep(1350)
$sBestaetigen = PixelSearch(821,465,986,506,0xEBC9A9,0)
If IsArray($sBestaetigen) Then
MouseClick("left",902,486)
EndIf
EndIf
EndIf

If $Champs = "Master Yi" Or $Champs = "Yi" Then
$Master_Yi = PixelSearch(313,161,1002,419,0x9AB39C,0)
If IsArray($Master_Yi) Then
MouseMove($Master_Yi[0],$Master_Yi[1])
MouseClick("left")
Sleep(1350)
$sBestaetigen = PixelSearch(821,465,986,506,0xEBC9A9,0)
If IsArray($sBestaetigen) Then
MouseClick("left",902,486)
EndIf
EndIf
EndIf


If $Champs = "Leblanc" Then
$Leblanc = PixelSearch(313,161,1002,419,0xD04257,0)
If IsArray($Leblanc) Then
MouseMove($Leblanc[0],$Leblanc[1])
MouseClick("left")
Sleep(1350)
$sBestaetigen = PixelSearch(821,465,986,506,0xEBC9A9,0)
If IsArray($sBestaetigen) Then
MouseClick("left",902,486)
EndIf
EndIf
EndIf

If $Champs = "Katarina" Or $Champs = "Kata" Then
$Katarina = PixelSearch(313,161,1002,419,0x431021,0)
If IsArray($Katarina) Then
MouseMove($Katarina[0],$Katarina[1])
MouseClick("left")
Sleep(1350)
$sBestaetigen = PixelSearch(821,465,986,506,0xEBC9A9,0)
If IsArray($sBestaetigen) Then
MouseClick("left",902,486)
EndIf
EndIf
EndIf
If $status == False Then ExitLoop
WEnd
EndFunc

Func _Exit()
Exit
EndFunc

Func Stop()
    While 1
If $status == False Then ExitLoop
ToolTip("Afk Bot wird beendet",0,0)
Sleep(600)
ToolTip("Zum Beenden des AFk Bots bitte den Exit Button Betätigen!")
WEnd
EndFunc

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(500)
        ToolTip("Bot wird pausiert!",0,0)
    WEnd
    ToolTip("Pause beendet!",0,0)
    Sleep(1500)
    ToolTip("")
EndFunc

Func IniWrite_crypt($sFilename,$sSection,$sKey,$sValue,$sCryptkey)
        $sValue = EncryptText($sSection,$sKey,$sValue,$sCryptkey)
        IniWrite($sFilename,$sSection,$sKey,$sValue)
EndFunc

Func IniRead_crypt($sFilename,$sSection,$sKey,$sDefault,$sCryptkey)
        $sIniReadEncryptText = IniRead($sFilename,$sSection,$sKey,$sDefault)
        $sIniReadDecryptText = DecryptText($sIniReadEncryptText,$sCryptkey)
        return $sIniReadDecryptText
EndFunc

Func DecryptText($sValue,$sCryptkey)
        Return _StringEncrypt(0,$sValue,$sCryptkey)
EndFunc


Func EncryptText($sSection,$sKey,$sValue,$sCryptkey)
        Return _StringEncrypt(1,$sValue,$sCryptkey)
    EndFunc 
Guten Abend
und zwar habe ich eine Frage wie kann ich bei diesem Bot hier also bei Pixelsearch ihn so lange warten lassen bis er den Pixel gefunden hat und dann dort drauf geht und bei der Funktion #### "While 1
$Annehmen = PixelSearch(542,417,634,441,0xFEFEFE,0)
If Not @error Then
MouseMove($Annehmen[0],$Annehmen[1])
MouseClick("left",$Annehmen[0],$Annehmen[1])
Sleep(3100)
EndIf
Sleep(60000)
ExitLoop
WEnd" ####### wie oben gesagt soll er so lange warten bis der Pixel kommt und dann darauf klicken wenn er dies getan hat soll er die Schleife verlassen. Ich freue mich über jede Verbesserungsvorschläge. Danke

LG Golle12 :handsdown:
03/09/2013 13:26 GoliAtAck007#2
Ich glaube mal das Pixel search nicht die richtige Variante ist...soweit ich weis gibt es noch 2 oder 3 andere Möglichkeiten einen Bot zu programmieren, die natürlich ein bissel schwieriger sind....allerdings sollten die besser funktionieren...also such einfach mal nach...ich glaub das war mit AutoIT....anderen arten bots zu programmieren.

PN: ich denke mal das Pixelsearch nur für einfache Browsergames "nützlich" ist
03/09/2013 17:52 D3luxe.#3
Hey, habe mir deinen Code jetzt nicht komplett angeguckt, glaube dennoch dass ich weiß was du meinst. Du musst Do... Until verwenden. So sollte der Teil funktionieren:

PHP Code:
Do
    $Annehmen = PixelSearch(542,417,634,441,0xFEFEFE,0)
    Sleep(1000)
Until $Annehmen = Not @error

MouseClick("left",$Annehmen[0],$Annehmen[1])

Sleep(3100) 
03/17/2013 20:22 golle12#4
Danke
04/01/2013 06:07 GoliAtAck007#5
hast mich auf ne idee gebracht.Habe mir einfach mal so nen Bot erstellt.
(erstellt bot games von daher noch nicht sehr effektiv, werd ihn wahrscheinlich umendern)
wenn du willst schicke ich dir den surce code