Question

请教用VB编写一个自动按键小程序

当标题为“消息框"的窗口中出现“请按F1,再按F2”的信息时，自动按F1、F2。把完整代码写出来吧。
一个滚动显示各种信息的窗口‘消息”，当其出现‘请按F1,F2'时，需手动按F1F2,请用VB编写代码，实现检测到窗口中出现上述信息时，自动按F1和F2.

Answer 1

程序包含一个标签和一个间隔1秒的时间控件... 

Private xx(1 To 5) As String 

Private i As Integer, f As Integer 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 

If KeyCode = 112 Then 

f = MsgBox("你按了F1,继续吗？", vbYesNo + vbInformation, "提示") 

If f = vbYes Then 

Timer1.Enabled = True 

Else 

Call Form_KeyDown(113, 0) 

End If 

ElseIf KeyCode = 113 Then 

MsgBox "你按了F2键，结束应用程序！" 

End 

End If 

End Sub 

Private Sub Form_Load() 

xx(1) = "aaaaaaaaaa" 

xx(2) = "bbbbbbbbbb" 

xx(3) = "cccccccccc" 

xx(4) = "dddddddddd" 

xx(5) = "请按F1、F2" 

i = 1 

End Sub 

Private Sub Timer1_Timer() 

Label1.Caption = xx(i) 

If xx(i) = "请按F1、F2" Then 

Timer1.Enabled = False 

Call Form_KeyDown(112, 0) 

End If 

i = i + 1 

If i > 5 Then i = 1 

End Sub 

你也可以手动按F1、F2 效果一样！

Answer 2

在窗体上添加计时器Timer1控件
代码部分是
Private sub Timer1_timer
i=i+1
if i = 180 then
Msgbox "请按F1,再按F2"
sendkeys "{F1}"
sendkeys "{F1}"
i=0
end if
end sub