Code: Select all
Let>VBS_TIMEOUT=10000
VBSTART
Sub Speak(text)
Dim Talk
Set Talk = CreateObject("SAPI.SpVoice")
Talk.Speak text
End Sub
VBEND
VBRun>Speak,The Macro has finished
exit>0
Moderators: JRL, Dorian (MJT support)
Code: Select all
Let>VBS_TIMEOUT=10000
VBSTART
Sub Speak(text)
Dim Talk
Set Talk = CreateObject("SAPI.SpVoice")
Talk.Speak text
End Sub
VBEND
VBRun>Speak,The Macro has finished
exit>0