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 '鼠標移動
Const MOUSEEVENTF_ABSOLUTE = &H8000 '是否采用絕對坐標
Private Declare Function 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
End Sub
Private Sub Timer1_Timer()
a = a + 10
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then
Timer1.Enabled = True
mouse_event MOUSEEVENTF_MOVE, 0, -2, 0, 0 '鼠標當前位置開始向上移動
ElseIf KeyCode = vbKeyDown Then
Timer1.Enabled = True
mouse_event MOUSEEVENTF_MOVE, 0, 2, 0, 0 '鼠標當前位置開始向下移動
ElseIf KeyCode = vbKeyLeft Then
Timer1.Enabled = True
mouse_event MOUSEEVENTF_MOVE, -2, 0, 0, 0 '鼠標當前位置開始向左移動
ElseIf KeyCode = vbKeyRight Then
Timer1.Enabled = True
mouse_event MOUSEEVENTF_MOVE, 2, 0, 0, 0 '鼠標當前位置開始向右移動
End If
End Sub
2、模擬鍵盤輸入
這個好像不難，就是用command按鈕做成鍵盤的樣子，點那個按鈕就出現哪個字母，這樣可以實現吧。
可參考/question/95037636.html
鍵盤功能鍵的ASCII碼
用法:If KeyCode = 27 Then...
ESC鍵 VK_ESCAPE (27)
回車鍵： VK_RETURN (13)
TAB鍵： VK_TAB (9)
Caps Lock鍵： VK_CAPITAL (20)
Shift鍵： VK_SHIFT ($10)
Ctrl鍵： VK_CONTROL (17)
Alt鍵： VK_MENU (18)
空格鍵： VK_SPACE ($20/32)
退格鍵： VK_BACK (8)
左徽標鍵： VK_LWIN (91)
右徽標鍵： VK_LWIN (92)
鼠標右鍵快捷鍵：VK_APPS (93)
Insert鍵： VK_Insert (45)
Home鍵： VK_HOME (36)
Page Up： VK_PRIOR (33)
PageDown： VK_NEXT (34)
End鍵： VK_END (35)
Delete鍵： VK_Delete (46)
方向鍵(←)： VK_LEFT (37)
方向鍵(↑)： VK_UP (38)
方向鍵(→)： VK_RIGHT (39)
方向鍵(↓)： VK_DOWN (40)
F1鍵： VK_F1 (112)
F2鍵： VK_F2 (113)
F3鍵： VK_F3 (114)
F4鍵： VK_F4 (115)
F5鍵： VK_F5 (116)
F6鍵： VK_F6 (117)
F7鍵： VK_F7 (118)
F8鍵： VK_F8 (119)
F9鍵： VK_F9 (120)
F10鍵： VK_F10 (121)
F11鍵： VK_F11 (122)
F12鍵： VK_F12 (123)
Num Lock鍵： VK_NUMLOCK (144)
小鍵盤0： VK_NUMPAD0 (96)
小鍵盤1： VK_NUMPAD0 (97)
小鍵盤2： VK_NUMPAD0 (98)
小鍵盤3： VK_NUMPAD0 (99)
小鍵盤4： VK_NUMPAD0 (100)
小鍵盤5： VK_NUMPAD0 (101)
小鍵盤6： VK_NUMPAD0 (102)
小鍵盤7： VK_NUMPAD0 (103)
小鍵盤8： VK_NUMPAD0 (104)
小鍵盤9： VK_NUMPAD0 (105)
小鍵盤.： VK_DECIMAL (110)
小鍵盤*： VK_MULTIPLY (106)
小鍵盤+： VK_MULTIPLY (107)
小鍵盤-： VK_SUBTRACT (109)
小鍵盤/： VK_DIVIDE (111)
Pause Break鍵： VK_PAUSE (19)
Scroll Lock鍵： VK_SCROLL (145)