Jump to content
Sign in to follow this  
SamiraTjuH

Need some help with my script

Recommended Posts

SamiraTjuH

hi guys,

Can someone plz help me with my script.

I wanna make it to send it to my minimized browser but,

I dont know how controlsend and controlmove work :P

Greetz,

SamiraTj├╗H

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("{HOME}", "Go")

while 1
    Sleep (100)
    WEnd
Func Go()
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
WinWait("Bongspel.nl - Werken - Mozilla Firefox","")
If Not WinActive("Bongspel.nl - Werken - Mozilla Firefox","") Then WinActivate("Bongspel.nl - Werken - Mozilla Firefox","")
WinWaitActive("Bongspel.nl - Werken - Mozilla Firefox","")
while 1
Send("{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}")
MouseMove(579,484)
MouseDown("left")
MouseUp("left")
Sleep(9000)
Send("{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}")
MouseMove(519,423)
MouseDown("left")
MouseMove(519,422)
MouseUp("left")
Sleep(9000)
WinWait("Bongspel.nl - Onderzoek - Mozilla Firefox","")
If Not WinActive("Bongspel.nl - Onderzoek - Mozilla Firefox","") Then WinActivate("Bongspel.nl - Onderzoek - Mozilla Firefox","")
WinWaitActive("Bongspel.nl - Onderzoek - Mozilla Firefox","")
Send("{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}")
MouseMove(616,420)
MouseDown("left")
MouseUp("left")
Sleep(9000)
WinWait("Bongspel.nl - Werken - Mozilla Firefox","")
If Not WinActive("Bongspel.nl - Werken - Mozilla Firefox","") Then WinActivate("Bongspel.nl - Werken - Mozilla Firefox","")
WinWaitActive("Bongspel.nl - Werken - Mozilla Firefox","")
Send("{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}")
MouseMove(502,673)
MouseDown("left")
MouseMove(502,672)
MouseUp("left")
Sleep(9000)
Send("{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}")
MouseMove(519,422)
MouseDown("left")
MouseMove(518,422)
MouseUp("left")
Sleep(9000)
WinWait("Bongspel.nl - Onderzoek - Mozilla Firefox","")
If Not WinActive("Bongspel.nl - Onderzoek - Mozilla Firefox","") Then WinActivate("Bongspel.nl - Onderzoek - Mozilla Firefox","")
WinWaitActive("Bongspel.nl - Onderzoek - Mozilla Firefox","")
Send("{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}")
MouseMove(600,418)
MouseDown("left")
MouseMove(599,417)
MouseUp("left")
Sleep(9000)
WinWait("Bongspel.nl - Werken - Mozilla Firefox","")
If Not WinActive("Bongspel.nl - Werken - Mozilla Firefox","") Then WinActivate("Bongspel.nl - Werken - Mozilla Firefox","")
WinWaitActive("Bongspel.nl - Werken - Mozilla Firefox","")
Send("{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}")
MouseMove(500,673)
MouseDown("left")
MouseUp("left")
Sleep(9000)
Send("{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}")
MouseMove(522,414)
MouseDown("left")
MouseUp("left")
Sleep(9000)
WinWait("Bongspel.nl - Onderzoek - Mozilla Firefox","")
If Not WinActive("Bongspel.nl - Onderzoek - Mozilla Firefox","") Then WinActivate("Bongspel.nl - Onderzoek - Mozilla Firefox","")
WinWaitActive("Bongspel.nl - Onderzoek - Mozilla Firefox","")
Send("{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}")
MouseMove(624,419)
MouseDown("left")
MouseUp("left")
Sleep(9000)
WinWait("Bongspel.nl - Werken - Mozilla Firefox","")
If Not WinActive("Bongspel.nl - Werken - Mozilla Firefox","") Then WinActivate("Bongspel.nl - Werken - Mozilla Firefox","")
WinWaitActive("Bongspel.nl - Werken - Mozilla Firefox","")
Send("{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}")
MouseMove(504,670)
MouseDown("left")
MouseUp("left")
Sleep(900000)
WEnd
EndFunc
;;;;;;;;

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Pause!',0,0)
    WEnd
    ToolTip("Botting!",0,0)
EndFunc

Func Terminate()
    Exit 0
EndFunc

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  

×