生日神器VBS

步骤一、打开记事本，输入以下代码（建议直接复制）：
1.DIM WSH
2.SET WSH=WSCRIPT.CreateObject(“WSCRIPT.SHELL”)
3.WSH.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\disabletaskmgr",1,“REG_DWORD”
4.const title = “XX生日”
5.const yourday = “X月X日”
6.const question = “今天是什么日子？”
7.const info = “你在说谎！不要逃避，实话实说。”
8.dim youranswer
9.do
10.youranswer = inputbox(question, title)
11.if youranswer <> yourday then msgbox info, vbinformation+vbokonly, title
12.loop until youranswer = yourday
13.msgbox( “X家庭院满园春”)
14.msgbox (“X为金兰心先喜”)
15.msgbox (“生活舒适多温馨”)
16.msgbox (“日子甜蜜有滋味”)
17.msgbox (“快意人生要珍惜”)
18.msgbox (“乐观进取会成功”), vbinformation+vbokonly, title
19.msgbox("Blessings from Mr.Hu ")

步骤二、点击【文件】→【另存为】→【文件名：后缀改为 .vbs （示例：Play.vbs）】→【保存类型：所有文档】

注：

1-3行是防止在任务管理器中关闭.vbs任务；
代码中    "   "   内的中文均可以修改为你喜欢的内容。