我想做个vb 定时关机的程序 但是不知道怎么写代码 能帮我一下吗
发布网友
发布时间：2024-10-22 20:33
共5个回答
热心网友
时间：2024-11-13 08:53
上面有的用vbs，有的说做不出来，唉···我帮你写吧，小弟我只会bat，给你调试了半天才搞出来，要不是我今天和女友分手，心情不好，我才没闲心写这个呢，兄弟，我废话不多说了，直接给代码吧
-----------------------------------------
@echo off
sc config schele start= auto
sc start schele
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，直接双击运行就能达到你想要的目的了！！
热心网友
时间：2024-11-13 08:53
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
热心网友
时间：2024-11-13 08:54
不可能啊！关机时程序不就也关了吗？无法实现
热心网友
时间：2024-11-13 08:54
开不了机是无法做到的
========================================
那么把你的vbs或者bat设置为开机启动就行了
检查当前时间是否是在关机范围,是则关机
热心网友
时间：2024-11-13 08:55
我做了个完美定时关机，但代码太长
