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教程：函数-CStr 函数...2006-11-11
WMI IE代理 切换或改变(Use WMI Change IE Proxy)
把你弄到的代理都写在一个文本文件里（IP.txt），格式是一行一个： ip:端口2008-12-12
下面的hta主要用于实现网易文件的提取，提供这个代码希望大家学习他的hta编写2008-06-06
远程或本地获取系统信息的脚本RGIS.vbs...2007-02-02
VBS.Runauto脚本病毒是我们俗称的U盘病毒的一种，Symantec公司给其定位为蠕虫（Worm）病毒，虽然危害性远不如一些恶性病毒，但常常会严重影响用户正常使用计算机。2010-11-11
'让SendKeys可以发送中文,clip.exe在windows2003里有2008-12-12
VBS教程：VBscript属性-HelpFile 属性...2006-11-11
VBS教程：属性-VolumeName 属性...2006-11-11
VBS教程：属性-IsRootFolder 属性...2006-11-11
Win2003里用命令行刷新硬件列表，以扫描硬件改动的实现代码
在Windows Server 2003里面实现用命令行刷新硬件列表，以扫描硬件改动，怎么实现2012-05-05
最新评论