Jump to content
Sign in to follow this  
BluhBlah

WEnd Error: "Wend" Statement with no matching while statemen

Recommended Posts

BluhBlah

Dim $stop = 0
HotKeySet("{F4}", "toggel")
HotKeySet("{F5}", "off")
While 1
    If $stop = 1 Then
    If PixelSearch(821, 257, 821, 257, 0x9CB8EA) Then ; Bnet screen
      Send ("B")
    EndIf
    If PixelSearch(124, 446, 124, 446, 0x2742B0) Then ; Login screen
      Send ("Password")
      Send ("{ENTER}")
      Sleep (10000)
    EndIf
    If PixelSearch(124, 446, 124, 446, 0x2742B0) Then ; See if its logged in
      Send ("!Q")
    EndIf
    If PixelSearch(477, 358, 477, 358, 0x620776) Then ; Makes it quit if it find victory screen
      Send ("!Q")
    EndIf
    If PixelSearch(64, 9, 64, 9, 0x181410) Then ; Makes it leave the scoreboard
      Send ("{ENTER}")
    If PixelSearch(477, 358, 477, 358, 0x620776) Then ; See if its in game
      Sleep (300000)
    If PixelSearch(477, 358, 477, 358, 0x620776) Then
      Send ("!Q")
    EndIf
    If PixelSearch(467, 327, 467, 327, 0x630877) Then ; Makes it leave if it get defeat screen
      Send ("{ENTER}")
    If PixelSearch(463, 218, 463, 218, 0xFFDEFF) Then ; If it finds quitscreen it will quit game!
      Send ("Q")
    EndIf
Wend
Func toggel()
    If $stop = 0 Then
        $stop = 1
    Else
        $stop = 0
    EndIf
EndFunc
Func off()
    Exit
EndFunc
[/codebox]

Gives Line 34 WEnd Error: "Wend" Statement with no matching while statement :/

How to fix?

0

Share this post


Link to post
Share on other sites
Melba23

Xoriaz,

That usually means you have another unbalanced statement soemwhere - look at your If/EndIf loops.

If you were to use the Tidy function in SciTE, it would find these things for you! :)

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites
PsaltyDS

Two IFs above the WEnd you have no EndIf. Add the EndIf or change it to a single line If/Then.

:)

P.S. You could make that much cleaner by using single line If/Then statements where appropriate (any time there is only one conditional statement to execute):

While 1
    If $stop = 1 Then
        If PixelSearch(821, 257, 821, 257, 0x9CB8EA) Then Send("B") ; Bnet screen
        If PixelSearch(124, 446, 124, 446, 0x2742B0) Then ; Login screen
            Send("Password")
            Send("{ENTER}")
            Sleep(10000)
        EndIf
        If PixelSearch(124, 446, 124, 446, 0x2742B0) Then Send("!Q") ; See if its logged in
        If PixelSearch(477, 358, 477, 358, 0x620776) Then Send("!Q") ; Makes it quit if it find victory screen
        If PixelSearch(64, 9, 64, 9, 0x181410) Then Send("{ENTER}") ; Makes it leave the scoreboard
        If PixelSearch(477, 358, 477, 358, 0x620776) Then Sleep(300000) ; See if its in game
        If PixelSearch(477, 358, 477, 358, 0x620776) Then Send("!Q")
        If PixelSearch(467, 327, 467, 327, 0x630877) Then Send("{ENTER}") ; Makes it leave if it get defeat screen
        If PixelSearch(463, 218, 463, 218, 0xFFDEFF) Then Send("!Q") ; If it finds quitscreen it will quit game!
    EndIf
WEnd

:)

Edited by PsaltyDS

Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law

Share this post


Link to post
Share on other sites
BluhBlah

Thanks didnt know that was possible Looks so nice now! :)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.