VBS读网页的代码


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

复制代码 代码如下:

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



相关阅读:
新人使用Win7容易产生的误区和困惑
Linux configure关于交叉编译的参数设置
在DW中CSS编码需要注意和掌握的一些技巧
Win 2003安装后的十个小技巧
SQLSERVER 时间格式大全
IE不支持option的display样式,只能使用remove和add
IE浏览器中一个值得关注的JS问题
小技巧: 在 Vimperator 中调用外部编辑器
ASP+JS三级联动下拉菜单[调用数据库数据]
PHP XML操作类DOMDocument
让你的Windows server 2008 更安全
Ubuntu的第一个Bug
PHP性能优化的技巧
Win 2003 Server重新安装Oracle9i
快速导航

Copyright © 2016 phpStudy | 皖ICP备18014864号-4