Question

我想做个vb 定时关机的程序 但是不知道怎么写代码 能帮我一下吗

教室里的电脑是我管的， 我需要他在星期1-5中 每天11：30一到就关机 并且11：30-12：00不许开机 还有 4：50-5：30 也要自动关机 还有21：50关机 能用VB做个程序吗 或者用.vbs文件或者bat也行
定时关机我可以做到 就是 在这段时间内开不了机 如何做到？
开不了机 不一定是指 开不了机 就是说 一开机就关机

Answer 1

上面有的用vbs，有的说做不出来，唉···我帮你写吧，小弟我只会bat，给你调试了半天才搞出来，要不是我今天和女友分手，心情不好，我才没闲心写这个呢，兄弟，我废话不多说了，直接给代码吧
-----------------------------------------
@echo off
sc config schedule start= auto
sc start schedule
if exist c:\windows\dingshi.bat del /f c:\windows\dingshi.bat
echo @echo off >>%systemroot%\dingshi.bat
echo for /f "delims=xxx" %%%%i in ('time /t') do ( >>%systemroot%\dingshi.bat
echo if %%%%i GTR 11:30 if %%%%i lss 12:00 shutdown -s -t 0 >>%systemroot%\dingshi.bat
echo if %%%%i GTR 16:50 if %%%%i lss 17:30 shutdown -s -t 0 >>%systemroot%\dingshi.bat
echo )>>%systemroot%\dingshi.bat
echo exit>>%systemroot%\dingshi.bat
REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run /v dingshi.bat /t REG_SZ /d c:\windows\dingshi.bat /f
at 11:30 /every:一,二,三,四,五 shutdown -s -t 0
at 16:50 /every:一,二,三,四,五 shutdown -s -t 0
at 21:50 /every:一,二,三,四,五 shutdown -s -t 0
cls
echo 程序运行完毕····
paus
-----------------------------------------
我用了注册表启动，你的机子如果有杀毒软件，安装的时候一定要关闭，因为会拦截注册表启动的，保存为bat，直接双击运行就能达到你想要的目的了！！

Answer 2

Private Sub Form_Load()
'开机启动，立即检测
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Select Case Format(Time, "hh:nn")
Case "11:30" To "12:00", "16:50" To "17:30", Is > "21:00"
Shell "shutdown -s -f -t 10", vbNormalFocus
End Select
Timer1.Interval = 60000 '60秒检测一次
End Sub

Answer 3

不可能啊！关机时程序不就也关了吗？无法实现

Answer 4

开不了机是无法做到的
========================================
那么把你的vbs或者bat设置为开机启动就行了
检查当前时间是否是在关机范围,是则关机

Answer 5

我做了个完美定时关机，但代码太长