|     Inicio    |   |         |  |   FOROS      |  |      |      
   Elastix - VoIP B4A (Basic4Android) App inventor 2 PHP - MySQL
  Estación meteorológica B4J (Basic4Java) ADB Shell - Android Arduino
  Raspberry Pi Visual Basic Script (VBS) FireBase (BD autoactualizable) NodeMCU como Arduino
  AutoIt (Programación) 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

____________________________

56.- Ejemplo de HotKeySet. MouseMove. ToolTip. Password.

- Este código está obtenido de: https://www.autoitscript.com/forum/topic/95702-help-with-auto-pot-bot/

- Simplemente mueve el ratón y hace click en distintos puntos establecidos de una ventana.

- En objetivo de exponer este código no es su uso, sino ver cómo se han realizado ciertas acciones.

- Puedes ver cómo:

1.- Se pone la contraseña para que pueda entrar en la aplicación.

2.- Al pulsar las teclas F4 y ESC, mediante la función HotKeySet, va a las funciones de TogglePause y Terminate.

3.- Se crea un ToolTip, arriba del monitor, en la posición 0,0

4.- Movimiento del ratón y click en distintos puntos de la pantalla.

HotKetSet. TootTip. Password. 
				   
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Do
    $pass = InputBox ("Password", "Please enter your password","","*",180,150)
    If $pass <> "1234" Then
        MsgBox (0,"Warning", "Password Invalid" & @CRLF & "")
    EndIf
Until $pass == "1234"
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

MsgBox (0,"Credit", "Created by lee90 aka ???? (BETA)")
WinActivate("notepad.exe", "")
WinMove("notepad.exe", "", 0, 0)
Global $UnPaused
HotKeySet("{F4}", "TogglePause")
HotKeySet("{ESC}", "Terminate")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

While 1
    Sleep(100)
    ToolTip("Press F4 to start..        Esc to quit..",0,0)
WEnd

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func TogglePause()
    $UnPaused = NOT $UnPaused
    While $UnPaused
        ToolTip("Press F4 to Pause     Credit: lee90 aka xxx",0,0)
        AutoItSetOption ("MouseClickDelay",100)
MouseClick("left", 320, 433, 1, 0)
MouseClick("left", 186, 164, 1, 0)
MouseClick("left", 186, 460, 1, 0)
MouseClick("left", 740, 154, 1, 0)
MouseClick("left", 465, 154, 1, 0)
MouseClick("left", 203, 333, 1, 0)
MouseClick("left", 205, 343, 1, 0)

      Sleep(100)
    WEnd
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func Terminate()
    Exit 0
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

_____

 

- 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