七夕快乐！

上面“男神的名字”，“女神的名字”就是你要表白的对象，“你好，七夕快乐”那里就是你要说的情话……新建一个txt文件，也就是记事本文档文件，然后打开把上面这些代码复制粘贴进去，保存后关闭，然后把文件名改成“*.html”，也就是把后缀名改成html，就可以啦。然后双击点击运行就可以了。

2、vbs表白

有人说上面那个程序没意思，太不好玩了，那下面来一个强势一点的。

执行代码后，会停留在一个页面。必须要输入“喜羊羊我爱你”，否则会一直停留在这个界面，并且在251秒之后自动关机。输入正确内容之后，程序才会自动解除。

下面直接上代码：

On Error Resume Next

Dim WSHshellA

MsgBox Chr(13) + Chr(13) + Chr(13) + "宝贝，你好，用这种方式和你说话实属无赖，在你面前我不敢说，现在通过计算机来表达我想对你说的话。"

MsgBox Chr(13) + Chr(13) + Chr(13) + "你不想看完也不行，因为你关不掉这个软件的"

MsgBox Chr(13) + Chr(13) + Chr(13) + "一生数十载，缘起缘灭，情深情浅，且行且珍惜"

MsgBox Chr(13) + Chr(13) + Chr(13) + "一年四季变幻莫测，花开花败，不变的是我对你的真情"

MsgBox Chr(13) + Chr(13) + Chr(13) + "一天早中晚，日出日落，日月轮回，循环着我对你的思念"

MsgBox Chr(13) + Chr(13) + Chr(13) + "一生太长，我们慢慢地过"

MsgBox Chr(13) + Chr(13) + Chr(13) + "一天太短，我们用心地过"

MsgBox Chr(13) + Chr(13) + Chr(13) + "佛说前世五百次的回眸，换得今生的相识"

MsgBox Chr(13) + Chr(13) + Chr(13) + "遇见你，是我最美丽的意外"

Set WSHshellA = wscript.CreateObject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 251 -c ""宝贝我给你521秒的时间考虑下，你如果爱我就输入喜羊羊我爱你，当251秒过后，电脑将自动关机，这不是病毒，对你没有任何伤害，重启后此程序就结束了"" ", 0, True

Dim a

Do While (a <> "喜羊羊我爱你")

a = InputBox("请你输入:喜羊羊我爱你，快撒，求你说 ""喜羊羊我爱你"" ", "请输入", "爱我吗？", 8000, 7000)

MsgBox Chr(13) + Chr(13) + Chr(13) + a, 0, "MsgBox"

Loop

MsgBox Chr(13) + Chr(13) + Chr(13) + "真的吗？你说了你爱我？"

MsgBox Chr(13) + Chr(13) + Chr(13) + "我要马上出现在你身边，给我打个电话130********"

Dim WSHshell

WSHshell.run "cmd.exe /c shutdown -a", 0, True

MsgBox Chr(13) + Chr(13) + Chr(13) + "宝宝是不是又帅啦？？"

MsgBox Chr(13) + Chr(13) + Chr(13) + "宝贝等我，我马上来！！

上面的文字部分都是你可以自己改的，但是请注意双引号一定要用英文的，所以改的时候最好别去掉双引号！！…… 新建一个txt文件，也就是记事本文档文件，然后打开把上面这些代码复制粘贴进去，保存后关闭，然后把文件名改成“*.vbs”，也就是把后缀名改成vbs，就可以啦。然后双击点击运行就可以了。

但是这个程序太强势，所以杀毒软件都会屏蔽，鉴定为木马，但是我赌两包辣条的大血本，这绝对不是一个木马！所以需要把杀毒软件关掉，或者把这个程序添加为可信任软件。

好啦，程序全部讲完啦，你学会了吗？快去表白吧！

但是还有些注意事项哦。

注意1：以上代码的某些换行是必须的，所以换行最好都按照上面的规则来。

注意2：所有引号都是英文的双引号哦，所以为了避免出错，就不要改引号吧。

注意3：腾讯qq可能不能直接传html和vbs的文件，因为腾讯的安全监管很严很敏感，试试系统设置-安全设置-文件传输-安全级别低，设置为最低试试，或者用微信传输吧。