（請先看置頂博文）本博打開方式，請詳讀_liO_Oil的博客-CSDN博客_怎么把androidstudio卸載干凈

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

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

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