Pixel Click - Revision history

IEvKI3gv9Wrkd41u: +Category:Samples

2012-11-14T14:38:16Z

+Category:Samples

← Older revision		Revision as of 14:38, 14 November 2012
Line 1:		Line 1:
			[[Category:Samples]]
	=Purpose=		=Purpose=
	Search for a pixel of a specific colour to click on, loop this process indefinitely, and provide a hotkey to stop the entire thing.		Search for a pixel of a specific colour to click on, loop this process indefinitely, and provide a hotkey to stop the entire thing.

Jaberwocky6669: Syntax Highlighting, code cleanup, and wikify

2012-11-10T14:09:26Z

Syntax Highlighting, code cleanup, and wikify

← Older revision		Revision as of 14:09, 10 November 2012
Line 1:		Line 1:
	~~'''~~Purpose~~:'''~~		=Purpose=

	Search for a pixel of a specific colour to click on, loop this process indefinitely, and provide a hotkey to stop the entire thing.		Search for a pixel of a specific colour to click on, loop this process indefinitely, and provide a hotkey to stop the entire thing.

	'''Illustrates:'''		'''Illustrates:'''

	* How to use PixelSearch() to find a specific coloured pixel.		* How to use PixelSearch() to find a specific coloured pixel.
	* How to use MouseClick() to click on a specific point.		* How to use MouseClick() to click on a specific point.
Line 10:		Line 8:
	* How to set a HotKey to exit a script.		* How to set a HotKey to exit a script.

	~~Dim $ClickMouse, $MousePrimary, $MouseSecondary, $ExitKey~~		=Demonstration=
	~~Dim $Color, $Left, $Top, $Right, $Bottom, $SearchResult, $CheckSwap~~		<syntaxhighlight lang="autoit">
			Global $CheckSwap = RegRead("HKEY_CURRENT_USER\Control Panel\Mouse", "SwapMouseButtons")
	$CheckSwap = RegRead("HKEY_CURRENT_USER\Control Panel\Mouse", "SwapMouseButtons")
			Global $MousePrimary, $MouseSecondary

	If $CheckSwap = 1 Then		If $CheckSwap = 1 Then
	$MousePrimary = "right"		$MousePrimary = "right"
	$MouseSecondary = "left"		$MouseSecondary = "left"
	Else		Else
	$MousePrimary = "left"		$MousePrimary = "left"
	$MouseSecondary = "right"		$MouseSecondary = "right"
	EndIf		EndIf

Line 25:		Line 25:
	; Change your settings here ;		; Change your settings here ;
	; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv ;		; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv ;
	$ExitKey = "{ESC}"		Global $ExitKey = "{ESC}"
	$Color = 0xff00ff		Global $Color = 0xff00ff
	$Left = 0		Global $Left = 0
	$Top = 0		Global $Top = 0
	$Right = 200		Global $Right = 200
	$Bottom = 200		Global $Bottom = 200
	$ClickMouse = $MousePrimary		Global $ClickMouse = $MousePrimary
	~~; ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ;~~		Global $SearchResult
	~~; Change your settings here ;~~
	~~; ************************************************* ;~~

	HotKeySet($ExitKey, '_Exit')		HotKeySet($ExitKey, '_Exit')

	While 1		While 1
	$SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color)		$SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color)
	If Not @error Then
	MouseClick($ClickMouse, $SearchResult[0], $SearchResult[1], 1, 0)		If Not @error Then
	EndIf		MouseClick($ClickMouse, $SearchResult[0], $SearchResult[1], 1, 0)
			EndIf
	WEnd		WEnd

	Func _Exit()		Func _Exit()
	Exit		Exit
	EndFunc		EndFunc
			</syntaxhighlight>

JonTest: Reversed Vandalism

2006-11-08T11:02:34Z

Reversed Vandalism

New page

'''Purpose:'''

Search for a pixel of a specific colour to click on, loop this process indefinitely, and provide a hotkey to stop the entire thing.

'''Illustrates:'''

* How to use PixelSearch() to find a specific coloured pixel.
* How to use MouseClick() to click on a specific point.
* How to check the registry to see if the mouse buttons are swapped.
* How to set a HotKey to exit a script.

Dim $ClickMouse, $MousePrimary, $MouseSecondary, $ExitKey
Dim $Color, $Left, $Top, $Right, $Bottom, $SearchResult, $CheckSwap

$CheckSwap = RegRead("HKEY_CURRENT_USER\Control Panel\Mouse", "SwapMouseButtons")
If $CheckSwap = 1 Then
$MousePrimary = "right"
$MouseSecondary = "left"
Else
$MousePrimary = "left"
$MouseSecondary = "right"
EndIf

; ************************************************* ;
; Change your settings here ;
; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv ;
$ExitKey = "{ESC}"
$Color = 0xff00ff
$Left = 0
$Top = 0
$Right = 200
$Bottom = 200
$ClickMouse = $MousePrimary
; ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ;
; Change your settings here ;
; ************************************************* ;

HotKeySet($ExitKey, '_Exit')

While 1
$SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color)
If Not @error Then
MouseClick($ClickMouse, $SearchResult[0], $SearchResult[1], 1, 0)
EndIf
WEnd

Func _Exit()
Exit
EndFunc