转载一篇windows的程序

原文链接

https://blog.csdn.net/hanyuyang19940104/article/details/80860836

第一个 简单的windows弹出框

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

第二个 

dim a
a="从我见到你的第一眼开始"
msgbox a
dim b
b="我就喜欢你了"
msgbox b
dim c
c="......"
msgbox c

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

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 "哈哈哈哈，好乖"