繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > VBS读网页的代码
- VBScript
- VBS教程：运算符-Xor 运算符
- VBS教程：运算符-减运算符 (-)
- VBS教程：运算符-Or 运算符
- VBS教程：运算符-运算符概述
- VBS教程：运算符-运算符优先级
- VBS教程：运算符-Not 运算符
- VBS教程：运算符-乘运算符 (*)
- VBS教程：运算符-Mod 运算符
- VBS教程：运算符-逻辑运算符
- VBS教程：运算符-Is 运算符
- VBS教程：运算符-\ 运算符
- VBS教程：运算符-Imp 运算符
- VBS教程：运算符-幂运算符 (^)
- VBS教程：运算符-Eqv 运算符
- VBS教程：运算符-除运算符 (/)
- VBS教程：运算符-连接运算符 (&)
- VBS教程：运算符-比较运算符
- VBS教程：运算符-赋值运算符 (=)
- VBS教程：运算符-And 运算符
- VBS教程：运算符-运算符(+)
VBScript 中的 VBS读网页的代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 161 ::
收藏到网摘: n/a
直接将下面的代码保存为test.vbs双击运行就可，如果不能使用，请看自己的电脑是否vbs被禁用。
复制代码 代码如下:
strURL = InputBox("请输入要读的网址", "朗读网页", "http://www.ruanchen.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
评论 (0) All
