首先在电脑上创建一个文本文档或者记事本也就是txt格式然后输入以下代码
保存，然后在把文件名txt格式改成vbs就可以了
想改图标也可以
首先把这个文本创建一个快捷方式
然后鼠标右键点属性然后下面点更改图标选择你要的图标就可以了
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 "哈哈哈哈，好乖"
里面的汉字自己改成合适的。
如果对方不愿意，真的会被关机哦，请谨慎使用。
花落满地 又是一个七夕
牛郎织女 再一次的相遇
鹊桥下的牵手繁星为他们当作嫁衣
如风花雪月的浪漫让人羡慕不已
再回不到当初相恋的时光
再看不到当初可爱的笑脸
张开双臂随风儿飘向远方
再次相聚是在曾经的梦里
我和你手牵手漫步在那天外天
看着那牛郎织女相遇在银河边
银光闪烁下是多么浪漫的场景
祈祷那天是我们的婚礼
本文来源：https://www.2haoxitong.net/k/doc/f962d3e9df80d4d8d15abe23482fb4daa48d1d4c.html
文档为doc格式