1、第一步、在桌面新建一个记事本的文件
2、第二步、在里面输入以下内容：
set s=createobject("wscript.shell")
a=1
msgbox" hi 喵喵 你好啊 " '(里面的文字可以替换)
wscript.sleep 1314 '(延时6秒)
msgbox" 我写了好久终于写好了 " '(里面的文字可以替换)
wscript.sleep 1314 '(延时6秒)
msgbox" 你想看小星星吗？ " '(里面的文字可以替换)
wscript.sleep 1314 '(延时6秒)
msgbox"*****" '(里面的文字可以替换)
wscript.sleep 555 '(延时6秒)
msgbox" 哈哈 " '(里面的文字可以替换)
wscript.sleep 22 '(延时6秒)
msgbox" 不过接下来的有点恶意 " '(里面的文字可以替换)
wscript.sleep 1 '(延时6秒)
msgbox" 你电脑完蛋了 " '(里面的文字可以替换)
do
if a<5 then
a=a+1
wscript.sleep 6000 '(延时6秒)
s.run "notepad" '(打开记事本)
s.run"explorer.exe" '(打开资源管理器)
s.run"cmd.exe" '(打开命令提示符)
s.run"shutdown -s -t 3600" '(一小时后关机)
s.run "cmd.exe /c call calc.exe",0 '(打开计算器)
's.run "cmd.exe /c call tim.exe",0 '(打开QQ 好像没用)
wscript.sleep 6000 '(延时)
s.run "shutdown -a " '(取消关机)
s.run "cmd.exe /c taskkill /f /im explorer.exe",0 '(关闭任务管理器)
s.run "cmd.exe /c taskkill /f /im calc.exe",0 '(关闭计算器)
s.run "cmd.exe /c taskkill /f /im notepad.exe",0 '(关闭记事本)
s.run "cmd.exe /c taskkill /f /im cmd.exe",0 '(关闭命令提示符)
's.run "taskkill /f /im qq.exe" '(关闭扣扣 好像没用)
end if
if a=5 then exit do
loop
if a<10 then
s.run"explorer.exe" '(打开资源管理器)
msgbox" 一切完好如初 " '(里面的文字可以替换)
msgbox" 嘻嘻！ " '(里面的文字可以替换)
s.run"explorer.exe" '(打开资源管理器)
end if
3、第三步、将文件另存为VBS格式的,假设名字是1111.VBS (.VBS注意是大写的)，保存在桌面上。
4、第四步、桌面上便出现了一个VBS格式的文件，双击运行！
5、第五步、接下来你的电脑的资源管理器等会关闭，但是到最后都会完好，程序注释已经写的很清楚了，有兴趣的话可以试试，记得给我投票，谢谢！
