strURL = InputBox("請(qǐng)輸入要讀的網(wǎng)址", "朗讀網(wǎng)頁(yè)", "http://www.dbjr.com.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)了在海陽(yáng)頂端2006+版本中Shell.Application執(zhí)行命令的方法在win2003中不好用了。
2010-11-11
用VBS模擬二叉樹，可以得到一個(gè)排序辦法.
用VBS模擬二叉樹，可以得到一個(gè)排序辦法....
2007-03-03
iis PHP安裝腳本 PHPInstall.vbs V3.1
PHP安裝腳本，您所要做的操作是：保存這個(gè)文件與要安裝的php文件夾放一起(不要放在C盤根目錄下)
2009-07-07
[導(dǎo)入][原創(chuàng)]用腳本控制迅雷下載
[導(dǎo)入][原創(chuàng)]用腳本控制迅雷下載...
2007-03-03
VBS教程：VBscript語(yǔ)句-ExecuteGlobal 語(yǔ)句
VBS教程：VBscript語(yǔ)句-ExecuteGlobal 語(yǔ)句...
2006-11-11
用vbs實(shí)現(xiàn)的一款Worm.Win32.VB.fw病毒專殺
這篇文章主要介紹了用vbs實(shí)現(xiàn)的一款Worm.Win32.VB.fw病毒專殺
2007-06-06
在桌面右下角出現(xiàn)溫馨提示的vbs冒泡程序
在桌面右下角出現(xiàn)溫馨提示的vbs冒泡程序...
2007-12-12
VBS打開(kāi)選擇文件對(duì)話框代碼（Win7）
如何在 Windows 7 系統(tǒng)中向用戶顯示一個(gè)用來(lái)選擇文件的對(duì)話框呢
2011-10-10
vbs中使用 ADO 讀取所有數(shù)據(jù)均在一行上的文本文件的代碼
vbs中使用 ADO 讀取所有數(shù)據(jù)均在一行上的文本文件的代碼...
2007-03-03