User:Shuofthefieryheat/MyUtilitiesPage/Shu Repeat Clicker

Shuofthefieryheat Utilities Page

Other Pages of Interest

MyHomePage MyUtilitiesPage

Shu's Repeat Clicker Macro

This is an improved clicker based on Sithid's Clicker Sithid's Clicker .

This one has a prompt for the Pause Delay between clicks. The Pause Delay defaults to 30000 (30 seconds). To change the Pause Delay while the macro is running use (CTRL+2). This allows you to experiment with the delay.

You start the macro by doing one of the TogglePause key commands. I added (CTRL+1) as a TogglePause because sometimes my keyboard doesn't respond properly to the PAUSE key.

HotKeySet( "^1", "TogglePause" )
HotKeySet( "{PAUSE}", "TogglePause" )

HotKeySet( "{ESC}", "Terminate" )
HotKeySet( "{F1}", "SetClickPos" )

HotKeySet( "^2", "SetClickDelay" )

Shu's Repeat Clicker Macro: Zip file with Source & EXE & Info File

Shu's Clicker Zip File

Shu's Repeat Clicker Macro Source

#cs --------------------------------------------------------------------------------------
	
	AutoIt Version 3.2.12.1
	
	Author: ShuoftheFieryHeat
	Date:		02.23.09
	Version:	1.0.b
	Script Function:
	Repeat Clicker - With Prompt for Delay Time.
	Based on the work of Sithid.
		
	Author:		Sithid
	Date:		07.12.08
	Version:	1.3
	
	Script Function:
	Repeat Clicker - Automagical
	

#ce --------------------------------------------------------------------------------------

#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Opt( "MustDeclareVars", 1 )

Global $Paused = False
Global $ClickPosSet = False 
Global $ClickPos[2]

Global $Delay  = 30000; time in ms between clicks about 30 seconds

HotKeySet( "{ESC}", "Terminate" )
HotKeySet( "^1", "TogglePause" )
HotKeySet( "{PAUSE}", "TogglePause" )
HotKeySet( "{F1}", "SetClickPos" )
HotKeySet( "^2", "SetClickDelay" )


WinWaitActive( "eGenesis Client" );
	
TogglePause()

SetClickDelay()

SetClickLocation()

While Not $ClickPosSet
	Sleep( 100 )
WEnd

Main()

Func SetClickLocation()
	
MsgBox( 0x0, "Click Location", "Please hover over the place you want to repeat click and press F1." )
	
EndFunc

Func SetClickDelay()
	

$Delay = InputBox( "Pause Delay", "Please enter the delay time between clicks. 30000 is about 30 seconds.", $Delay)

$Delay = Int($Delay)

MsgBox( 0x0, "Pause Delay Value", "The Pause Delay is now set for: " & $Delay)
	
	
EndFunc

Func SetClickPos()
		$ClickPos = MouseGetpos()
		$ClickPosSet = True
EndFunc

Func Main()
	Local $OldMouseLoc[2]
	Do
		WinWaitActive( "eGenesis Client" );
		
		$OldMouseLoc = MouseGetPos()
		MouseClick( "left", $ClickPos[0], $ClickPos[1], 1,1 )
		MouseMove( $OldMouseLoc[0], $OldMouseLoc[1], 1)
		
		Sleep( $Delay )
	Until 1 = 2
EndFunc

Func TogglePause()
	$Paused = Not $Paused
			
	While $Paused
		Sleep(100 )
	WEnd
EndFunc

Func Terminate()
		Exit
EndFunc