主页 > 知识库 > VBS读网页的代码

VBS读网页的代码

热门标签:加盟电销机器人好的品牌 前锋办理400电话申请 陕西高频外呼回拨系统哪家好 外呼营销下单系统 办理胶州400电话财税 新密防封卡外呼系统违法吗 海外美发店地图标注 打电话的外呼系统贵不贵 百度地图标注怎么卸载
直接将下面的代码保存为test.vbs双击运行就可,如果不能使用,请看自己的电脑是否vbs被禁用。
复制代码 代码如下:

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

标签:武威 阜阳 咸阳 伊春 四平 河南 梅州 牡丹江

巨人网络通讯声明:本文标题《VBS读网页的代码》,本文关键词  VBS,读,网页,的,代码,VBS,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《VBS读网页的代码》相关的同类信息!
  • 本页收集关于VBS读网页的代码的相关信息资讯供网民参考!
  • 推荐文章