Deni Posted May 13, 2009 Share Posted May 13, 2009 Yo! I was programing a bot to a online web game ( Impulse.nu ) but then I forgot how to do one thing. And i tryed to look in the help file and SEARCHING on the fourms but no luck. So here's the question. First the code Func hotkey() $money = 20 Endfunc So what i want to do is to pause the current loop and then press on my hotkeybutton and then he'll do this code. If $money = 20 Then Sleep(200) MouseClick("left", 94, 43) Sleep(100) Send("http://www.impulse.nu/?sida=stan/stan&bankomat=in&q=") Sleep(100) Send("{ENTER}") Sleep(100) MouseClick("left", 1012, 691);---------------------KLICKAR PÅ PILEN I SCROLLBAREN (webläsaren ska åka ner) Sleep(300) MouseClick("left", 159, 546);------------------------KLICKAR PÅ BANKKONTO TEXTBOXEN (för att skriva in antalet) Sleep(100) Send("10000");--------Skriver in antalet pengar du ska ta ut Sleep(300) MouseClick("left", 297, 539);---------------KLICKAR PÅ OK KNAPPEN (TA UT PENGAR UR BANKEN RUTAN) If WinActivate("Meddelande från webbsida", "Du har inte") Then Send("{ENTER}") EndIf $money = 0 But I forgot if you can do that :S Hope you understanded Denis Link to comment Share on other sites More sharing options...
Valuater Posted May 13, 2009 Share Posted May 13, 2009 NOT TESTED*** expandcollapse popup; Press Esc to terminate script, Pause/Break to "pause" Global $Paused, $money HotKeySet("{PAUSE}", "TogglePause") HotKeySet("{ESC}", "Terminate") HotKeySet("{F9}", "ShowMe") ;;;; Body of program would go here ;;;; While 1 If $money = 20 Then Sleep(200) MouseClick("left", 94, 43) Sleep(100) Send("http://www.impulse.nu/?sida=stan/stan&bankomat=in&q=") Sleep(100) Send("{ENTER}") Sleep(100) MouseClick("left", 1012, 691);---------------------KLICKAR PÅ PILEN I SCROLLBAREN (webläsaren ska åka ner) Sleep(300) MouseClick("left", 159, 546);------------------------KLICKAR PÅ BANKKONTO TEXTBOXEN (för att skriva in antalet) Sleep(100) Send("10000");--------Skriver in antalet pengar du ska ta ut Sleep(300) MouseClick("left", 297, 539);---------------KLICKAR PÅ OK KNAPPEN (TA UT PENGAR UR BANKEN RUTAN) If WinActivate("Meddelande från webbsida", "Du har inte") Then Send("{ENTER}") EndIf $money = 0 EndIf WEnd ;;;;;;;; Func TogglePause() $Paused = Not $Paused While $Paused Sleep(100) ToolTip('Script is "Paused"', 0, 0) WEnd ToolTip("") EndFunc ;==>TogglePause Func Terminate() Exit 0 EndFunc ;==>Terminate Func ShowMe() $money = 20 EndFunc ;==>ShowMe 8) Link to comment Share on other sites More sharing options...
Deni Posted May 13, 2009 Author Share Posted May 13, 2009 Valuater Thanks Mate! That worked now i can move on and make the bot finished so me and my friends can bot Thanks again mate! Denis Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now