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如何读网页-创新互联
网页路径:http://abwzjs.com/article/ijdhg.html