分享：一些VBS小资源

前言

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

正文

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

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

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

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

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

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

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

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

版权信息