娱乐时刻--VBS搞怪弹窗
Posted Mr.zhou_Zxy
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了娱乐时刻--VBS搞怪弹窗相关的知识，希望对你有一定的参考价值。
VBS搞笑弹窗：
复制代码到一个文本文件中，修改后缀名为.vbs
on error resume next
set op=createobject("wscript.shell")
b="我有房"
c="我有车"
d="我妈会游泳"
e="在考虑一下嘛！女神"
n=0
do
dim a
a=msgbox("做我女朋友好不好？",4096+33,"我鼓足勇气想要对你说：")
if a=VBok then
msgbox"O(∩_∩)O 恭喜你！从现在起，你有男朋友了，请伸出你的手手",4096,"哈哈O(∩_∩)O哈哈~"
wscript.sleep 300
wscript.quit
else
n=n+1
if n=1 then
zz=b
else
end if
if n=2 then
zz=c
else
end if
if n=3 then
zz=d
else
end if
if n=4 then
zz=e
else
end if
op.popup ""&zz&"",1,"T^T",4096+64
end if
loop
以上是关于娱乐时刻--VBS搞怪弹窗的主要内容，如果未能解决你的问题，请参考以下文章