一个很简单却又让女神无法拒绝的表白VBS代码
过年啦!又是一年催婚相亲时,年后的情人节很快也会到来。如何向女神表白是一件非常让人头疼的事情。
今天给各位小伙伴分享一个很简单却又让女神无法拒绝的表白VBS代码。
第一步:
右键单击桌面任意空白位置,依次选择右键菜单中的"新建" "文本文档"。
左键单击选中"新建文本文档.txt",按下键盘上的F2,对其重命名。将文件名及文件扩展名修改为"女神亲启.vbs"。
请注意将计算机的文件扩展名设置为可见,否则上面的操作无效。
第二步:
右键单击"女神亲启.vbs",选择右键菜单中的"编辑"。
将代码区域的代码粘贴至文档中,同时按下键盘上的"Ctrl+S"键保存文档。
关闭文档后,表白神器就可以使用了。接下来大家就会看到女神无奈的表情。
代码区域:
Msgbox "我有一件事想跟你说。",vbInformation,"女神亲启"
Msgbox "与君初相识,犹如故人归。天涯明月新,朝暮最相思。"
Msgbox "做我女朋友好吗?",vbQuestion,"女神亲启"
Msgbox "房产写你名字!"
Msgbox "保大!"
Msgbox "我妈会游泳!"
Dim i
Do while i<1
Select Case Msgbox ("做我女朋友好吗?",68,"女神请三思")
Case 6 i=1
Case 7 Msgbox "再给你一次机会"
End Select
Loop
Msgbox "哈哈哈哈,我就知道你会同意的。"
代码解析:
"MsgBox"为"Message Box"的缩写,MsgBox在对话框中显示一条消息,等待用户单击某个按钮,并返回一个整数,指示用户单击的按钮。MsgBox引号中的文字可以根据需要进行更改。
vbInformation是对话框图标的样式,显示"通知消息"图标。
vbQuestion是对话框图标的样式,显示"询问信息"图标。
Dim语句的格式为:Dim <变量名> [as 数据类型];用来声明变量。
Do While…Loop语句:首先判断循环条件是否满足,如果条件不满足则不执行循环语句下的循环体;如果条件满足,即循环条件为True时,执行循环体。循环体内如果没有Exit Do语句强制退出循环,那么程序将回到循环开始处重复上面的步骤,直到循环条件不满足,或者循环体内有Exit Do强制退出语句。
Select Case判断语句:它的功能是根据不同的条件返回不同的值。
格式是:
Select Case 判断条件的表达式
Case 值1
操作1
Case 值2
操作2
……
Case Else
操作n
End Select
比如,当表达式等于值1,则执行操作1,等于值2,就会执行操作2,以此类推。
如果要同时定义按钮类型和图标样式,可直接将按钮类型的取值和图标样式的取值相加即可。例如:Select Case Msgbox("做我女朋友好吗?",68,"请郑重的回答我!")。
68=64(vbInformation的值)+4(vbYesNo的值)。
vbYesNo是对话框中显示的按钮的类型与数目,显示"是"和"否"按钮。
知识改变命运,科技成就未来。今天的分享就到此结束,感谢您的支持。
国产手机市场风云再起荣耀独立后风头正盛,酷派新机再引热议众所周知,今年国产手机市场的行情不容乐观,部分头部手机厂商的出货量和增长率都纷纷下滑。好在,在手机行业面临寒潮的情况下,仍然有手机厂商保持实力,甚至逆流而上。最近一个月,这部分国产
旅游业复苏要靠市场的力量(中英双语)2022年5月31日,文化和旅游部发布关于加强疫情防控科学精准实施跨省旅游熔断机制的通知,将跨省旅游熔断机制范围精确到县(市区旗)级。这就标志着自去年8月开始实施的跨省游熔断机制不
腾讯加码能源行业数字化,瞄向碳中和经济观察网记者任晓宁6月9日下午,腾讯发布两款面向能源行业的数字化产品,全方位进军能源行业。这是腾讯云能源业务独立成为一级部门后,首次对外公布该业务。腾讯入局能源行业,与碳中和大背
一二三线互联网公司划分标准和榜单最近要写一篇关于互联网公司研发效能的文章,但是遇到个问题就是,什么样的公司是一线二线三线互联网公司?有没有划分标准?各个互联网公司都是啥级别?择日不如撞日,趁着这个机会,正好把这个
2022上半年安卓手机各项最佳,三星是最大赢家,国产品牌表现惊艳今年智能手机发布的主题似乎是迭代升级,而不是大规模变化。无论是三星GalaxyS22Ultra还是一加10Pro小米12Pro还是VivoX80Pro等都是这样,到目前为止,202
巴黎世家的品牌故事和品牌文化,它被誉为时尚的生产者2018年4月26日,一名中国阿姨在巴黎春天百货内的时尚品牌巴黎世家专柜排队购物时遭遇外国人插队,阿姨欲阻止,却被对方推搡!中国阿姨的儿子冲过来理论,结果被一群外国人打了。最后插队
彼得大帝最豪华的住所,迄今已有三百多年历史的俄罗斯豪华宫廷在大北方战争(17001721)期间,彼得大帝打败了瑞典人,占领了涅瓦河流入芬兰湾的地区。1703年,在这片新征服的土地上,他建立了圣彼得堡,成为他的帝国的首都。早在1714年,就
阳朔益田西街的夜晚到了阳朔,除了漓江两岸的风光,最让人记住的就是西街的夜晚。西街的夜晚可以说是一个梦幻的夜晚,在这里可以找到青春找到浪漫找到曾经经历过的时光。人们说西街是年轻人的世界,到了西街,这里
晨曦中和荷塘早上的暖阳撒播着明媚的光芒,今日再游鱼鸟河,去追着黑公主的梦。我们走在鱼鸟河的青石路上,空气中散发着淡淡的清香。今日游园的人三三两两,让我们可以独享这一片幽静,就仿佛我们真的入了朱
新疆中小学生跨区出行无需报备!近日,自治区人民政府印发自治区贯彻落实国发202212号文件精神推进经济稳增长一揽子政策措施(以下简称推进经济稳增长一揽子政策措施),提出九个方面46项措施,并发出通知,要求各地区
在日本街头看到这一现象,才知道中国和日本的老人退休后的不同日本是一个让中国又爱又恨的国家,恨是因为两国历史上的纠葛,而爱则是因为日本的文化商业产品在中国也非常受欢迎,中国人出国旅游的游客中,去日本旅游的游客会占有非常大的比例。不过去日本的