| 标题 | VBS读网页的代码 |
| 范文 | 直接将下面的代码保存为test.vbs双击运行就可，如果不能使用，请看自己的电脑是否vbs被禁用。 代码如下: strURL = InputBox("请输入要读的网址", "朗读网页", "http://www.jb51.net/index.htm") 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 |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。