VB 怎么做 自动按键

Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _

    ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)



Public Const KEYEVENTF_KEYUP = &H2

Public Const KEYEVENTF_KEYDOWN = 0



Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Timer1_Timer()

    If GetAsyncKeyState(vbKeyF9) <> 0 Or GetAsyncKeyState(vbKeyPageUp) <> 0 Then

        Do Until GetAsyncKeyState(vbKeyF10) <> 0 Or GetAsyncKeyState(vbKeyPageDown) <> 0

            keybd_event vbKey1, 0, KEYEVENTF_KEYDOWN, 0

            keybd_event vbKey1, 0, KEYEVENTF_KEYUP, 0

            DoEvents

            Sleep 1000

        Loop

    End If

End Sub

Option Explicit



Private Sub Form_Load()

    Timer1.Interval = 1000

    Timer1.Enabled = True

End Sub



Private Sub Timer1_Timer()

    On Error Resume Next

    SendKeys "1"

End Sub