[Ошибки]Возникает ошибка error:variable used without being declared. после долго

xexe · 27 Апр 2011

выкладывай весь скрипт, может кто и поможет, надеюсь у тебя всё подписано в коде ;)

biko3 · 27 Апр 2011

в первом посте.

Код:

;#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

Автор темы	Похожие темы	Форум	Ответы	Дата
J	ImageSearch вылетает без ошибки	Общие вопросы по AutoIt	0	31 Авг 2024
W	Номер ошибки GUICtrlCreateIcon	Общие вопросы по AutoIt	8	8 Апр 2023
	Ошибки в справке	Инструменты и справка по AutoIt	2	2 Апр 2023
T	Scite не показывает ошибки.	Инструменты и справка по AutoIt	0	18 Июл 2021
	Перенесено: [Ошибки]Возникает ошибка error:variable used without being declared. после долго	Общие вопросы по AutoIt	0	25 Апр 2011

Поиск

Поиск

[Ошибки]Возникает ошибка error:variable used without being declared. после долго

xexe

Новичок

biko3

Новичок