| 标题 | VBS读网页的代码 |
| 内容 | 直接将下面的代码保存为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 |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。