Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нем неправильно.
Необходимо обновить браузер или попробовать использовать другой.
Необходимо обновить браузер или попробовать использовать другой.
[Ошибки]Возникает ошибка error:variable used without being declared. после долго
- Автор темы biko3
- Дата начала
в первом посте.
Код:
;#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\creategame.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\namegame.bmp", 1, $x, $y, 0)
If $result = 1 Then
MouseClick("left", $x, $y)
Send("fgfthtfthdccv")
endif
sleep(800)
If Not WinActive("PVP.net Client","") Then WinActivate("PVP.net Client","")
$result = _ImageSearch("farmbot\passwordgame.bmp", 1, $x, $y, 0)
If $result = 1 Then
MouseClick("left", $x, $y)
Send("fdsdffggfhdfhfdgdf")
endif
sleep(800)
If Not WinActive("PVP.net Client","") Then WinActivate("PVP.net Client","")
$result = _ImageSearch("farmbot\creategamebot.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\team2.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\startgame.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
Поделиться:
