第一个 简单的windows弹出框

msgbox(“做我女朋友好吗？”)msgbox(“房产证上写你名字”)msgbox(“保大”)msgbox(“我妈会游泳”)

第二个

dim aa="从我见到你的第一眼开始"msgbox adim bb=“我就喜欢你了"msgbox bdim cc=”…"msgbox c

第三个 稍微有点恶作剧的 看清楚正确答案哈，不然真的会关机的，尤其是对技术小白来说。

on error resume nextdim WSHshellAset WSHshellA=wscript.createobject(“wscript.shell”)WSHshellA “cmd.exe /c shutdown -r -t 180 -c ““三分钟内决定是否嫁给我，否则会被关机…”” “,0 ,true dim ado while(a <> “我愿意”) a=inputbox (“你愿意嫁给我么”,“爱的表白”,””,8000,7000) if( a <> “我愿意” ) then msgbox "不愿意么？再考虑一下哦"loopdim WSHshellset WSHshell=wscript.createobject(“wscript.shell”)WSHshell “cmd.exe /c shutdown -a”,0 ,truemsgbox “哈哈哈哈，好乖”