Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_F6 = 112
Const VK_F3 = 114
Const VK_F4 = 115
Const KEYEVENTF_KEYUP = &H2Private Sub Form_Load()
Timer2.Interval = 300
Timer2.Enabled = True
End SubPrivate Sub Timer2_Timer()
keybd_event VK_F6, 0, 0, 0
Sleep 30
keybd_event VK_F6, 0, KEYEVENTF_KEYUP, 0 '释放A键
Sleep 30
End Sub
Const VK_F6 = 112
Const VK_F3 = 114
Const VK_F4 = 115
Const KEYEVENTF_KEYUP = &H2Private Sub Form_Load()
Timer2.Interval = 300
Timer2.Enabled = True
End SubPrivate Sub Timer2_Timer()
keybd_event VK_F6, 0, 0, 0
Sleep 30
keybd_event VK_F6, 0, KEYEVENTF_KEYUP, 0 '释放A键
Sleep 30
End Sub
Const VK_F6 = 117
keybd_event VK_F6, MapVirtualKey(VK_F6, 0), 0, 0 '按下F6键
Sleep 200
keybd_event VK_F6, MapVirtualKey(VK_F6, 0), KEYEVENTF_KEYUP, 0 '释放F6键
Sleep 200