|     Inicio    |   |         |  |   FOROS      |  |      |      
   Elastix - VoIP B4A (Basic4Android) App inventor 2 PHP - MySQL
  Estación meteorológica B4J (Basic4Java) ADB Shell - Android Arduino
   AutoIt (Programación) Visual Basic Script (VBS) FireBase (BD autoactualizable) NodeMCU como Arduino
  Teleco - Emisora de A.M. Visual Basic Cosas de Windows Webs interesantes
Translate:
Búsqueda en este sitio:


.

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.

_________________

- Mi correo:
juana1991@yahoo.com
- KIO4.COM - Política de cookies. Textos e imágenes propiedad del autor:
© Juan A. Villalpando
No se permite la copia de información ni imágenes.
Usamos cookies propias y de terceros que entre otras cosas recogen datos sobre sus hábitos de navegación y realizan análisis de uso de nuestro sitio.
Si continúa navegando consideramos que acepta su uso. Acepto    Más información