[RELEASE] Source for old ip farm system

[hoseta]

Hay guys here i give u my beta bot version for old lol GUI style.
Its programe in AutoIT its made by simple functions,
maybe some of u guys need it, i end with LOL so i can release it

here u have

 Spoiler

PHP Code:

;#include <GuiConstants.au3>
#include <INet.au3>
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <ImageSearch.au3>


Global $paus, $x, $y, $result,$picked,$sIconPath=@ScriptDir&'\farmbot\ico.ico',$afterlogin=0,$polog = GuiCreate("farm b0t v1.0, Step by step",426,357,562,114),$button1=GuiCtrlCreateButton("X",375,-1,48,24),$button2=GuiCtrlCreateButton("Options",240,275,157,56),$button3=GuiCtrlCreateButton("Start",36,276,155,55)
$starter=0

$paus=0

If FileExists("C:\WINDOWS\system\ImageSearchDLL.dll") Then
else
    FileCopy("ImageSearchDLL.dll", "C:\WINDOWS\system", 9)
endif

If FileExists("C:\WINDOWS\ImageSearchDLL.dll") Then
        else
    FileCopy("ImageSearchDLL.dll", "C:\WINDOWS", 9)
    endif

$picked=0
HotKeySet("{esc}","close")
HotKeySet("{f1}","start")
HotKeySet("{f2}","stope")
TraySetIcon($sIconPath)

Opt("TrayMenuMode",1)
$delitem        = TrayCreateItem("help")
TrayCreateItem("")
$aboutitem      = TrayCreateItem("More info")
TrayCreateItem("")
$exititem       = TrayCreateItem("Exit")

TraySetState()



TraySetToolTip("Farm bot welcome ! BOT WORK WITH 1025x768 RESOLUTION IN LOL")
SplashImageOn("", @ScriptDir & "\farmbot\welcome.jpg", 300, 300)
Sleep(3000)
SplashOff()

;;================================================================================
;;VARIABEL DEFINITION
;;================================================================================
$WebFileLoc = "http://linktologinphp.com/login.php"





$Login = GUICreate("Login",355,226)
 GUICtrlCreatePic("farmbot\loginbg.jpg", 0, 0, 355, 226)
                GUICtrlSetState(-1, $GUI_DISABLE)

GUISetIcon("farmbot\ico.ico",-20)


$OKbutton = GUICtrlCreateButton("Login",230,180,100)
GUICtrlSetTip(1, "Multi state bitmap imagelist")


$Exit = GUICtrlCreateButton("Exit",80,180,100)
GUICtrlSetTip(1, "Multi state bitmap imagelist")
$User = GUICtrlCreateInput("Username",21,75,310,28)


$Pass = GUICtrlCreateInput("Password",21,132,310,28,$ES_PASSWORD)
GUISetState()

;;================================================================================
;;LOGIN LOOP
;;================================================================================
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE or $msg = $Exit
            MsgBox(0, "Thanks for using", "cya, see you soon :*")
            Exit
        Case $msg = $OKbutton
            _login()
        EndSelect
        ;tray menu
            $msg = TrayGetMsg()
    Select
        Case $msg = 0
            ContinueLoop
        Case $msg = $aboutitem
            Msgbox(64,"About:","Bot farm ip ,  thanks for using !")
        Case $msg = $delitem
           Msgbox(64,"help","if u want start bot just login to ur exist account in League of legend, then start bot button and be happy for free farm bot !")
        Case $msg = $exititem
            ExitLoop
        EndSelect
    ;    end tray menu
WEnd

;;================================================================================
;;_login()
;;================================================================================


func _login()
$UsernameInput = GUICtrlRead($User)
$PasswordInput = GUICtrlRead($Pass)
if $UsernameInput = "" or $PasswordInput = "" Then
    MsgBox(0,"ERROR","Please Enter a Username and Password")
Else
    $WEBdata = _INetGetSource($WebFileLoc &'?user=' & $UsernameInput & '&pass=' & $PasswordInput)

    if $WEBdata = "02" Then
        MsgBox(0,"Error","Unable to Login" & @lf & "Username  was incorrect")
    ElseIf $WEBdata ="0102" Then
        MsgBox(0,"Error","Unable to Login" & @lf & "Wrong password")
    Else
        ;@@@@@@@@ BOT AFTER LOGIN GUI HERE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        $afterlogin=1
        GUISetState(@SW_HIDE, $login)

        ProgressOn("Loading...", "Be patient", "0%")

            For $i = 10 To 100 Step 20

            Sleep(500)
                ProgressSet($i, $i & "%")
            Next
            ProgressSet(100, "Succes login", "Complete gratz...")


                Sleep(500)
            ProgressOff()
            TrayTip("Login","Login successful gratz, BOT WORK WITH 1025x768 RESOLUTION IN LOL",4)
            $polog = GuiCreate("farm b0t v1.0, Step by step",426,357,562,114)

            afterlogin(); using after login func after succesfull login!:D
endif
endif

;@@@@@@@@@@@@@@@@@ BOT AFTER LOGIN GUI END @!@!@!@

EndFunc ;--> _login()


;// BOT FUCTION START HERE !!!!!!!!!!!!!!!!@@@@@@@@@@@@@@!!!!!!!!!!!!!
func afterlogin() ; start function after login
         GUICtrlCreatePic("farmbot\tlo.jpg", 0, 0, 426, 357)
                GUICtrlSetState(-1, $GUI_DISABLE)

        GUISetIcon("farmbot\ico.ico",-20)
$button2=GuiCtrlCreateButton("Pause",240,275,157,56)
GUICtrlSetTip(-1, "Multi state bitmap imagelist")
$button3=GuiCtrlCreateButton("Start b0t",36,276,155,55)
GUICtrlSetTip(-1, "Multi state bitmap imagelist")

   $widthCell = 350
    GUICtrlCreateLabel("This bot is really easy to use u just need to open a LOL luncher then", 40, 140, $widthCell)

     GUICtrlCreateLabel("Login and press start button in bot thats all", 40, 160, $widthCell)

     GUICtrlCreateLabel("now u need just be away from keyboard and dont move mouse. ", 40, 180, $widthCell)

     GUICtrlCreateLabel("Vala ur LOL account FARM by afking ;o Good job ! ", 40, 200, $widthCell)

          GUICtrlCreateLabel("If u have a problem with close bot just press ESCAPE ", 40, 220, $widthCell) 
         
          GUICtrlCreateLabel("F1 = START , F2 = PAUSE ,BOT WORK WITH 1025x768 RESOLUTION IN LOL", 40, 240, $widthCell)




GuiSetState()

While 1

$msg=GuiGetMsg()
if $msg=-3 then
            MsgBox(0, "Thanks for using", "cya, see you soon :*")
            Exit
            endif
If $msg=$button2 Then button2()
If $msg=$button3 Then button3()
wend
            endfunc ; end function after login...




Func button2()

EndFunc

Func button3()
    if $afterlogin=1 then
        traytip("Cant close program?","If u have problem with clsoe program press escape !",5)
    start()

Else
    msgbox(0,"hacker?","u try use bot without login !!!! bad boy!!")
    exit
    endif
EndFunc

func close()
    exit
endfunc

func stope()
if $paus=0 then
        afterlogin()
        
        While 1
            
sleep(400)
ExitLoop
wend
            endif
$paus=1

    endfunc

func start()
    $paus=0
    if not ProcessExists("LolClient.exe") Then

        MsgBox(0,"ERROR","Turn on League of Legends CLIENT: LolClient.exe not found")
        traytip("Turn ON LOL","turn LOL login and press start !! BOT WORK WITH 1025x768 RESOLUTION IN LOL",5)

        endif
    While 1
    if not ProcessExists("LolClient.exe") Then
        exitloop

        GUICtrlDelete($polog)
        GUICtrlDelete($button1)
        GUICtrlDelete($button2)
        GUICtrlDelete($button3)
        afterlogin()
    else

IF WINEXISTS("League of Legends (TM) Client") THEN
    sumonerspell()
else
    If Not WinActivate("PVP.net Client","") Then WinActivate("PVP.net Client","")
        If WinActivate("PVP.net Client","") Then
            $picked=0
            $result = _ImageSearch("farmbot\play.bmp", 1, $x, $y, 0)
                If $result = 1 Then
    sleep(440)
    play()
    sleep(500)
    normalgame5v5()
    sleep(1000)
Else
        rec()
        sleep(200)
        playnoow()
        sleep(110)
        pickhero()
        sleep(110)
        lobbyback()
    endif
endif
endif
endif
wend

endfunc


func rec()
    If Not WinActivate("PVP.net Client","") Then WinActivate("PVP.net Client","")
    sleep(599)
            $result = _ImageSearch("farmbot\ok.bmp", 1, $x, $y, 0)
        If $result = 1 Then
            MouseClick("left", $x, $y)
        EndIf
    
        $result = _ImageSearch("farmbot\rec.bmp", 1, $x, $y, 0)
        If $result = 1 Then
            MouseClick("left", $x, $y)
        EndIf
    endfunc

func playnoow()

        $result = _ImageSearch("farmbot\playnow.bmp", 1, $x, $y, 0)
        If $result = 1 Then
            MouseClick("left", $x, $y)
        EndIf

    endfunc

func lobbyback()

    sleep(2000)
            $result = _ImageSearch("farmbot\lobby.bmp", 1, $x, $y, 0)
                    If $result = 1 Then
                    MouseClick("left", $x, $y)
                    endif

endfunc

func pickhero()
if not ProcessExists("League of Legends.exe") then
        If Not WinActive("PVP.net Client","") Then WinActivate("PVP.net Client","")
    sleep(2000)
                $result = _ImageSearch("farmbot\random.bmp", 1, $x, $y, 0)
                    If $result = 1 Then
                        MouseClick("left", $x, $y)
                        $picked=1
                    EndIf
            sleep(800)
                if $picked = 1 then
                $result = _ImageSearch("farmbot\lock.bmp", 1, $x, $y, 0)
                    If $result = 1 Then
                MouseClick("left", $x, $y)
                endif

                    endif
            endif
endfunc

func play()
    If Not WinActive("PVP.net Client","") Then WinActivate("PVP.net Client","")
            $result = _ImageSearch("farmbot\play.bmp", 1, $x, $y, 0)
                If $result = 1 Then
                MouseClick("left", $x, $y)
        endif

endfunc

func normalgame5v5()
        sleep(800)
    If Not WinActive("PVP.net Client","") Then WinActivate("PVP.net Client","")
            $result = _ImageSearch("farmbot\normal.bmp", 1, $x, $y, 0)
                If $result = 1 Then
                    MouseClick("left", $x, $y)
                endif

        sleep(800)

        If Not WinActive("PVP.net Client","") Then WinActivate("PVP.net Client","")
                $result = _ImageSearch("farmbot\solo.bmp", 1, $x, $y, 0)
                If $result = 1 Then
                    MouseClick("left", $x, $y)
                endif

        sleep(800)

        If Not WinActive("PVP.net Client","") Then WinActivate("PVP.net Client","")
            $result = _ImageSearch("farmbot\piec.bmp", 1, $x, $y, 0)
                If $result = 1 Then
                    MouseClick("left", $x, $y)
                EndIf


endfunc


func sumonerspell()
    if not WinActivate("League of Legends (TM) Client","") then WinActivate("League of Legends (TM) Client","")
        if WinActivate("League of Legends (TM) Client","") then
            
                $result = _ImageSearch("farmbot\no.bmp", 1, $x, $y, 0)
                    If $result = 1 Then
                        MouseClick("left", $x, $y)
                    EndIf
                    
                $result = _ImageSearch("farmbot\vicory.bmp", 1, $x, $y, 0)
                    If $result = 1 Then
                        MouseClick("left", $x, $y)
                Else
                    $result = _ImageSearch("farmbot\defeat.bmp", 1, $x, $y, 0)
                    If $result = 1 Then
                        MouseClick("left", $x, $y)
                    endif
                    endif
            
                            ;$result = _ImageSearch("farmbot\jezeli.bmp", 1, $x, $y, 0)
                ;If $result = 1 Then
                ;    sleep(2000)
                            
                            $result = _ImageSearch("farmbot\vicory.bmp", 1, $x, $y, 0)
                    If $result = 1 Then
                        MouseClick("left", $x, $y)
                Else
                    $result = _ImageSearch("farmbot\defeat.bmp", 1, $x, $y, 0)
                    If $result = 1 Then
                        MouseClick("left", $x, $y)
                else
                    
                        $pos = MouseGetPos()
                        
                        $result = _ImageSearch("tow.bmp", 1, $x, $y,0)
                    If $result = 1 Then
                    MouseClick("right", $x, $y)
                    endif
                        
                    $result = _ImageSearch("farmbot\heal.bmp", 1, $x, $y,0)
                    If $result = 1 Then
                    MouseClick("left", $x, $y)
                            Else
                                $result = _ImageSearch("farmbot\gost.bmp", 1, $x, $y, 0)
                                    If $result = 1 Then
                                        MouseClick("left", $x, $y)
                                    EndIf
                    endif
                    
                    
                endif
            endif
            
                
            
    
                            sleep(2000)
            $result = _ImageSearch("farmbot\vicory.bmp", 1, $x, $y, 0)
                    If $result = 1 Then
                        MouseClick("left", $x, $y)
                Else
                    $result = _ImageSearch("farmbot\defeat.bmp", 1, $x, $y, 0)
                    If $result = 1 Then
                        MouseClick("left", $x, $y)
                else

                    Mousemove($pos[0],$pos[1],70)
                    
                endif
            endif
                            

                
                sleep(400)
                if WinActivate("League of Legends (TM) Client","") then
                    
                                $result = _ImageSearch("farmbot\vicory.bmp", 1, $x, $y, 0)
                    If $result = 1 Then
                        MouseClick("left", $x, $y)
                Else
                    $result = _ImageSearch("farmbot\defeat.bmp", 1, $x, $y, 0)
                    If $result = 1 Then
                        MouseClick("left", $x, $y)
                else

                    MouseClick("right",  720, 250, 1, 0)
                    
                endif
            endif
                    
                
                endif
                sleep(299)
                $pos = MouseGetPos()
                sleep(400)
                if WinActivate("League of Legends (TM) Client","") then
                    
                                            $result = _ImageSearch("farmbot\vicory.bmp", 1, $x, $y, 0)
                    If $result = 1 Then
                        MouseClick("left", $x, $y)
                Else
                    $result = _ImageSearch("farmbot\defeat.bmp", 1, $x, $y, 0)
                    If $result = 1 Then
                        MouseClick("left", $x, $y)
                else

                    MouseClick("right",  $pos[0]-50, $pos[1]+60, 1, 0)
                    
                endif
            endif
                    
                
                endif
                        sleep(1400)
                        if WinActivate("League of Legends (TM) Client","") then
                            
                                                    $result = _ImageSearch("farmbot\vicory.bmp", 1, $x, $y, 0)
                    If $result = 1 Then
                        MouseClick("left", $x, $y)
                Else
                    $result = _ImageSearch("farmbot\defeat.bmp", 1, $x, $y, 0)
                    If $result = 1 Then
                        MouseClick("left", $x, $y)
                else

                    MouseClick("right",  $pos[0], $pos[1], 1, 0)
                    
                endif
            endif
                            
                            
            
            endif
                sleep(1000)

            $result = _ImageSearch("farmbot\vicory.bmp", 1, $x, $y, 0)
                    If $result = 1 Then
                    MouseClick("left", $x, $y)

                Else

                    $result = _ImageSearch("farmbot\defeat.bmp", 1, $x, $y, 0)
                    If $result = 1 Then
                    MouseClick("left", $x, $y)
                endif
            endif
        ;    endif
            endif
    endfunc 


+ video

[London1]

video, proofs

[hoseta]

Originally Posted by London1

video, proofs

what u mean video proofs that bot was release long time ago and i give u source code u can see here all... u dont need proofs just click "spoiler"

[spike0]

don't feed the troll

[bloodang3l]

der bot funst so erstmal ned weil

---$WEBdata gibts ned musst erst ausbaun
---es fehlen die bilder zu dem bot sprich imega search für die funktion
---das nächste ist das der bot nix macht ausser einlogen sprich du stehst afk rum

und überhaupts hat genau das selbe script auch als grundlage für seinen "bot" genutzt das auch ned funst

sry das ist kein "releas" sonder nix gz du hast 1 post mehr gemacht ^^

[hoseta]

i dont know what u talking about i know just german in 0.01% so plz speak in english

i just understand that u think its useless post..
i dont want to spam i just release becouse some ppl ask for this, maybe u dont need becouse u know how to make a BoT but much ppl dont know AU so let them leech ;/

PS:
LOL is really hard game to hack and i dont think that some1 will relase something like packet hack,
so maybe Admin should delate this thred? becouse if some1 relase something u cry ;] thats my opinion
if u expect something more then zoom hack or bot u need lern advanced programing XD

[gammeltoasty]

i don't realy understand the meaning of a bot for lol cause its so easy and usualy nobody needs a bot for it

[hoseta]

bot dont help u with play .. just play when ur afk so u can leech ip xd

[Dribble Joy]

its a code. NOT a working bot. so stop flaming him because his "released bot" doesnt work. just read.