Что нового

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

biko3

Новичок
Сообщения
8
Репутация
0
Возникает ошибка error:variable used without being declared.
После долгой работы (примерно часов 6)
6f28bade671cc3c971d5eec1878e8c41.jpg

Код:
;#include <GuiConstants.au3>
#include <INet.au3>
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <ImageSearch.au3>


Global $paus, $x, $y, $result,$picked,[email protected]&'\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 @[email protected][email protected][email protected]

EndFunc ;--> _login()


;// BOT FUCTION START HERE [email protected]@@@@@@@@@@@@@!!!!!!!!!!!!!
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

там даже строки с таким номером нет
к тому же почему-то кнопка паузы не работает.
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
622
biko3
{CodeWarn}
если у тебя скомпилированный скрипт (а так оно и есть, судя по ошибке), то в окончательный файл скрипта включаются содержимое всех Include файлов. так что суммарное количество строк может быть куда больше твоего первоначального скрипта.
твой скрипт слишком большой, и мне разбираться в нем недосуг. если ты автор, то ты должен лучше других знать его структуру. если нет, то попроси автора. в любом случае, тратить часы только ради воспроизведение ошибки – довольно сурово :smile:
 
Автор
B

biko3

Новичок
Сообщения
8
Репутация
0
1)То что автор не я можно догадаться.(Понимаю здесь работают не гадалки, но всё же)
Скажи что тебе даст воспроизведение ошибки, и как ты это получишь.
и я сделаю всё сам, и дам тебе инфу нужную.
Всю черновую работу можете поручить мне, главное скажите что делать.


2)А почему кнопка паузы не работает не известно?
3)Автор какой-то немец( я только изменил его немного) и контактов свои не оставил.
 

AZJIO

Меценат
Меценат
Сообщения
2,757
Репутация
1,151
biko3
Пишет что переменные не декларированы, попробуй декларировать.

Код:
Global $aboutitem, $afterlogin, $button1, $button2, $button3, $delitem, $ES_PASSWORD, $Exit, $exititem, $GUI_DISABLE, $GUI_EVENT_CLOSE, $i, $Login, $msg, $OKbutton, $Pass, $PasswordInput, $paus, $picked, $polog, $result, $sIconPath, $starter, $User, $UsernameInput, $WEBdata, $WebFileLoc, $widthCell, $x, $y


И попробуй использовать скрипт не скомпилированным. Тогда даст точную строку ошибки.
 

asdf8

Скриптер
Сообщения
564
Репутация
152
Всю черновую работу можете поручить мне, главное скажите что делать.

В этой сборке скайта есть утилита "Add ErrorExitRegister", которая может показать строку с ошибкой в скомпилированном скрипте, правда, если ошибка в каком нибудь инклюде, то сначала желательно прогнать скрипт через обфускатор с параметром "/striponly"
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
622
AZJIO
такая ошибка возникает не только при недекларировании при включенной опции обязательного декларирования, но и при использовании в операциях присвоения переменных, которые ранее не использованы, даже если нужная опция отключена.
biko3
я упомянул воспроизведение, т.к. если скрипт работает 6 часов нормально, и только потом вылетает означает, что в целом скрипт синтаксически правильный. но одна из переменных не получает нужного значения в процессе. отлавливать такого рода ошибки – довольно сложно. но еще сложнее если скрипт компилированный. поэтому, раз уж ты обладаешь исходниками, то запускать скрипт в режиме интерпретатора. тогда и ошибка будет и указано где именно она произошла, номер строки, название переменной и позиция в строке. разницы в исполнении или производительности никакой.
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,665
Репутация
2,463
biko3
Код:
;$result = _ImageSearch("farmbot\jezeli.bmp", 1, $x, $y, 0)
                ;If $result = 1 Then
                ;    sleep(2000)
"farmbot\vicory.bmp", 1, $x, $y, 0)


Что это за зверь?
Такое чудо работает?

И ещё, не помешало бы указать ссылку на подключаемые (нестандартные) библиотеки.

Kaster [?]
такая ошибка возникает не только при недекларировании при включенной опции обязательного декларирования, но и при использовании в операциях присвоения переменных, которые ранее не использованы, даже если нужная опция отключена.
Я не уверен что понял это, но кажется Opt("MustDeclareVars", 1) именно для этого и предназначена, чтобы предотвратить как раз такие ошибки.
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
622
CreatoR
Код:
$s += 1

выдаст ошибку. если включить в код
Код:
Opt("MustDeclareVars", 1)

то ошибки не будет. НО, если код к примеру такой
Код:
If $some_condition_which_may_not_be_satisfied Then $s = 10
$s += 1

то, при невыполнении условия, возникнет ошибка. если, опять же, сделать его таким
Код:
Opt("MustDeclareVars", 1)
Global $s
If $some_condition_which_may_not_be_satisfied Then $s = 10
$s += 1

то синтаксической ошибки не будет, зато появится логическая. вместо того, чтобы добавить 1 к $s = 10, скрипт добавит его к 0. и такого рода ошибки довольно трудно отлавливаются. имею в виду в более менее громоздких проектах.
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,665
Репутация
2,463
Kaster [?]
если, опять же, сделать его таким
А его не нужно делать таким, вся идея в этой опций это выявление необъявленных переменных.

то синтаксической ошибки не будет, зато появится логическая
Я не вижу тут никакой ошибки.

вместо того, чтобы добавить 1 к $s = 10, скрипт добавит его к 0. и такого рода ошибки довольно трудно отлавливаются
Но автору темы же не подобную ошибку нужно отловить, а именно синтакситечкую, на которую ругается интерпритатор.
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
622
CreatoR [?]
А его не нужно делать таким, вся идея в этой опций это выявление необъявленных переменных.
зачем их выявлять? ну помимо эстетических предпочтений, или привычки, оставшихся от других ЯП.
Я не вижу тут никакой ошибки.
ну как же, я хочу чтобы $s был 11. а он у меня иногда (когда условие не выполняется) равен 1.
Но автору темы же не подобную ошибку нужно отловить, а именно синтакситечкую, на которую ругается интерпритатор.
я понимаю, что ошибка синтаксическая. но я к тому, что после банального декларирования его "условное" $s станет равным "1" вместо "11". устраивает ли его такое поведение, решать автору.
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,665
Репутация
2,463
Kaster [?]
зачем их выявлять?
Как зачем, ты от темы уходишь ;).

я понимаю, что ошибка синтаксическая. но я к тому, что после банального декларирования его "условное" $s станет равным "1" вместо "11". устраивает ли его такое поведение, решать автору.
Устроит или нет, это действительно его проблема, наша же задача найти синтаксическую ошибку, а не логическую (это совсем другая кухня, тут нужно с самого начала правильно учиться кодировать, хотя как показывает практика, это приходит с опытом).
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
622
CreatoR [?]
наша же задача найти синтаксическую ошибку
без информации о позиции ошибочной переменной, мне сложно судить.
biko3 [?]
2)А почему кнопка паузы не работает не известно?
потому что пауза, как таковая в скрипте не предусмотрена. есть некая функция сомнительного происхождения - stope. но она делает задержку скрипта на 400 мс. после чего возобновляет скрипт с момента перехвата. стандартная функция паузы выглядит примерно так
Код:
Global $paus = True
;.............................
HotKeySet("{f2}","_Pause"); Одновременно пауза и выход из паузы
;.............................
func _Pause()
if $paus then
    $paus = Not $paus
    While $paus
        sleep(400)
    wend
endif
;.............................



Добавлено:
Сообщение автоматически объединено:

CreatoR
тебе, кстати, не кажется, что HotKeySet – и есть тот самый GoTo от которого все благополучно открещиваются, как нечто вредное? :smile:
 
Автор
B

biko3

Новичок
Сообщения
8
Репутация
0
как и просили запустил скрип
дождался ошибки
результат

странно что
он столько времени нормально работает.

большое спасибо за паузу
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
622
biko3
что за рулон ты тут развесил? пользуйся превью, вместо полноразмерной картинки


Добавлено:
Сообщение автоматически объединено:

и еще, в приведенном тобой скрипте (пост 1) функция MouseMove не используется, так же как и переменная $pos. так, как же ты хочешь, чтобы тебе помогли найти ошибку, если ты приводишь разные скрипты. тем более тебе CreatoR уже сказал, что в твоем скрипте ошибка конструкции. такое ощущение, что ты неправильно скопипастил.
 
Автор
B

biko3

Новичок
Сообщения
8
Репутация
0
вот оригинал
Код:
;#include <GuiConstants.au3>
#include <INet.au3>
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <ImageSearch.au3>


Global $paus, $x, $y, $result,$picked,[email protected]&'\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 @[email protected][email protected][email protected]

EndFunc ;--> _login()


;// BOT FUCTION START HERE [email protected]@@@@@@@@@@@@@!!!!!!!!!!!!!
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

вот на него ссылка http://www.elitepvpers.de/forum/league-legends/1067765-release-source-old-ip-farm-system.html

вот измененный
Код:
;#include <GuiConstants.au3>
#include <INet.au3>
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <ImageSearch.au3>


Global $paus, $x, $y, $result,$picked,[email protected]&'\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 @[email protected][email protected][email protected]

EndFunc ;--> _login()


;// BOT FUCTION START HERE [email protected]@@@@@@@@@@@@@!!!!!!!!!!!!!
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


Да мой косяк.Извините.
До сих пор не пойму как при копировании мог удалиться центральный кусок.(да и вероятность, того что именно в этом куске будет ошибка...).
в последнем есть всё.
 
Автор
B

biko3

Новичок
Сообщения
8
Репутация
0
1)ранее это в каком посте?
2)имеет ли значение насколько далеко от правого поля начинается (например 421 и 426 строке)
3)когда писал оригинал имел ввиду что скрип достался мне именно в таком виде. ссылку на источник тоже дал.
4)в какой строке у меня ошибка в If...EndIf, и какому виду нужно привести чтоб всё заработало нормально?
 

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5,379
Репутация
2,716
Ни один из приведенных твоих скриптов неработоспособен в принципе. Однако же ты пишешь

biko3 сказал(а):
Возникает ошибка error:variable used without being declared.
После долгой работы (примерно часов 6)
...

По тому, что ты представил, нельзя сказать абсолютно ничего. А вообще, для столь "уважаемых" мной игровых ботов есть специальный раздел, куда, собственно, все это и переезжает...
 
Автор
B

biko3

Новичок
Сообщения
8
Репутация
0
Почему он не работоспособен в ПРИНЦИПЕ, о чем речь(что в нем такого что делает его принципиально не рабочим)?
И как тогда он работает?
По тому, что ты представил, нельзя сказать абсолютно ничего.
Что нужно предоставить чтобы можно было сказать?
Напишите и я представлю.
 
Автор
B

biko3

Новичок
Сообщения
8
Репутация
0
так как исправить то чтоб было правильно?
 
Верх