Red de conocimiento informático - Problemas con los teléfonos móviles - VB establece teclas de acceso directo para simular clics del mouse

VB establece teclas de acceso directo para simular clics del mouse

Agregue el control text1 al formulario, copie el siguiente código y ejecute:

Option Explicit

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, amp ;H4

Subtexto privado1_KeyDown(KeyCode como entero, Shift como entero)

Si KeyCode = vbKeyF3 Entonces

Atenuar i como entero

Para i = 1 a Val(Text1.

mouse_event MOUSEEVENTF_LEFTDOWN O MOUSEEVENTF_LEFTUP, 0, 0, 0

Finalizar si

Fin del subtítulo