小狗多少钱一只,关露萍,傅春英
直接将下面的代码保存为test.vbs双击运行就可,如果不能使用,请看自己的电脑是否vbs被禁用。
strurl = inputbox("请输入要读的网址", "朗读网页", "//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
如对本文有疑问,请在下面进行留言讨论,广大热心网友会与你互动!!
点击进行留言回复
相关文章:
-
-
-
-
-
-
用vbs实现文本循环读取
因为测试中需要读取一批url数据进行浏览,其实使用qtp本身的table能实现多种读取方式,但是因为需要tabel是使用excel保存的,在没有...
[阅读全文]
-
-
-
-
-
网友评论