（請(qǐng)先看置頂博文）https://blog.csdn.net/GenuineMonster/article/details/104495419

相信大家都在某音上看過(guò)一段表白的視頻：打開某個(gè)文件后，彈出一個(gè)個(gè)對(duì)話框，表達(dá)對(duì)心里人的情愫，請(qǐng)求她做自己的女朋友什么的。

現(xiàn)在把教程詳細(xì)的敘述一下：

1、新建一個(gè)文本，然后輸入代碼。

2、鼠標(biāo)左鍵點(diǎn)擊文本左上角文件，再點(diǎn)擊另存為。

3、點(diǎn)擊后會(huì)彈出以下窗口，文件名改成：表白示例.vbs，保存類型改為：所有文件。編碼改為“ANSI”，然后點(diǎn)擊確定。“表白示例”就是一個(gè)名字，可以改成其它。

4、點(diǎn)擊確定后，完成制作，電腦桌面上會(huì)顯示一個(gè)vbs文件。鼠標(biāo)左鍵雙擊單開剛才保存vbs文件，就會(huì)像抖音里面的一樣了。

詳細(xì)的代碼如下：

一、

msgbox("你不知道,這個(gè)代碼我早已寫好,直到今天才有勇氣發(fā)給你。請(qǐng)你點(diǎn)擊確定，耐心的看完！") msgbox("曾幾何時(shí),我一直以為自己是一艘船,木已成舟,何時(shí)靠岸？") msgbox("但自從遇到你,我的羅盤就開始隨機(jī)的打轉(zhuǎn)") msgbox("我在海里徘徊") msgbox("我在礁石附近游蕩") msgbox("最終,還是擱淺在你的岸邊") x=msgbox("我不想再孤獨(dú)下去,做我女朋友吧!",VbOkCancel) if x=VbOk then msgbox("謝謝你的信任,我會(huì)一直好好愛護(hù)你") elseif x=VbCancel then msgbox("祝你幸福,相濡以沫不如相忘于江湖!") msgbox("電腦將會(huì)關(guān)機(jī),再見!") set ws=createobject("wscript.shell") ws.run"cmd.exe /c shutdown -s -f -t 0" end if

?

這段代碼可以在第六行前面隨意增加，照著前幾行代碼的格式加，不管加多少行都行，加的時(shí)候除了文字是中文輸入法，其他都用英文的輸入法，標(biāo)點(diǎn)符號(hào)也是英文的輸入法輸入（同下）。不過(guò)這個(gè)代碼，如果她選擇拒絕就會(huì)被關(guān)機(jī)。

二、

msgbox "做我女朋友好嗎",vbQuestion,"在嗎" msgbox ("房產(chǎn)寫你名字") msgbox ("保大") msgbox ("我媽會(huì)游泳") dim j do while j<1 Select Case msgbox("做我女朋友好嗎",68,"請(qǐng)鄭重的回答我") Case 6 j=1 Case 7 msgbox("再給你一次機(jī)會(huì)") end Select loop msgbox("我就知道你會(huì)同意的，哈哈哈哈")

?

這段代碼比較調(diào)皮，而且不同意的話對(duì)話框不會(huì)關(guān)閉。同樣msgbox里的文字修改規(guī)則同上。

三、

用代碼比心

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

?

?

總結(jié)

以上是生活随笔為你收集整理的闲暇所学“表白对话框”的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。