第一个、
打开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
因为本人学的是python，并不是，所以也都是借鉴居多，希望对大家表白有点帮助。
因为，这个真的比较简单，只需要一个脚本文件就行，大家尽情使用吧。
我也去给我喜欢的人做脚本去了。