代碼

MsgBox("我只想說你是我一直以來想要找的那個人，茫茫人海中，相識了你，是一種緣份，只希望用我的真誠，換取你的真情。") MsgBox("我的手愿放在你手里，握手深情甜如蜜；我的心愿靠在你心里，心中話永不渝；我的眼愿看在你眼里，望一眼柔情時空也停。") MsgBox("在你孤獨(dú)悲傷的日子里，請你悄悄地念一念我的名字。并且說：有人在懷念我，在世上我活在一個人的心里。") MsgBox("有一種感覺，它沒有開端也沒有結(jié)果，但它卻時時刻刻占據(jù)我，那就是想你的感覺。") MsgBox("自從你出現(xiàn)后，我才知道原來有人愛是那么的美好。") MsgBox("就這樣陪你一直走，再久也不會累；陪你在夏日街頭漫步，為你撐傘遮擋陽光；為你遞上一杯涼茶，讓你倍感清涼。這個夏日，有你更美。") MsgBox("從看到你的那一刻起，我的心跳就告訴我你是我今生等待的人。你給了我勇氣和動力，我會用一生的努力來呵護(hù)這份心動的。") MsgBox("數(shù)不完的星星，數(shù)不完的記憶。彈起我心中的吉它，讓心曲飛向遠(yuǎn)方，伴你進(jìn)入甜甜的夢鄉(xiāng)。") MsgBox("正是因為愛才悄悄的躲開，躲開的是身影，躲不開的是默默的情懷；今天我終于鼓起勇氣，向你表達(dá)我的愛。") MsgBox("我行過許多地方的橋，看過許多次數(shù)的云，喝過許多種類的酒，卻只愛過一個正當(dāng)最好年齡的人。") MsgBox("之前我不相信一見鐘情，但是見到你的那一刻，我否定了我的看法。我的心為你淪陷，從此只為你跳動。") MsgBox("想再躺在你懷里，想再讓你為我擦干眼淚，想再讓你抱緊我，想再吻你的臉，想要你說聲愛我！") MsgBox("當(dāng)風(fēng)不再追云，當(dāng)冰不再化水，當(dāng)火不再熾熱，當(dāng)石不再堅硬，當(dāng)世上沒有愛情，我才能停止愛你……") MsgBox("我愛你的容貌，更愛你的心靈，即使我不能使你幸福，至少也要愿幸福與你同在。") MsgBox("你的心就是我的海角和天涯，我不能去得更遠(yuǎn)。我們此生共赴天涯海角，不是游走半個地球，而是人間相伴。") MsgBox("你的離去注定讓我一輩子的孤單，沒有你的日子里，我的生活失去了色彩和活力。") MsgBox("最美好的事不過就是，你突如其來給我一個擁抱，人潮擁擠你自然而然的牽起我的手。") MsgBox("你的猶豫期已經(jīng)超過，不許三心二意了！從今天起，只許溫柔體貼，不許橫行霸道；只許愛，不許恨；只許笑，不許哭。") MsgBox("你的淺笑印在月亮上，每夜升起散落我身邊。窗外融融的夜色，已裝不下我無盡的懷念！") MsgBox("不論你去舍處，我的心追尋著你的蹤影，你落在地上的每一個足印，都會使我激動不已。") For i=0 To 100000000x = MsgBox("你愛我嗎？", 1)If x = 1 ThenMsgBox("哈哈，我們在一起咯")Exit ForEnd If Next

使用方法

把文本復(fù)制在記事本里，保存為XX.vbs的文件名。

在Windows環(huán)境下雙擊文件即可運(yùn)行，不附截圖。

結(jié)語

“情話”來自網(wǎng)絡(luò)，idea是某朋友突發(fā)奇想想出來的，本程序純屬娛樂。

對評論區(qū)部分問題的回復(fù)總結(jié)

28行“無效字符”的提示報錯：

這是CSDN的版權(quán)聲明，大家自行去掉就行（有的時候會出現(xiàn)，有的時候不會出現(xiàn)，自行處理）。

“未結(jié)束的字符串常量”：

這個是ANSI編碼的，你用UTF-8或者GBK那些其他編碼打開自然是報錯的。

無法生成這樣的logo：

而是記事本圖標(biāo)

你可能是后綴名未去掉，保留后綴名是對學(xué)習(xí)編程的人比較友好的~~
自己調(diào)一下：

Windows10支持嗎？
我的就是Win10筆記本。

表白的神器有了，可是還沒遇到那個ta，誰能送我一個？
不能……不能……不能……
另：用這個表白……拉黑準(zhǔn)備……

運(yùn)行結(jié)果是啥？
百聞不如一見……
你不答應(yīng)TA，程序就不結(jié)束……只不過任務(wù)管理器可以關(guān)掉進(jìn)程而已，你手動點(diǎn)擊X是沒用的啊😆

做個文件吧，實在是運(yùn)行不了？
對不起啊，不能直接傳，我琢磨著這個大家高興一下，也別費(fèi)下載積分了大家說是不是？

死循環(huán)一下…
您真狠，還是我比較慈悲為懷，只需要一億次小循環(huán)而已啦

用哪個編譯器？
為降低使用麻煩，直接用記事本編輯，雙擊運(yùn)行即可。

---

先補(bǔ)充這么多吧，感謝大家的支持與鼓勵。
這個本來就不是什么有技術(shù)含量的，大家就圖一樂！😆

總結(jié)

以上是生活随笔為你收集整理的【VBS】一款无聊的 Visual Basic Script 表白程序的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

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