Question

VB设置指定某段时间运行程序..

请问高手如果设置程序在某段时间运行?
例如:现在有窗体1,在里面写一段代码,让它在23:00 到 7:00这段时间运行窗体2 ???
其实我是想写一程序限制一下别人使用我的电脑啦...等他在这段时间一开机就关啦...
这程序里已经有写入注册表run的代码实现自启了,现在只需要代码实现23点到7点运行窗体2实行自动关机...谢谢大家...

Answer 1

其实我是想写一程序限制一下别人使用我的电脑啦...等他在这段时间一开机就关啦...
就不需要让窗体显示,加在启动项，到时倒计时关机，如果是自已用，在运行框ShutDown -a取消,或者做热键呼出
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 100
me.Hide
End Sub
Private Sub Timer1_Timer()
If Hour(Now) < 7 Or Hour(Now) >= 23 Then
Shell "shutdown.exe -s -t 60"
End
End If
End Sub

Answer 2

在窗体1里加个timer

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
If Hour(Now) < 7 Or Hour(Now) >= 23 Then
Form1.Hide
Form2.Show
Else
Form1.Show
Form2.Hide
End If
End Sub

Answer 3

关机那是不可能的。因为你的代码运行监视系统时间后台还可以运行，关机那就肯定不行，除非写成开机启动，那么他一开机这段代码就会运行，从而实现关机。
Private sub form_load()
timer1.enabled=false
timer1.inteval=1000
end sub
private sub Timer1_timer()
label1=now
if label1="#2009-6-12 23:00:00 #" then form2.show:me.hide
if label1="#2009-6-13 07:00:00 #" then form1.show:form2.unload
end sub

Answer 4

不就是个定时器嘛