前言

这里是2025年的天影大侠，这是网课期间上网找的，当个分享吧

正文

VBS是什么?
VBS是基于Visual Basic的脚本语言。VBS的全称是：Microsoft Visual Basic Script Edition。（微软公司可视化BASIC脚本版）。
大家可以百度查查关于vbs的其他信息，天影大侠这里贴心地准备了百度百科链接…
当然了，和你们一样，我只是一个新手，碰vbs都是为了整蛊好友们
所以，这里就分享天影大侠在网上找到的一些vbs资源
中文部分可自行修改

一个问题，如不选择”是”，则永不能退出！

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
do
a =msgbox("问题内容！！！",vbYesNoCancel,"问题标题")
if a =vbYes then
msgbox "Yes回答内容",,"标题"
exit do
elseif a =vbNo then
b =msgbox("你完了",vbYesNo,"你完了。")
if b =vbYes then
msgbox "你完了！",,"你完了！！！"
else
msgbox "你完了！！！",,"你完了。。。"
end if
else
d =msgbox("你完了！！！",vbYesNo,"你完了——")
if d =vbYes then
msgbox "你完了！",,"你完了！！！"
else
msgbox "你完了。。。",,"你完了！！！"
end if
end if
loop

你完了，无论点击什么都不会关闭，可在任务管理器里关闭

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
do
a =msgbox("你完了。。。",vbYesNoCancel,"你完了")
if a =vbYes then
    b =msgbox("你完了",vbYesNo,"你完了。")
    if b =vbYes then
    msgbox "你完了！",,"你完了！！！"
    else
    msgbox "你完了！！！",,"你完了。。。"
    end if

elseif a =vbNo then
    b =msgbox("你完了",vbYesNo,"你完了。")
    if b =vbYes then
    msgbox "你完了！",,"你完了！！！"
    else
    msgbox "你完了！！！",,"你完了。。。"
    end if
else
    d =msgbox("你完了！！！",vbYesNo,"你完了——")
    if d =vbYes then
    msgbox "你完了！",,"你完了！！！"
    else
    msgbox "你完了。。。",,"你完了！！！"
    end if

end if
loop

打开有惊喜，无限弹窗！关机即可解决

1
2
3
do
wscript.createobject("wscript.shell").run "mshta vbscript:msgbox(""惊喜"")(windows.close)",vhide
loop

看到了吧，领一个去整蛊朋友多是一件美事…