第一个、

打开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