用VB编程实现自动每隔一秒自动点击ESC

来源：百度知道 编辑：UC知道 时间：2024/05/29 15:34:16
用command和定时器控件实现每隔一秒程序自动点击ESC键，点击command程序开始，再次点击程序停止
程序要支持后台运行，就是最小化后也能有效果

100%你的需要。/

Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Timer1.Enabled = True
Timer1.Interval = 1000
Command1.Caption = "停止"
Else
Timer1.Enabled = False
Timer1.Interval = 0
Command1.Caption = "开始"
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "开始"
End Sub

Private Sub Timer1_Timer()
SendKeys "{esc}"
End Sub

Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
SendKeys "{ESC}"
End Sub