代碼

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

使用方法

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

在Windows環境下雙擊文件即可運行，不附截圖。

結語

“情話”來自網絡，idea是某朋友突發奇想想出來的，本程序純屬娛樂。

對評論區部分問題的回復總結

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

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

“未結束的字符串常量”：

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

無法生成這樣的logo：

而是記事本圖標

你可能是后綴名未去掉，保留后綴名是對學習編程的人比較友好的~~
自己調一下：

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

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

運行結果是啥？
百聞不如一見……
你不答應TA，程序就不結束……只不過任務管理器可以關掉進程而已，你手動點擊X是沒用的啊😆

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

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

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

---

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

總結

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

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