Jump to content

Then If PixelSearch(477, 358, 477, 358, 0x620776) Then


 Share

Recommended Posts

Because Pixelsearch returns a two-element array of pixel's coordinates no boolean value.

You should check @error to test for a successful completion. See help file for details.

Edited by water

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2022-02-19 - Version 1.6.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download
Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki
PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki
Task Scheduler (NEW 2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki

Standard UDFs:
Excel - Example Scripts - Wiki
Word - Wiki

Tutorials:
ADO - Wiki
WebDriver - Wiki

 

Link to comment
Share on other sites

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?

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...