VBS读网页的代码

2020-06-26 18:19:33

字体：大中小

来源：转载

供稿：网友

不错的，读取网页的代码，更多功能，可以自行研究了。

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

复制代码代码如下:

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