'把以下代码复制到记事本中，保存为后缀名为.vbs的文件，双击运行后就可以看到效果
strURL=InputBox("请输入lzw.me中要读帖子的网址","志文工作室","http://lzw.me/article.asp?id=564")
If strURL="" then
Wscript.quit
End If
Set ie = WScript.CreateObject("InternetExplorer.Application")
ie.visible = False
ie.navigate strURL
Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4
strContent = ie.document.getElementById("textstyle_1").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
