Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- HotKeySet("`", "Toggle") ; Toggles Macro Using ` key, can be toggled any time without wait as it interrupts the code to run then resumes
- $Toggle = False ; Set script to be off by default
- While 1 ; Always true loop
- If $Toggle Then ; Checks for Toggle
- For $Loop = 0 To 41 Step 1 ; Loop to send Tab key 42 times
- Send("{Tab}") ; Send Tab Key
- Next ; Increase Loop counter
- Send{"{Enter}") ; Send Enter Key
- Do ; Start of a loop definition
- Send("^a") ; Send Select All
- Send("^c") ; Send Copy
- MouseClick("Primary") ; Deselect Text using mouse click
- Until Not StringInStr(ClipGet(), "Loading...") ; End of loop definition, do until it does not display "Loading..." on the page
- Do ; Start of a loop definition
- Send("^a") ; Send Select All
- Send("^c") ; Send Copy
- MouseClick("Primary") ; Deselect Text using mouse click
- If StringInStr(ClipGet(), "Please enter the following code into the text box:") Then ; Check if it asks for captcha if so wait for user
- Beep() ; Beep to inform user
- $Toggle = False ; Set toggle to false
- Do ; Start of a loop definition
- Sleep(1000) ; Sleep for 1 second before checking the next line, saves cpu usage
- Until $Toggle = True ; Wait for user to retoggle macro using "`" key
- EndIf ; End of defined if statement
- Until StringInStr(ClipGet(), "You can mine now.") ; End of loop definition, do until it says "You can mine now." on the page
- Else ; If toggle is false
- Sleep(100) ; Sleep for 1/10 a second before doing next line, saves cpu usage
- EndIf ; End of defined if statement
- WEnd ; End of loop defintion
- Func Toggle()
- If $Toggle Then
- $Toggle = False
- ElseIf Not $Toggle Then
- $Toggle = True
- Else
- Exit(1)
- EndIf
- EndFunc
Advertisement
Add Comment
Please, Sign In to add comment