有意思的VB小程序进阶版

1、第一步、在桌面新建一个记事本的文件

2、第二步、在里面输入以下内容：set s=createobject("wscript.shell")a=1msgbox&鳎溻趄酃quot; 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" 你电脑完蛋了 " '(里面的文字可以替换)doif a<5 thena=a+1wscript.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 ifif a=5 then exit doloopif a<10 thens.run"explorer.exe" '(打开资源管理器)msgbox" 一切完好如初 " '(里面的文字可以替换)msgbox" 嘻嘻！ " '(里面的文字可以替换)s.run"explorer.exe" '(打开资源管理器)end if

3、第三步、将文件另存为VBS格式的,假设名字是1111.VBS (.VBS注意是大写的)，保存在桌面上。

4、第四步、桌面上便出现了一个VBS格式的文件，双击运行！

5、第五步、接下来你的电脑的资源管理器等会关闭，但是到最后都会完好，程序注释已经写的很清楚了，有兴趣的话可以试试，记得给我投票，谢谢！