展开全部
Option Explicit
Dim WshShell, Tmp1 As Long
Set WshShell = wscript.createobject("wscript.shell")
Private Sub Timer1_Timer()
If tmp1 = 0 Then
WshShell.SendKeys "0"
tmp1 = 3
End If
tmp1 = tmp1 - 1
End Sub
Private Sub Cmbstar_click()
tmp1 = 3
Timer1.Enabled = True
End Sub
Private Sub CmbStop_click()
Timer1.Enabled = False
End Sub
Dim WshShell, Tmp1 As Long
Set WshShell = wscript.createobject("wscript.shell")
Private Sub Timer1_Timer()
If tmp1 = 0 Then
WshShell.SendKeys "0"
tmp1 = 3
End If
tmp1 = tmp1 - 1
End Sub
Private Sub Cmbstar_click()
tmp1 = 3
Timer1.Enabled = True
End Sub
Private Sub CmbStop_click()
Timer1.Enabled = False
End Sub
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
不明白“按一次零”是什么意思?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询