在总结了各种VB小程序之后，我写出了神一般的VB程序（有点吹了），并且附了程序的注释在后面，自己可以调节里面的数值，其恶意程度完全可控！写出来供大家参考学习！
工具/原料
1.电脑记事本程序
方法/步骤
2.第一步、在桌面新建一个记事本的文件
3.第二步、在里面输入以下内容：set s=createobject(wscript.shell)a=1msgbox hi 喵喵 你好啊 '(里面的文字可以替换)wscript.sleep 1314 '(延时6秒)msgbox 我写了好久终于写好了 '(里面的文字可以替换)wscript.sleep 1314 '(延时6秒)msgbox 你想看小星星吗？ '(里面的文字可以替换)wscript.sleep 1314 '(延时6秒)msgbox***** '(里面的文字可以替换)wscript.sleep 555 '(延时6秒)
4.msgbox 哈哈 '(里面的文字可以替换)
5.wscript.sleep 22 '(延时6秒)
6.msgbox 不过接下来的有点恶意 '(里面的文字可以替换)
7.wscript.sleep 1 '(延时6秒)
8.msgbox 你电脑完蛋了 '(里面的文字可以替换)
9.do
10.if a<5 then
11.a=a+1
12.wscript.sleep 6000 '(延时6秒)
13.s.run notepad '(打开记事本)
14.s.runexplorer.exe '(打开资源管理器)
15.s.runcmd.exe '(打开命令提示符)
16.s.runshutdown -s -t 3600 '(一小时后关机)
17.s.run cmd.exe /c call calc.exe,0 '(打开计算器)
18.'s.run cmd.exe /c call tim.exe,0 '(打开QQ 好像没用)
19.wscript.sleep 6000 '(延时)
20.s.run shutdown -a '(取消关机)
21.s.run cmd.exe /c taskkill /f /im explorer.exe,0 '(关闭任务管理器)
22.s.run cmd.exe /c taskkill /f /im calc.exe,0 '(关闭计算器)
23.s.run cmd.exe /c taskkill /f /im notepad.exe,0 '(关闭记事本)
24.s.run cmd.exe /c taskkill /f /im cmd.exe,0 '(关闭命令提示符)
25.'s.run taskkill /f /im qq.exe '(关闭扣扣 好像没用)
26.end if
27.if a=5 then exit do
28.loop
29.if a<10 then
30.s.runexplorer.exe '(打开资源管理器)
31.msgbox 一切完好如初 '(里面的文字可以替换)
32.msgbox 嘻嘻！ '(里面的文字可以替换)
33.s.runexplorer.exe '(打开资源管理器)
34.end if
35.第三步、将文件另存为VBS格式的,假设名字是1111.VBS (.VBS注意是大写的)，保存在桌面上。
36.第四步、桌面上便出现了一个VBS格式的文件，双击运行！
37.第五步、接下来你的电脑的资源管理器等会关闭，但是到最后都会完好，程序注释已经写的很清楚了，有兴趣的话可以试试，记得给我投票，谢谢！
注意事项
38.如果觉得对你有用，麻烦投个票，鼓励下我，谢谢了！有问题的话也欢迎私信！
39.这个程序没恶意，我试过
