UC知道vb 程序代码，按下F12 就可以触发keydown 和timer？
来源：百度知道 编辑：UC知道 时间：2024/06/16 09:00:38
我刚学VB两天 ，遇到个问题，请各位前辈们不吝赐教为谢！
问题如下：VB能不能实现按键‘F10’就触发一个事件？而这个事件内容就是在指定的窗口中模拟一秒后按一次‘W’再过一秒按一次‘D’键。并且循环30次后停止，或者按键‘F1’后停止。
如果能实现，请各位帮帮忙！如果能用将再次加分！小弟在此谢谢大家了！
3楼的hxf0663 老师，你的答案非常接近我的目的，但是还有两个问题，1：我想在指定的窗口中顺序执行按键内容：按下CTRL 延时10毫秒 按键K 松开CTRL 再延时20毫秒，按键C 。循环30次后自动结束，或者按下F1中止。这就是我想实现的目的。
问题2：假如用这段VB代码生成的小程序，在这个小程序最小化到托盘图标区之后，还可以继续执行以上内容吗？
呵呵，可能会很困难，烦老师费心了！谢谢您！
问题如下：VB能不能实现按键‘F10’就触发一个事件？而这个事件内容就是在指定的窗口中模拟一秒后按一次‘W’再过一秒按一次‘D’键。并且循环30次后停止，或者按键‘F1’后停止。
如果能实现，请各位帮帮忙！如果能用将再次加分！小弟在此谢谢大家了！
3楼的hxf0663 老师，你的答案非常接近我的目的，但是还有两个问题，1：我想在指定的窗口中顺序执行按键内容：按下CTRL 延时10毫秒 按键K 松开CTRL 再延时20毫秒，按键C 。循环30次后自动结束，或者按下F1中止。这就是我想实现的目的。
问题2：假如用这段VB代码生成的小程序，在这个小程序最小化到托盘图标区之后，还可以继续执行以上内容吗？
呵呵，可能会很困难，烦老师费心了！谢谢您！
建一个文本框text1,添加以下代码：
Dim i As Integer
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) '键盘keycode值，121为F10,112为F1
If KeyCode = 121 Then
Timer1.Enabled = True
ElseIf KeyCode = 112 Then
Timer1.Enabled = False
End If
End Sub
Private Sub Timer1_Timer()
Randomize
i = i + 1
SendKeys Chr(Rnd * 25 + 65) '由于不知道你要显示的是什么规律的字母，所以显示随机的大写字母
If i = 30 Then
Timer1.Enabled = False
End If
End Sub
模拟按键 用sendkeys