VBS读网页的代码

596 阅读 0 评论 394 点赞

我是靠谱客的博主彩色棒棒糖，最近开发中收集的这篇文章主要介绍VBS读网页的代码，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

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

复制代码代码如下:

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