VB 定时15秒按一次键盘上的数字8

来源：百度知道 编辑：UC知道 时间：2024/05/28 03:16:23
用于游戏啊
应该涉及到前台窗口问题
请给出全部代码，谢谢
无限循环，最好有个按钮结束和开始

'在窗体上一个时钟控件Trmer1，一个按钮command1，
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = Not Timer1.Enabled
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static i As Integer

i = i + 1
If i = 15 Then
SendKeys "{8}"
i = 0
End If
End Sub

按键精灵

Private Sub Command1_Click()
If Timer1.Enabled = False Then
Timer1.Enabled = True: Command1.Caption = "结束"
ElseIf Timer1.Enabled = True Then Timer1.Enabled = False: Command1.Caption = "开始"
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "开始"
Timer1.Enabled = False
Timer1.Interval = 15000
End Sub

Private Sub Timer1_Timer()
SendKeys "8"
End Sub
试下这个 在游戏窗口中没有测试，

给一个timer,2个按钮btnStart, btnStop
---------------------
加载窗