Acerca del movimiento simulado del mouse en VB
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_MOVE = &H1 'Movimiento del mouse
Const MOUSEEVENTF_ABSOLUTE = &H8000 'Si se usan coordenadas absolutas
Función de declaración privada SetCursorPos Lib "user32" (ByVal x As Long , ByVal y As Long) As Long
Dim a As Integer
Dim b As Integer
Private Sub Form_Load()
Timer1 .Interval = 500
a = 50
b = 50
Fin Sub
Sub Timer1_Timer() privado
a = a + 10
End Sub
Sub privado Form_KeyDown(KeyCode como entero, Shift como entero)
Si KeyCode = vbKeyUp Then
Timer1.Enabled = True
mouse_ event MOUSEEVENTF_MOVE, 0, -2, 0, 0 'La posición actual del mouse comienza a moverse hacia arriba
ElseIf KeyCode = vbKeyDown Then
Timer1.Enabled = True
mouse_event MOUSEEVENTF_MOVE, 0, 2, 0, 0 'La posición actual del mouse comienza a moverse hacia abajo
ElseIf KeyCode = vbKeyLeft Then
Timer1.Enabled = True
mouse_event MOUSEEVENTF_MOVE, -2, 0, 0, 0, 0, 0 'Comienza la posición actual del mouse para moverse hacia abajo
ElseIf KeyCode = vbKeyLeft Then
Timer1.MOVE, -2, 0, 0, 0 'La posición actual del mouse comienza a moverse hacia la izquierda
ElseIf KeyCode = vbKeyRight Then
Timer1.Enabled = True
mouse_event MOUSEEVENTF_MOVE, 2, 0, 0, 0 'La posición actual del mouse comienza a moverse hacia la derecha
End If
End Sub
2. Simular la entrada del teclado
Esto no parece difícil, simplemente use el botón de comando para hacer el teclado y haga clic en el botón para ver qué letra aparece. Esto se puede lograr.
Puedes consultar /question/95037636.html
Teclas de función del teclado con código ASCII
Cómo utilizar: Si KeyCode = 27 Entonces...
Tecla ESC VK_ESCAPE (27)
Entrada: VK_RETURN (13)
Tecla TAB: VK_TAB (9)
Tecla Bloq Mayús: VK_CAPITAL (20)
Tecla Mayús: VK_SHIFT ($10)
Tecla Ctrl: VK_CONTROL (17)
Tecla Alt: VK_MENU (18)
Tecla de espacio: VK_SPACE ($20/32)
Tecla de retroceso: VK_BACK (8)
Tecla del logotipo izquierdo: VK_LWIN (91)
Tecla del logotipo derecho : VK_LWIN ( 92)
Atajo del botón derecho del mouse: VK_APPS (93)
Insertar clave: VK_Insert (45)
Tecla de inicio: VK_HOME (36)
Re Pág: VK_PRIOR (33)
Av Pág: VK_NEXT (34)
Fin: VK_END (35)
Eliminar: VK_Delete ( 46)
Teclas de flecha (←): VK_LEFT (37)
Teclas de flecha ( ↑): VK_UP (38)
Teclas de flecha (→): VK_ DERECHA (39 )
Teclas de flechas (↓): VK_DOWN (40)
Tecla F1: VK_F1 (112)
Tecla F2: VK_F2 (113)
Tecla F3: VK_F3 (114)
Tecla F4: VK_F4 (115)
Tecla F5: VK_F5 (116)
Tecla F6 : VK_F6 ( 117)
Tecla F7: VK_F7 (118)
Tecla F8: VK_F8 (119)
Tecla F9: VK_F9 (120)
Tecla F10: VK_F10 (121)
Tecla F11: VK_F11 (122)
Tecla F12: VK_F12 (123)
Tecla Bloq Num:
Teclado 0: VK_NUMPAD0 (96)
Teclado 1: VK_NUMPAD0 (97)
Teclado 2: VK_NUMPAD0 (98)
Teclado 3: VK_NUMPAD0 (99)
Teclado 4: VK_NUMPAD0 (100)
Teclado 5: VK_NUMPAD0 (101)
Teclado 6: VK_NUMPAD0 (102)
Teclado 7: VK_NUMPAD0 (103)
Teclado 8: VK_NUMPAD0 (104)
Teclado 9: VK_NUMPAD0 (105)
Teclado.
: VK_DECIMAL (110)
Teclado pequeño* : VK_MULTIPLY (106)
Teclado pequeño+ : VK_MULTIPLY (107)
Teclado pequeño- : VK_SUBTRACT (109)
Teclado pequeño/ : VK_DIVIDE (111)
Tecla de pausa: VK_PAUSE (19)
Tecla de bloqueo de desplazamiento: VK_SCROLL (145)