有意思的VB小程序进阶版

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