我是一名程序猿，可能是由于工作性质的缘由吧，比较内向，从来不敢当面大声和喜欢的女神
表白，所以看到这个问题，想起了前段时间抖音上比较火的那个表白程序，用很基础的VB脚本代码就可以做出来，觉得挺好玩，所以自己也写了几个小程序，娱乐一下，有兴趣的朋友可以自己试一试哦。第一个，做我女朋友好吗msgbox "做我女朋友好吗",vbQuestion,"暗恋你的我"msgbox ("我有三层小别墅")msgbox ("奔驰宝马自己选")msgbox ("今生只爱你一个")dim jdo while j<1Select Case msgbox("做我女朋友好吗",68,"请考虑后郑重的回答我")Case 6 j=1Case 7 msgbox("再给你一次机会")end Selectloopmsgbox("我就知道你会同意的，和我回家吧")第二个：你是我的男神set ws=createobject("wscript.shell")call shutdown(1)do while a<>"你是我的男神"a=inputbox("快在下面的框框里输入你是我的男神,否则后果自负，快输""你是我的男神"" ","输不输","")loopcall shutdown(2)msgbox "早说就行了嘛",4096+64msgbox"再输一遍你是我的男神!",4096+64msgbox"你是我的男神!",4096+64MsgBox"最后一次!",4096+64MsgBox"如果你很快的点过去,不看的话",4096+64MsgBox"我就让你每天关注我的微博!",4096+64MsgBox"从前有座山!",4096+64MsgBox"山里有个庙.",4096+64MsgBox"庙里有个老和尚在讲故事.",4096+64ws.run"iexplore.exe https://weibo.com/2517506534/profile?topnav=1&wvr=6"msgbox"哎呀累了！说100遍我爱你哄我睡觉",4096+64for i=1 to 100MsgBox i&"遍我爱你",4096+64nextmsgbox"嘿嘿，这还差不多，这次就放过你吧，晚安哦!",4096+64msgbox"最后再问个问题，我是不是你的男神！",4096+64if inputbox("是不是","请选择","是")<>"是" thencall shutdown(1)end ifsub shutdown(s)select case scase 1ws.run"cmd.exe /c shutdown -r -t 60 -c",0case 2ws.run"cmd.exe /c shutdown -a",0end selectend sub在桌面新建一个txt文本，然后将代码复制进去，里面中文的内容可以根据自己的想法修改，英文和标点符号千万不要修改哦，改了就无法执行了。修改好之后保存，再右击文件重命名将文件.txt 后缀改为 .vbs 后缀。双击运行就可以了。 2
物以类聚,‘
发表于 2022-06-23 09:54:38
