千城博客

一段很有意思的vbs表白代码

教程开始

在桌面新建文本文档。然后打开输入如下代码:
const title = "爱情测试"


const yourname = "范冰冰"


const question = "你最喜欢的人是谁?请在下面的方框中输入他(她)的名字。"


const info = "你在说谎!不要逃避,实话实说。"


const scend = "你说出了你的心扉,那就向他(她)表白吧。"


dim youranswer


do


youranswer = inputbox(question, title)


if youranswer <> yourname then msgbox info, vbinformation+vbokonly, title


loop until youranswer = yourname


msgbox scend, vbinformation+vbokonly, title

输入完成以后,单击文件-另存为

文件名:重要信息.vbs

保存类型:所有文件单击,桌面上的文件试试。

(∩_∩)O哈哈~ 你必须输入“范冰冰”才能关闭这个窗口。

当然,里面的代码“范冰冰”可以根据你的需要修改。

大功告成,赶快将这个文件发给你的好友试试吧!
她(他)一定会被你整哭的~!


×

感谢您的支持,我们会一直保持!

扫码支持
请土豪扫码随意打赏

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

打赏作者
版权所有,转载注意明处:千城博客 » 一段很有意思的vbs表白代码
标签: 代码 有趣 表白

发表评论

表情
看不清楚?点图切换

网友评论(0)