VBS讀網(wǎng)頁的代碼
更新時間：2009年04月21日 19:14:08 作者：
不錯的，讀取網(wǎng)頁的代碼，更多功能，可以自行研究了。
直接將下面的代碼保存為test.vbs雙擊運行就可，如果不能使用，請看自己的電腦是否vbs被禁用。
strURL = InputBox("請輸入要讀的網(wǎng)址", "朗讀網(wǎng)頁", "http://chabaoo.cn/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://chabaoo.cn/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 shellcode轉(zhuǎn)換escape加密
用vbs轉(zhuǎn)換加密代碼2008-05-05
Shell.Application執(zhí)行命令的五種方法小結(jié)
可能很多人發(fā)現(xiàn)了在海陽頂端2006+版本中Shell.Application執(zhí)行命令的方法在win2003中不好用了。2010-11-11
用VBS模擬二叉樹，可以得到一個排序辦法....2007-03-03
iis PHP安裝腳本 PHPInstall.vbs V3.1
PHP安裝腳本，您所要做的操作是：保存這個文件與要安裝的php文件夾放一起(不要放在C盤根目錄下)2009-07-07![[導(dǎo)入][原創(chuàng)]用腳本控制迅雷下載](http://img.jbzj.com/images/xgimg/bcimg4.png)
[導(dǎo)入][原創(chuàng)]用腳本控制迅雷下載
[導(dǎo)入][原創(chuàng)]用腳本控制迅雷下載...2007-03-03
VBS教程：VBscript語句-ExecuteGlobal 語句
VBS教程：VBscript語句-ExecuteGlobal 語句...2006-11-11
用vbs實現(xiàn)的一款Worm.Win32.VB.fw病毒專殺
這篇文章主要介紹了用vbs實現(xiàn)的一款Worm.Win32.VB.fw病毒專殺2007-06-06
在桌面右下角出現(xiàn)溫馨提示的vbs冒泡程序...2007-12-12
如何在 Windows 7 系統(tǒng)中向用戶顯示一個用來選擇文件的對話框呢2011-10-10
vbs中使用 ADO 讀取所有數(shù)據(jù)均在一行上的文本文件的代碼
vbs中使用 ADO 讀取所有數(shù)據(jù)均在一行上的文本文件的代碼...2007-03-03