need help running VBS script

[xtal]

LBtalk.vbs





dim Speech,FSO,sText

set ws = createobject("wscript.shell")  

set Speech = createobject("SAPI.SpVoice")

strComputer = "."

set objWMIService = GetObject("winmgmts:\\" &strComputer & "\root\cimv2")

sText = " scan done, select commport, CLICK CONNECT,  ELSE,  Connect Commport Cable and Rescan"

''' speak =========================================================

  on error resume next

  Speech.Speak sText, SVSFlagsAsync + SVSFPurgeBeforeSpeek

  do

    wsript.sleep 100

  loop until Speech.WaitUntilDone(10)  

''' stop speaking =================================================

  on error resume next

  Speech.Speak vbnullstring, SVSFPurgeBeforeSpeek

  set Speech = nothing

wsript.quit




I'm trying to run the above VBS script from Liberty Basic, but having no luck.........



LB-program





' run "LBtalk.vbs"

' run "c:\users\msw10\appdata\roaming\liberty basic pro v4.5.1\LBtalk.vbs"

 run DefaultDir$+"\LBtalk.vbs"


 print date$("days")

 print date$(37000)

 print date$("mm/dd/yy")

 print date$("mm/dd/yyyy")

 print date$("yyyy/mm/dd")

 print date$("04/01/02")

 print date$("Apr 1, 2002")

 print date$(3.14)

 print date$("Feb 5, 1776")

 print date$(date$())

 d$ = date$()

 print date$(d$)





Runtime Error; Windows returned an unknown error 11 trying to

RUN LBtalk.vbs



Runtime Error; Windows returned an unknown error 11 trying to

RUN "c:\users\msw10\appdata\roaming\liberty basic pro v4.5.1\LBtalk.vbs"



Runtime Error; Windows returned an unknown error 11 trying to

RUN "C:\Users\msw10\Appdata\Roaming\Liberty Basic Pro v4.5.1\LBtalk.vbs"



CMDLINE => C:\Users\msw10\Appdata\Roaming\Liberty Basic Pro v4.5.1\LBtalk.vbs

works fine ...... 

[tsh73]

 run "cscript.exe LBtalk.vbs"
works for me.

[xtal]

Sept 26, 2020 11:52:59 GMT -5 tsh73 said:

 run "cscript.exe LBtalk.vbs"
works for me.

thx 

I found that    run "wscript.exe LBtalk.vbs"   runs without displaying big black window 

thx again.....

[Gordon Rahman]

Hi xtal,

Where did you find LBtalk.vbs and csript.exe?
I use LBtalk121.dll and I don't know where I found that.

Gordon

[Chris Iverson]

cscript.exe and wscript.exe are built in to Windows

Don't know where LBtalk.vbs came from, he might have written it himself.

[Gordon Rahman]

Sept 27, 2020 17:24:46 GMT -5 Chris Iverson said:

cscript.exe and wscript.exe are built in to Windows

Don't know where LBtalk.vbs came from, he might have written it himself.

 Hello Chris,

Thanks for the info.
Maybe .vbs is some kind of a Visual BASIC script?

Gordon.

[tsh73]

Maybe .vbs is some kind of a Visual BASIC script?

Indeed it is.
en.wikipedia.org/wiki/VBScript

[Tasp]

For speech I normally use the following as you don't need to run an external program and you can call everything from LB.

I believe this originally came from here, but the Speech.dll link is a broken, so I've included it.


' This has to be called before using the other speech subs:
Call Speech.Begin

[Main]
   Input "Type what you want me to say (or nothing to quit): "; str$
   If Trim$(str$) = "" Then GoTo [Done]
   Call Speech.Speak str$
GoTo [Main]

[Done]
   ' This has to be called before your program ends.
   Call Speech.Finish
End

Sub Speech.Begin
   Open "Speech.dll" For DLL As #speech
   CallDLL #speech, "Begin", result As Long
   If Not(result) Then Close #speech
End Sub

' Says str$. Overrides anything in the que.
Sub Speech.Speak str$
   CallDLL #speech, "Speak", str$ As PTR, result As Void
End Sub

' Adds more stuff to the speech que to say:
Sub Speech.SpeakQue str$
   CallDLL #speech, "SpeakQue", str$ As PTR, result As Void
End Sub

' Closes text-to-speech.
Sub Speech.Finish
   CallDLL #speech, "Finish", result As Long
   Close #speech
End Sub


Attachments:

Speech.dll (26.69 KB)