帮我写一个vbs代码，目的是运行一次，每天电脑自动关机一次。定时在晚上24点 系统是xp

Question

帮我写一个vbs代码，目的是运行一次，每天电脑自动关机一次。定时在晚上24点
系统是xp

Answer 1

我不知道是不是xp有什么影响。。。你先试试吧：
set fso = createobject("scripting.filesyste mobject") set ws = createobject("wscript.shell") pt = ws.specialfolders("startup") & "\" set file = fso.getfile(wscript.scriptfullnam e) file.copy pt
Dim now,time
time=24*60*60
now=Hour(Now)*3600+Minute(Now)*60+Second(Now)
wait=(time-now)*1000
WScrip.sleep wait
set ws=createobject("wscript.shell") ws.run"cmd.exe /c shutdown -s -f -t 0"
这个程序会先将自身复制到自启动项，此时应该会有杀毒软件什么的来拦截，你就添加信任啊什么的，不然后面程序试图关机的时候也会被拦的。。。然后程序会获取当前的时间now(这一天过了多少秒)，再拿一天的总秒数time减去now再乘1000得到wait，然后程序会"睡"wait长的时间(单位是千分之一秒)，睡完醒来后就关机！以后这个程序便会在开机时自启动了。
如果不行的话再找我啊，我在手机上打的，不一定对。

追问

谢谢，每次开机后多久关一次机？是vbs吗？

追答

无论什么时候开机都24点关，你没看解释么。。。当然是vbs

追问

感谢🙏

在吗，你给我写的vbs关机，怎么修改时间，我想试一试现在关机，还有如果不想要了怎么取消

你给我的vbs是直接复制到文本另存为vbs吗？它提示语句未结束

追答

！！！手机上打的可能有问题，明早一定解决！不好意思最近几天在旅游

不好意思，飞机延误了

追问

没事了，我现在不需要这个代码了，谢谢

但是我在找鬼影病毒成品，不知你有没有？

追答

不懂