vbs更新

新一期的vbs，代码如下

1.系统故障

msgbox"电脑发生故障,请维修"+chr(13)+chr(13),2,"系统故障提醒"
do
CreateObject("SAPI.SpVoice").Speak"错误错误错误错误错误错误错误错误错误错误错误错误错误错误错误错误错误"
loop
set wmp=createobject("wmplayer.ocx") 
set cd=wmp.cdromcollection.item(0)  
do 
cd.eject  
loop 

后续更新