Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub MicrosoftRewards()
- Dim chromePath As String
- chromePath = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"""
- Shell (chromePath)
- Shell (chromePath & " -url https://www.bing.com/search?q=yolo")
- Shell (chromePath & " -url https://www.bing.com/search?q=swag")
- Shell (chromePath & " -url https://www.bing.com/search?q=cool")
- Shell (chromePath & " -url https://www.bing.com/search?q=mommy")
- Shell (chromePath & " -url https://www.bing.com/search?q=daddy")
- Shell (chromePath & " -url https://www.bing.com/search?q=fighting")
- Shell (chromePath & " -url https://www.bing.com/search?q=why")
- Shell (chromePath & " -url https://www.bing.com/search?q=do")
- Shell (chromePath & " -url https://www.bing.com/search?q=I")
- Shell (chromePath & " -url https://www.bing.com/search?q=feel")
- Shell (chromePath & " -url https://www.bing.com/search?q=pain")
- Shell (chromePath & " -url https://www.bing.com/search?q=doe")
- Shell (chromePath & " -url https://www.bing.com/search?q=tide")
- Shell (chromePath & " -url https://www.bing.com/search?q=pods")
- Application.Wait (Now + #12:00:03 AM#)
- SendKeys "^W"
- chromePath = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"""
- Shell (chromePath)
- Shell (chromePath & " -url https://www.bing.com/search?q=taste")
- Shell (chromePath & " -url https://www.bing.com/search?q=good")
- Shell (chromePath & " -url https://www.bing.com/search?q=y")
- Shell (chromePath & " -url https://www.bing.com/search?q=is")
- Shell (chromePath & " -url https://www.bing.com/search?q=like")
- Shell (chromePath & " -url https://www.bing.com/search?q=boop")
- Shell (chromePath & " -url https://www.bing.com/search?q=bing")
- Shell (chromePath & " -url https://www.bing.com/search?q=bap")
- Shell (chromePath & " -url https://www.bing.com/search?q=dad")
- Shell (chromePath & " -url https://www.bing.com/search?q=mom")
- Shell (chromePath & " -url https://www.bing.com/search?q=kid")
- Shell (chromePath & " -url https://www.bing.com/search?q=son")
- Shell (chromePath & " -url https://www.bing.com/search?q=trust")
- Shell (chromePath & " -url https://www.bing.com/search?q=broken")
- Shell (chromePath & " -url https://www.bing.com/search?q=death")
- Shell (chromePath & " -url https://www.bing.com/search?q=yeet")
- Application.Wait (Now + #12:00:03 AM#)
- SendKeys "^W"
- chromePath = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"""
- Shell (chromePath)
- Shell (chromePath & " -url https://www.bing.com/search?q=yolo")
- Application.Wait (Now + #12:00:04 AM#)
- SendKeys "^+I"
- Application.Wait (Now + #12:00:04 AM#)
- SendKeys "^+M"
- 'Application.Wait (Now + #12:00:03 AM#)
- 'SendKeys "^+M"
- Application.Wait (Now + #12:00:04 AM#)
- SendKeys "{F5}"
- Application.Wait (Now + #12:00:05 AM#)
- SendKeys "{TAB}"
- Application.Wait (Now + #12:00:01 AM#)
- SendKeys "{TAB}"
- Application.Wait (Now + #12:00:01 AM#)
- SendKeys "{TAB}"
- Application.Wait (Now + #12:00:01 AM#)
- SendKeys "{TAB}"
- Application.Wait (Now + #12:00:01 AM#)
- SendKeys "{TAB}"
- Application.Wait (Now + #12:00:01 AM#)
- SendKeys "{TAB}"
- Application.Wait (Now + #12:00:01 AM#)
- SendKeys "{TAB}"
- Application.Wait (Now + #12:00:01 AM#)
- SendKeys "{TAB}"
- Application.Wait (Now + #12:00:01 AM#)
- SendKeys "{TAB}"
- Application.Wait (Now + #12:00:01 AM#)
- SendKeys "{TAB}"
- Application.Wait (Now + #12:00:01 AM#)
- SendKeys "{TAB}"
- Application.Wait (Now + #12:00:01 AM#)
- SendKeys "{TAB}"
- Application.Wait (Now + #12:00:01 AM#)
- SendKeys "{TAB}"
- Application.Wait (Now + #12:00:01 AM#)
- SendKeys "{TAB}"
- Application.Wait (Now + #12:00:01 AM#)
- SendKeys "{TAB}"
- Application.Wait (Now + #12:00:01 AM#)
- SendKeys "Test{ENTER}"
- Application.Wait (Now + #12:00:03 AM#)
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "Bilboed{ENTER}"
- Application.Wait (Now + #12:00:03 AM#)
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "Right{ENTER}"
- Application.Wait (Now + #12:00:03 AM#)
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "Shares{ENTER}"
- Application.Wait (Now + #12:00:03 AM#)
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "Future{ENTER}"
- Application.Wait (Now + #12:00:03 AM#)
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "Awards{ENTER}"
- Application.Wait (Now + #12:00:03 AM#)
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "Grant{ENTER}"
- Application.Wait (Now + #12:00:03 AM#)
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "Blimp{ENTER}"
- Application.Wait (Now + #12:00:03 AM#)
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "Units{ENTER}"
- Application.Wait (Now + #12:00:03 AM#)
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "Stock{ENTER}"
- Application.Wait (Now + #12:00:03 AM#)
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "Option{ENTER}"
- Application.Wait (Now + #12:00:03 AM#)
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "Vesting{ENTER}"
- Application.Wait (Now + #12:00:03 AM#)
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "Price{ENTER}"
- Application.Wait (Now + #12:00:03 AM#)
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "Can{ENTER}"
- Application.Wait (Now + #12:00:03 AM#)
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "World{ENTER}"
- Application.Wait (Now + #12:00:03 AM#)
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "Person{ENTER}"
- Application.Wait (Now + #12:00:03 AM#)
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "Ten{ENTER}"
- Application.Wait (Now + #12:00:03 AM#)
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "Five{ENTER}"
- Application.Wait (Now + #12:00:03 AM#)
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "Years{ENTER}"
- Application.Wait (Now + #12:00:03 AM#)
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "Reason{ENTER}"
- Application.Wait (Now + #12:00:03 AM#)
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "Goal{ENTER}"
- Application.Wait (Now + #12:00:03 AM#)
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "{TAB}"
- SendKeys "Decide{ENTER}"
- Application.Wait (Now + #12:00:04 AM#)
- SendKeys "^+I"
- Application.Wait (Now + #12:00:04 AM#)
- SendKeys "^+I"
- Application.Wait (Now + #12:00:04 AM#)
- SendKeys "^+M"
- Application.Wait (Now + #12:00:03 AM#)
- SendKeys "^W"
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement