vbs整活小脚本

几个整活的小脚本，做起来容易，新建一个txt文档，将代码复制上去，不要直接保存，用另存为，编码格式选ANSI，否则中文会乱码。最后将文件后缀改为vbs即可。​​​这些小脚本都是可以通过任务管理器强制结束，要注意不要弄成死循环，整人适度。下面附上代码和演示效果。本身不是学这方面语言，只是昨天是愚人节一时兴起研究了下，参考了很多资料和博主的文章，总结了几个比较好玩的。

1.关不掉的弹窗

dim i,j,a,b,c
i=1
j=5
a="点"
b="下"
msgbox"点击确定开冲！"
while i <= 50
c = a&j
if j=-5 then 
b= "下。你点关闭呀，点再多次也没用"
end if
msgbox c&b
j = j-1
i = i + 1
wend
msgbox "哈哈哈上当了把！"
msgbox "愚人节快乐！"

 

2.一直弹窗

dim ws
set ws = wscript.createobject("wscript.shell")
a = 10                      '设置弹窗个数
for i = 1 to a
ws.run "mshta vbscript:msgbox(""提醒喝水小助手！"",0,"" "")(window.close)",vhide
wscript.sleep 1000*1        '设置弹窗间隔时间，单位ms
next

ws.run "taskkill /im mshta.exe /f ",0 ,true   '弹完后关闭所有窗口

3.关闭电脑

这个就不作演示了，四个弹窗完之后就会强制关机。

dim WSHshell 
msgbox "当前电脑的工作都保存了嘛?"
msgbox "确定当前电脑没有运行任何软件?"
msgbox "最后再提醒一次！"
msgbox "那么，电脑要跟你说晚安了~"
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true

4.打开特定网址

option explicit

dim objIe
set objIe=createobject("InternetExplorer.Application")
objIe.navigate "http://www.baidu.com"  '网址可以自行设置

objIe.visible=True