vbs代码表白_程序员教你一招不要脸的表白
受新冠疫情影响，今天的这个情人节显得很特殊：不能手牵手逛街了，不能去电影院了，不能去外面吃吃喝喝了，也不能放烟花了，就连kiss都要隔着口罩…这还是有幸在一起的情侣，对于那些“被迫”异地恋的情侣来说，只能“隔空示爱”了！
↓↓↓
↓↓↓
↓↓↓
↓↓↓
↓↓↓
↓↓↓
↓↓↓
如果点“否”，弹出
↓↓↓
↓↓↓
点“确定”返回
↓↓↓
点“是”弹出
↓↓↓
代码如下：
msgbox "我有一件事想跟你说",vbQuestion,"在吗？"
msgbox "自从第一天遇见你，我便对你难以忘怀了！"
msgbox "做我女朋友好吗？"
msgbox ("房产写你名字")
msgbox ("保大")
msgbox ("我妈会游泳")
dim j
do while j<1
Select Case msgbox("做我女朋友好吗？",68,"请郑重的回答我！")
Case 6 j=1
Case 7 msgbox("再给你一次机会")
end Select
loop
msgbox("我就知道你会同意的，哈哈哈哈！！")
使用方法：新建一个txt文档，复制以上代码，点击【文件】→【另存为】→【文件名：后缀改为 .vbs（示例：Play.vbs）】→【保存类型：所有文档】。鼠标双击即可执行。
注：代码中“ ”内的中文可任意修改为你喜欢的内容。
以上就是程序员发明的最不要脸的表白弹窗啦！当然，会敲代码的程序员的表白大招可不止这些哦！
病毒无情，人间有情！人生无常，要珍惜眼前人！爱她，就赶紧表白吧！最后祝所有看到这这里的朋友都能表白成功！，有情人终成眷属！
受新冠疫情影响，今天的这个情人节显得很特殊：不能手牵手逛街了，不能去电影院了，不能去外面吃吃喝喝了，也不能放烟花了，就连kiss都要隔着口罩…这还是有幸在一起的情侣，对于那些“被迫”异地恋的情侣来说，只能“隔空示爱”了！ ↓↓↓ ↓↓↓ ↓↓↓ ↓↓↓ ↓↓↓ ↓↓↓ ↓↓↓ 如果点“否”，弹出 ↓↓↓ ↓↓↓ 点“确定”返回 ↓↓↓ 点“是”弹出 ↓↓↓ 代码如下： msgbox "我有一件事想跟你说",vbQuestion,"在吗？" msgbox "自从第一天遇见你，我便对你难以忘怀了！" msgbox "做我女朋友好吗？" msgbox ("房产写你名字") msgbox ("保大") msgbox ("我妈会游泳") dim j do while j<1 Select Case msgbox("做我女朋友好吗？",68,"请郑重的回答我！") Case 6 j=1 Case 7 msgbox("再给你一次机会") end Select loop msgbox("我就知道你会同意的，哈哈哈哈！！") 使用方法：新建一个txt文档，复制以上代码，点击【文件】→【另存为】→【文件名：后缀改为 .vbs（示例：Play.vbs）】→【保存类型：所有文档】。鼠标双击即可执行。 注：代码中“ ”内的中文可任意修改为你喜欢的内容。 以上就是程序员发明的最不要脸的表白弹窗啦！当然，会敲代码的程序员的表白大招可不止这些哦！ 病毒无情，人间有情！人生无常，要珍惜眼前人！爱她，就赶紧表白吧！最后祝所有看到这这里的朋友都能表白成功！，有情人终成眷属！