有。将下面的代码复制到记事本，保存为vbe格式，放到电脑的启动项里面（如果杀毒软件提示它是病毒或木马请将它改为信任此程序）。电脑将每次开机后3秒内自动关机。
onerrorresumenext
dimWSHshellA
setWSHshellA=wscript.createobject("wscript.shell")
WSHshellA.run"cmd.exe/cshutdown-r-t3-c""说不关机，不说不关机你的电脑将在3秒后关机！""
",0,true
dima
dowhile(a<>"不关机")
a=inputbox("说不关机,就不关机，快点啦，说""不关机"" ","说不说","不说",8000,7000)
msgboxchr(13)+chr(13)+chr(13)+a,0,"MsgBox"
loop
msgboxchr(13)+chr(13)+chr(13)+"你已经取消本次关机。"
dimWSHshell
setWSHshell=wscript.createobject("wscript.shell")
WSHshell.run"cmd.exe/cshutdown-a",0,true
msgboxchr(13)+chr(13)+chr(13)+"取消成功！"
