生日神器VBS

版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://blog.csdn.net/weixin_44767793/article/details/88542695

步骤一、打开记事本,输入以下代码(建议直接复制):
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任务;
代码中    "   "   内的中文均可以修改为你喜欢的内容。
展开阅读全文

没有更多推荐了,返回首页