Sign in to follow this  
Followers 0
BluhBlah

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

4 posts in this topic

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



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

#3 ·  Posted (edited)

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

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  
Followers 0