看抖音上什么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
elsemsgbox a(i)
i=i+1
if i >= 6 then
i = 5
end ifend If
Loop