VBS读网页的代码

2009-9-24 16:36 610 0

摘要: 　　不错的，读取网页的代码，更多功能，可以自行研究了。　　直接将下面的代码保存为test.vbs双击运行就可，如果不能使用，请看自己的电脑是否vbs被禁用。　　代码如下: 　　strURL ...

　　不错的，读取网页的代码，更多功能，可以自行研究了。　　直接将下面的代码保存为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

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除