一个能自动朗读论坛帖子内容的VBS脚本程序

'把以下代码复制到记事本中,保存为后缀名为.vbs的文件,双击运行后就可以看到效果

strURL=InputBox("请输入lzw.me中要读帖子的网址","志文工作室","http://lzw.me/article.asp?id=564")

If strURL="" then
Wscript.quit
End If

Set ie = WScript.CreateObject("InternetExplorer.Application")
ie.visible = False
ie.navigate strURL
Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4
strContent = ie.document.getElementById("textstyle_1").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)

发表评论

电子邮件地址不会被公开。 必填项已用*标注