这篇文章给大家介绍一下关于网上很火的VBS表白代码的相关资料,教你用vbs跟心仪的对象表白,简单实用,内容可以自己结合实际进行修改。
1.新建文本文档,复制代码。
代码如下:
MsgBox " 十年相遇"
MsgBox " 百年回眸"
MsgBox " 千年同船渡"
MsgBox " 我愿以万年的等待"
MsgBox " 百世的轮回"
MsgBox " 换你今朝一世情缘"
MsgBox " 可否"
dim a(5)
a(0)=" 天大,地大,女友最大"
a(1)=" 工资上交"
a(2)=" 房写你名"
a(3)=" 清购物车"
a(4)=" 保大"
a(5)=" 你就答应我吧^o^"
Dim j
Do
Select Case msgbox ("姑娘,做我女朋友吧",4)
Case 6
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
Case 7
msgbox a(i)
i=i 1
if i >= 6 then
i = 0
end if
end Select
Loop
2.保存记事本文档,把txt文件的后缀名txt改成vbs。
3.双击运行,查看效果。
以上就是利用VBS向心仪的对象表白的方法,里面汉字部分可以根据自己实际进行更改,是不是很炫酷!~
想要学习更多关于VBS脚本知识,欢迎关注微信公众号"vbs_edit"(VBS脚本之家)!
,