VBS读网页的代码
更新时间：2009年04月21日 19:14:08 作者：
不错的，读取网页的代码，更多功能，可以自行研究了。
直接将下面的代码保存为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
复制代码 代码如下:
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转换加密代码2008-05-05
可能很多人发现了在海阳顶端2006+版本中Shell.Application执行命令的方法在win2003中不好用了。2010-11-11
用VBS模拟二叉树，可以得到一个排序办法....2007-03-03
iis PHP安装脚本 PHPInstall.vbs V3.1
PHP安装脚本，您所要做的操作是：保存这个文件与要安装的php文件夹放一起(不要放在C盘根目录下)2009-07-07![[导入][原创]用脚本控制迅雷下载](//img.jbzj.com/images/xgimg/bcimg4.png)
[导入][原创]用脚本控制迅雷下载...2007-03-03
VBS教程：VBscript语句-ExecuteGlobal 语句
VBS教程：VBscript语句-ExecuteGlobal 语句...2006-11-11
这篇文章主要介绍了用vbs实现的一款Worm.Win32.VB.fw病毒专杀2007-06-06
在桌面右下角出现温馨提示的vbs冒泡程序...2007-12-12
如何在 Windows 7 系统中向用户显示一个用来选择文件的对话框呢2011-10-10
vbs中使用 ADO 读取所有数据均在一行上的文本文件的代码
vbs中使用 ADO 读取所有数据均在一行上的文本文件的代码...2007-03-03
![[导入][原创]用脚本控制迅雷下载](http://img.jbzj.com/images/xgimg/bcimg4.png)
最新评论