VBS读网页的代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 直接将下面的代码保存为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 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于VBS读网页的代码的所有评论
