怎么让一个程序每10分钟执行一次?
怎么让一个程序每10分钟执行一次,或者1个小时一次!有个批处理是加载一个服务,但这个服务老莫名其妙停止,有什么方法让这个批处理每1个小时自动运行一次?
Private a As Long '声明a的变量为公用变量 Private Sub Form_Load() a = 0 '初始化计数变量。 Form1.Visible = False Timer1.Enabled = True Timer1.Interval = 60000 '1分钟响应一次。单位为毫秒。(1000毫秒=1秒) Rem 最大值好像是60 000,超过这个数值可能会溢出。所以不能直接设置为>60 000毫秒为宜。 End Sub Private Sub Timer1_Timer() a = a + 1 '正在数过了几分钟。 If a = 10 Then 'a=10 为时间执行的间隔,你设置为几就几分钟后执行你的代码。 Shell "cmd.exe" '你要执行的代码,请自行修改。 Rem 还是你要执行的代码 Rem ………… a = 0 '计数变量重置为0 End If End Sub