VBS如何读网页-创新互联

这篇文章给大家分享的是有关VBS如何读网页的内容。小编觉得挺实用的，因此分享给大家做个参考，一起跟随小编过来看看吧。

超过10余年行业经验，技术领先，服务至上的经营模式，全靠网络和口碑获得客户，为自己降低成本，也就是为客户降低成本。到目前业务范围包括了：成都做网站、成都网站设计、成都外贸网站建设，成都网站推广，成都网站优化，整体网络托管，微信小程序开发，微信开发，成都App制作，同时也可以让客户的网站和网络营销和我们一样获得订单和生意！

直接将下面的代码保存为test.vbs双击运行就可，如果不能使用，请看自己的电脑是否vbs被禁用。

代码如下:

strURL = InputBox("请输入要读的网址", "朗读网页", "/tupian/20230522/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

感谢各位的阅读！关于“VBS如何读网页”这篇文章就分享到这里了，希望以上内容可以对大家有一定的帮助，让大家可以学到更多知识，如果觉得文章不错，可以把它分享出去让更多的人看到吧！

当前标题：VBS如何读网页-创新互联
URL分享：http://bjjierui.cn/article/ijdhg.html