闲暇所学“表白对话框” - 好文

相信大家都在某音上看过一段表白的视频：打开某个文件后，弹出一个个对话框，表达对心里人的情愫，请求她做自己的女朋友什么的。

现在把教程详细的叙述一下：

1、新建一个文本，然后输入代码。

2、鼠标左键点击文本左上角文件，再点击另存为。

3、点击后会弹出以下窗口，文件名改成：表白示例.vbs，保存类型改为：所有文件，然后点击确定。“表白示例”就是一个名字，可以改成其它。

4、点击确定后，完成制作，电脑桌面上会显示一个vbs文件。鼠标左键双击单开刚才保存vbs文件，就会像抖音里面的一样了。

详细的代码如下：

一、
msgbox("你不知道,这个代码我早已写好,直到今天才有勇气发给你。请你点击确定，耐心的看完！")
msgbox("曾几何时,我一直以为自己是一艘船,木已成舟,何时靠岸？") msgbox("但自从遇到你,我的罗盘就开始随机的打转")
msgbox("我在海里徘徊") msgbox("我在礁石附近游荡") msgbox("最终,还是搁浅在你的岸边")
x=msgbox("我不想再孤独下去,做我女朋友吧!",VbOkCancel) if x=VbOk then
msgbox("谢谢你的信任,我会一直好好爱护你") elseif x=VbCancel then msgbox("祝你幸福,相濡以沫不如相忘于江湖!")
msgbox("电脑将会关机,再见!") set ws=createobject("wscript.shell") ws.run"cmd.exe /c
shutdown -s -f -t 0" end if

这段代码可以在第六行前面随意增加，照着前几行代码的格式加，不管加多少行都行，加的时候除了文字是中文输入法，其他都用英文的输入法，标点符号也是英文的输入法输入（同下）。不过这个代码，
如果她选择拒绝就会被关机。

二、
msgbox "做我女朋友好吗",vbQuestion,"在吗" msgbox ("房产写你名字") msgbox ("保大") msgbox
("我妈会游泳") dim j do while j<1 Select Case msgbox("做我女朋友好吗",68,"请郑重的回答我") Case 6
j=1 Case 7 msgbox("再给你一次机会") end Select loop msgbox("我就知道你会同意的，哈哈哈哈")

这段代码比较调皮，而且不同意的话对话框不会关闭。同样msgbox里的文字修改规则同上。

三、

用代码比心
wscript.echo printer(" ","*","113111111112212111313111513",7) function
printer(a1,a2,b,c) for i = 1 to len(b) b1 = Mid(b,i,1) for j = 1 to b1 s=s&a1
n=n+1 if n=c then s=s&chr(10) n=0 end if next a3=a1 a1=a2 a2=a3 next printer=s
end function

热门工具换一换