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

相信大家都在某音上看過一段表白的視頻：打開某個文件后，彈出一個個對話框，表達對心里人的情愫，請求她做自己的女朋友什么的。

現在把教程詳細的敘述一下：

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

2、鼠標左鍵點擊文本左上角文件，再點擊另存為。

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

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

?

?

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。