闲暇所学“表白对话框”

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

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

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