5.26.2012

I drag speak.vbs to Quick Launch menu, then high-light text in an app & launch.   Haven't tried in Windows7 ~ Vista; but, on XP will speak  the highlighted text using SAPI(microsoft Sam).

Download:

speak.vbs - https://www.box.com/s/1f1946821da027b114b0

Dim aaa_speak _
,   sClipboard _
,   oIE _
,   oSh _
,   oSAPI _
,   zzz_speak
Set oIE=CreateObject("InternetExplorer.Application")
Set oSAPI=CreateObject("SAPI.SpVoice")
Set oSh=CreateObject("WScript.Shell")
oSh.SendKeys "%{Tab}^{Insert}"
oIE.Navigate("about:blank")
sClipboard= _
  oIE.document.parentwindow.clipboardData.GetData("text")
oIE.Quit
oSAPI.Speak sClipBoard
Set oSh=Nothing
Set oSAPI=Nothing
WScript.Quit

No comments:

Post a Comment