strURL = InputBox("請輸入要讀的網址", "朗讀網頁", "http://m.survivalescaperooms.com/") 
If strURL = "" Then 
Wscript.quit 
End If 
Set ie = WScript.CreateObject("InternetExplorer.Application") 
ie.visible = True 
ie.navigate strURL 
Do 
Wscript.Sleep 200 
Loop Until ie.ReadyState = 4 
strContent = ie.document.body.innerText 
Set objVoice = CreateObject("SAPI.SpVoice") 
Set objVoice.Voice = objVoice.GetVoices("Name=Microsoft Simplified Chinese").Item(0) 
objVoice.Rate = 5 '速度:-10,10 0 
objVoice.Volume = 100 '聲音:0,100 100 
objVoice.Speak strContent