vbs定时关机程序怎么写
帮我写一个vbs程序要求在每天的11:45和22:45提示“系统将于十分钟后关闭,请您对重要文件存档”然后在每天11:55和22:55电脑自动关机,在每天的其他时间,每隔...
帮我写一个vbs程序 要求在每天的11:45和22:45提示“系统将于十分钟后关闭,请您对重要文件存档”然后在每天11:55和22:55电脑自动关机,在每天的其他时间,每隔30分钟电脑提示用户“起来活动活动,有助于缓解视力疲劳!”
展开
1个回答
展开全部
试试这个:
'══代══码══开══始════
on error resume next
set ws=CreateObject("wscript.shell")
i=0
do
k1=abs(DateDiff("s",CDate("11:45:00"),time))<60
k2=abs(DateDiff("s",CDate("22:45:00"),time))<60
if k1 and k2 then
exit do
end if
wscript.sleep 1000*10
i=i+1
if i=180 then
wscript.echo "起来活动活动,有助于缓解视力疲劳!",30
i=0
end if
loop
ws.run "cmd /c shutdown -s -t 600 -c 系统将在计时结束关闭,请注意保存需要的文件",0
'══代══码══结══束════
'══代══码══开══始════
on error resume next
set ws=CreateObject("wscript.shell")
i=0
do
k1=abs(DateDiff("s",CDate("11:45:00"),time))<60
k2=abs(DateDiff("s",CDate("22:45:00"),time))<60
if k1 and k2 then
exit do
end if
wscript.sleep 1000*10
i=i+1
if i=180 then
wscript.echo "起来活动活动,有助于缓解视力疲劳!",30
i=0
end if
loop
ws.run "cmd /c shutdown -s -t 600 -c 系统将在计时结束关闭,请注意保存需要的文件",0
'══代══码══结══束════
参考资料: http://zhidao.baidu.com/question/183142299.html
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询