Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2
Dim k1
Sub SendKeyToWnd(vbkey As KeyCodeConstants)
keybd_event vbkey, 0, KEYEVENTF_EXTENDEDKEY, 0
Sleep 100
keybd_event vbkey, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0
End Sub
Private Sub Command1_Click()
k1 = Timer
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
Command1.Caption = "開始"
Command2.Caption = "停止"
Timer1.Interval = 200
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
If Timer - k1 >= 2 Then '每隔2000毫秒按壹次大鍵盤的數字1
SendKeyToWnd vbKey1
k1 = Timer
End If
End Sub