vbs表白文件

看抖音上什么vbs停火，就自己稍微看了看，万一以后又用了。。。。。，都知道怎么用吧，把下面代码粘贴复制到新建的txt文件里，然后更改后缀名为vbs，之后点击就可以了，效果自己试（表白必备）

 

MsgBox "            十年相遇"
MsgBox "            百年回眸"
MsgBox "          千年同船渡"
MsgBox "       我愿以万年的等待"
MsgBox "          百世的轮回"
MsgBox "       换你今朝一世情缘"
MsgBox "              可否"
dim a(5)
a(0)="    天大，地大，女友最大"
a(1)="          工资上交"
a(2)="           房写你名"
a(3)="          帮清购物车"
a(4)="   其他附加条件可以告诉我，一定牢牢铭记"
a(5)="        真的可以说^_^"
Dim j
Do
j = inputbox("姑娘，做我女朋友吧")
if j = "我同意" Or j = "同意" Or j = "好" Or j = "嗯" Or j = "ok" Or j = "没问题" then  
MsgBox "                ----          ----"+chr(10)+"             /         \     /        \"+Chr(10)+"           /             \/             \"+Chr(10)+"        /                 I                \ "+Chr(10)+"         \           LOVE             /"+Chr(10)+"            \            U             /"+Chr(10)+"              \          xx         /" +Chr(10)+"                 \       xx      / "+Chr(10)+"                   \     xx   /"+Chr(10)+"                      \     /"+Chr(10)+"                        \/",4096 ,"             此心似我心"
MsgBox "         you are my girlfriend，" + Chr(13)+"    from this day until to my last days.",,"                        "

exit do
else

msgbox a(i)
i=i+1
if i >= 6 then
i = 5
end if

end If
Loop