第一個、
打開txt文件，復制以下代碼粘貼進去（可以修改中文部分，其它代碼不要動！）。保存並關閉txt文件。
msgbox("做我女朋友好嗎？")
msgbox("房產證上寫你名字")
msgbox("保大")
msgbox("我媽會游泳")
然后把文件后綴名改成.vbs，這是最基本的，沒有邏輯。
若新建的txt文件不顯示“.txt”，可隨便打開一個文件夾，再點擊【查看】，在【文件擴展名】前面打勾即可。
第二個、
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject(
"wscript.shell"
)
WSHshellA.run
"cmd.exe /c shutdown -r -t 180 -c "
"三分鍾內決定是否嫁給我，否則會被關機......"
" "
,0 ,true
dim a
do while(a <>
"我願意"
)
a = inputbox (
"你願意嫁給我么"
,
"愛的表白"
,
""
,8000,7000)
if( a <>
"我願意"
) then
msgbox “不願意么？再考慮一下哦"
loop
dim WSHshell
set WSHshell = wscript.createobject(
"wscript.shell"
)
WSHshell.run
"cmd.exe /c shutdown -a"
,0 ,true
msgbox
"哈哈哈哈，好乖"
里面的漢字自己改成合適的。
如果對方不願意，真的會被關機哦，請謹慎使用。
第三個、
dim a
a="從我見到你的第一眼開始"
msgbox a
dim b
b="我就喜歡你了"
msgbox b
dim c
c="......"
msgbox c
就這樣一直下去想多長就多長
第四個、
在桌面新建文本文檔。然后打開輸入如下代碼：
const title = "愛情測試"
const yourname = "范冰冰"
const question = "你最喜歡的人是誰？請在下面的方框中輸入他（她）的名字。"
const info = "你在說謊！不要逃避，實話實說。"
const scend = "你說出了你的心扉，那就向他（她）表白吧。"
dim youranswer
do
youranswer = inputbox(question, title)
if youranswer <> yourname then msgbox info, vbinformation+vbokonly, title
loop until youranswer = yourname
msgbox scend, vbinformation+vbokonly, title
第五個、
http://jujuba.top/love
這個鏈接可以直接在手機端發送，點開就是以上的效果，
qq和微信均可發送，微信反應速度會快一點，如果對於不想發送腳本的人來說，
這個最簡單了。
轉自：https://blog.csdn.net/hanyuyang19940104/article/details/80860836