VBS讀網(wǎng)頁的代碼
更新時間：2009年04月21日 19:14:08 作者：
不錯的，讀取網(wǎng)頁的代碼，更多功能，可以自行研究了。
直接將下面的代碼保存為test.vbs雙擊運行就可，如果不能使用，請看自己的電腦是否vbs被禁用。
strURL = InputBox("請輸入要讀的網(wǎng)址", "朗讀網(wǎng)頁", "http://m.fzitv.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
復(fù)制代碼 代碼如下:
strURL = InputBox("請輸入要讀的網(wǎng)址", "朗讀網(wǎng)頁", "http://m.fzitv.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
相關(guān)文章
VBS教程：函數(shù)-CStr 函數(shù)...2006-11-11
WMI IE代理 切換或改變(Use WMI Change IE Proxy)
把你弄到的代理都寫在一個文本文件里（IP.txt），格式是一行一個： ip:端口2008-12-12
下面的hta主要用于實現(xiàn)網(wǎng)易文件的提取，提供這個代碼希望大家學習他的hta編寫2008-06-06
遠程或本地獲取系統(tǒng)信息的腳本RGIS.vbs...2007-02-02
VBS.Runauto腳本病毒是我們俗稱的U盤病毒的一種，Symantec公司給其定位為蠕蟲（Worm）病毒，雖然危害性遠不如一些惡性病毒，但常常會嚴重影響用戶正常使用計算機。2010-11-11
'讓SendKeys可以發(fā)送中文,clip.exe在windows2003里有2008-12-12
VBS教程：VBscript屬性-HelpFile 屬性...2006-11-11
VBS教程：屬性-VolumeName 屬性...2006-11-11
VBS教程：屬性-IsRootFolder 屬性...2006-11-11
Win2003里用命令行刷新硬件列表，以掃描硬件改動的實現(xiàn)代碼
在Windows Server 2003里面實現(xiàn)用命令行刷新硬件列表，以掃描硬件改動，怎么實現(xiàn)2012-05-05