如何利用VB实现键盘操作，比如每隔1秒就按一下F10 和 F11，当然也许还需要一个开始和暂停。本人VB初学者

Question

最好有源代码，可以比对注释学习

Answer 1

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_KEYUP = &H2 '释放按键常数
Dim ii As Integer

Private Sub Command1_Click()
ii = ii + 1
Select Case ii
Case 1
Timer1.Enabled = False
Command1.Caption = "开始"
Case 2
Timer1.Enabled = True
Command1.Caption = "停止"
ii = 0
End Select

End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
Command1.Caption = "停止"
End Sub
Private Sub Timer1_Timer()
If Format(Time, "s") Mod 2 = 0 Then
Call keybd_event(121, 0, 0, 0) '按下f11
Call keybd_event(121, 0, KEYEVENTF_KEYUP, 0) '释放f11
Else
Call keybd_event(122, 0, 0, 0) '按下f12
Call keybd_event(122, 0, KEYEVENTF_KEYUP, 0) '释放f12
End If
End Sub

Answer 2

初学用API夸张了点，可以在timer控件的timer()事件中用sendkeys "{F10}"来实现。当然之前还要激活接收按键的窗口。