VBS读网页的代码

2020-07-26 11:54:20

字体：大中小

来源：转载

供稿：网友

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

复制代码代码如下:

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