Red de conocimientos turísticos - Conocimientos sobre calendario chino - Acerca del movimiento simulado del mouse en VB

Acerca del movimiento simulado del mouse en VB

1. Las teclas de flecha controlan el movimiento del mouse

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)

tongji.js">