VBS读网页的代码
来源: 阅读:1445 次 日期:2016-07-18 16:15:17
温馨提示: 小编为您整理了“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

更多信息请查看脚本栏目
手机网站地址:VBS读网页的代码
由于各方面情况的不断调整与变化, 提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!

2025国考·省考课程试听报名

  • 报班类型
  • 姓名
  • 手机号
  • 验证码
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 加入群交流 | 手机站点 | 投诉建议
工业和信息化部备案号:滇ICP备2023014141号-1 云南省教育厅备案号:云教ICP备0901021 滇公网安备53010202001879号 人力资源服务许可证:(云)人服证字(2023)第0102001523号
云南网警备案专用图标
联系电话:0871-65317125(9:00—18:00) 获取招聘考试信息及咨询关注公众号:
咨询QQ:526150442(9:00—18:00)版权所有:
云南网警报警专用图标
Baidu
map