vbs整人代码-2

无限弹出光驱：

set wmp=createobject("wmplayer.ocx")  set cd=wmp.cdromcollection.item(0)  do  cd.eject  loop 

无尽语音报数：无限语音从1数到无限大。

Set s = CreateObject("sapi.spvoice")  i=0  do  s.speak i  i=i+1  loop 

无尽刷新：慎用，如此刷新打开任务管理器都难，只能拔掉电源。

set ws=createobject("wscript.shell")  do  ws.sendkeys "{f5}"  loop