来点高级恶搞

哦 对了 第二个foreach外面套个doloop

hhctrl:
set h=createobject("internet.hhctrl")
do
h.TextPopup "0","0",10000,10000,0,0
loop

如果把他们合起来
set h=createobject("internet.hhctrl")
set w=createobject("wscript.shell")
h.TextPopup "你的电脑被禁了","0",10000,10000,0,0
With createobject("shell.application")
do
.minimizeall
w.sendkeys "{esc}"
loop
end with