有意思的VB小程序进阶版

在总结了各种VB小程序之后，我写出了神一般的VB程序（有点吹了），并且附了程序的注释在后面，自己可以调节里面的数值，其恶意程度完全可控！写出来供大家参考学习！

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

第二步、在里面输入以下内容：

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

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

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

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