Autoit en español
Aplicaciones con Autoit - Juan Antonio Villalpando
-- Tutorial de iniciación a Autoit --
Volver al índice del tutorial
____________________________
58.- Mueves el ratón y observas sus coordenadas y color de fondo. PixelGetColor.
___________________________________________
1.- Mueves el ratón y observas sus coordenadas y color de fondo.
- Código de: http://www.mpcforum.pl/topic/159148-pixelsearch-zasieg-dzialania/#entry1052401
Mueves el ratón y ves sus coordenadas. |
#include <WinAPI.au3>
Opt("MouseCoordMode", 1) ;1=absolute, 0=relative, 2=client
HotKeySet("{ESC}", "Terminate")
Local $exit = 1
While $exit
Sleep(10)
TtColXY()
WEnd
; TtColXY() Tooltip shows colour, and cursor position relative to screen and window.
Func TtColXY()
$aPos = MouseGetPos()
Local $tPosS = _WinAPI_GetMousePos() ; similar to MouseGetPos() ;Screen mouse position
$hHwnd = _WinAPI_WindowFromPoint($tPosS)
Local $tPosC = _WinAPI_GetMousePos(True, $hHwnd)
$sColor = "0x" & Hex(PixelGetColor(DllStructGetData($tPosS, "X"), DllStructGetData($tPosS, "Y")), 6)
$iPosX = ($aPos[0] - 100) * ($aPos[0] > @DesktopWidth * 0.90) + ($aPos[0] <= @DesktopWidth * 0.90) * ($aPos[0] + 3)
$iPosY = ($aPos[1] - 30) * ($aPos[1] > @DesktopHeight * 0.96) + ($aPos[1] <= @DesktopHeight * 0.96) * ($aPos[1] + 3)
ToolTip("Color is: " & $sColor & @CRLF & "Screen: X: " & DllStructGetData($tPosS, "X") & " Y: " & DllStructGetData($tPosS, "Y") & @CRLF _
& "Client: X: " & DllStructGetData($tPosC, "X") & " Y: " & DllStructGetData($tPosC, "Y"), $iPosX, $iPosY)
Return
EndFunc ;==>TtColXY
Func Terminate()
$exit = 0
EndFunc ;==>Terminate
|
___________________________________________
2.- Mueves el ratón y observas sus coordenadas y color de fondo. Otro ejemplo parecido.
- Código de: https://www.autoitscript.com/forum/topic/32054-pixelsearch-tool/
Mueves el ratón y ves sus coordenadas. |
Global $Paused, $pos, $mclr
Opt("TrayIconHide", 1)
HotKeySet("^1", "Log1") ;Press Ctrl-1 to log into Grid.ini the mouse coordinates
HotKeySet("^2", "Log2") ;Press Ctrl-2...Ctrl-5 to log into Grid.ini the mouse coordinates
HotKeySet("^3}", "Log3")
HotKeySet("^4}", "Log4")
HotKeySet("^5", "Log5")
HotKeySet("{ESCAPE}", "TogglePause") ;Press Escape to pause the script
HotKeySet("^{SPACE}", "Terminate") ;Press Ctrl-Spacebar to quit
While 1
$pos = MouseGetPos()
$mclr = Pixelgetcolor($pos[0],$pos[1])
ToolTip("Mouse (x,y): "&"("&$pos[0]&","&$pos[1]&") Colour: "&Hex($mclr, 6),0,724)
WEnd
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
; ToolTip('Script is "Paused"',0,0)
WEnd
; ToolTip("")
EndFunc
Func Terminate()
Exit 0
EndFunc
|
_________________
- Propuesta.
- Añade un HotKeySet para salir de la aplicación.
- En este mensaje del foro tienes un script similar: Mouse_UDF.zip :
- https://www.autoitscript.com/forum/topic/155469-autoit-powered-mouse-events-_mouse_udf/
- Fíjate en estas líneas del código:
#include <GUIConstantsEx.au3>
#include "_Mouse_UDF.au3"
- <-------> significa que esa librería está en la carpeta Include de donde instalastes el AutoIt
- ".........." significa que esa librería está en la misma carpeta en la que se encuentra el Script.
_________________
|