vbs silent

[PepsiHog]

Hello Everyone,
Every time I use VBS it displays a message that says the script is taking longer than expected. Is there a way of suppressing these messages? Or fixing it?

This is the speak VBS. I want to use this, but the control message is undesired.

Code: Select all

VBSTART
Sub Speak(text)
 Dim Talk
 Set Talk = CreateObject("SAPI.SpVoice")
 Talk.Speak text
End Sub
VBEND

VBRun>Speak,Something

Thanks,
PepsiHog

[mightycpa]

Hi PH. Did you ever find out how to kill that message? I was reading, it seems like it is built-in to Windows, and not just scripting.

I wonder if increasing the timeout might help you:

In the search portion of the windows Start bar, type wscript and set it from there. Does that do anything?

[Dorian (MJT support)]

I'm not sure about this either. Will mark this thread for Marcus.

[PepsiHog]

Hi mightycpa,
I'm sorry for being so long on a reply. I sometimes take a break from programming. And this has been one of those times. I am working on a macro that is very brain intensive(unrelated). That plus other macros and I burn out.

I will check out what you suggested. Thanks for the help. Much appreciated.

[Edit] - I tried both options and it still displays the message. Dang!! Nice suggestion, I wouldn't have ever thought of this.

PepsiHog

[JRL]

Sometimes you can make use of cloaking. Has worked through the ages from the Wizard of Oz on through to Star Trek.

Code: Select all

//Dialog to cloak "Script Control" message
Dialog>Dialog1
object Dialog1: TForm
  Borderstyle = bsNone
  Caption = 'Curtain'
  ClientHeight = 200
  ClientWidth = 300
  FormStyle = fsStayOnTop
  Position = poScreenCenter
  object MSImage1: tMSImage
    Left = 0
    Top = 0
    Width = 300
    Height = 300
  end
end
EndDialog>Dialog1

SetDialogProperty>Dialog1,,AlphaBlend,True
SetDialogProperty>Dialog1,,AlphaBlendValue,0
Show>Dialog1
GetWindowPos>Curtain,WinX,WinY
Let>WinH=%WinY%+300
Let>WinW=%WinX%+300
ScreenCapture>WinX,WinY,WinW,WinH,%temp_dir%Curtain.png
SetDialogProperty>Dialog1,MSImage1,LoadImage,%temp_dir%Curtain.png
SetDialogProperty>Dialog1,,AlphaBlendValue,255

//Speaking script
VBSTART
Sub Speak(text)
 Dim Talk
 Set Talk = CreateObject("SAPI.SpVoice")
 Talk.Speak text
End Sub
VBEND
VBRun>Speak,Speaking without being seen is easier from behind a curtain.

//Wait for the "Script Control" window to be closed prior to closing the dialog
WaitWindowClosed>Script Control
Wait>0.5

[PepsiHog]

@JRL-
Clever idea. I like it. Thanks. I only have one question. How'd you know I'm a Treky?

PepsiHog

[JRL]

Hope it continues to work for you. It has its deficiencies.

Actually figured you would be a Wizard of Oz fan.
"Pay no attention to that man behind the curtain"

[Djek]

LOL !!
https://youtu.be/YWyCCJ6B2WE

the "script" is unseen behind the curtain......
You dont pay attention to the script behind the curtain.. Just hear it !

[PepsiHog]

@JRL,
May have been when I was "wee" little. But I have no idea about the reference of "the man behind the curtain". Yep, all Star Trek. And I'm not about to read it just for the purpose of knowing something on this forum. Not even if it answered all questions about RegEx.((a)If you claim it does, I won't believe you.) Not even if it had a coupon for a lifetime supply of Pepsi. Refer back to (a).

PepsiHog

[edit] Fine! I watched it! Now leave me alone about it already! Is Marcus the man behind the macro curtain?

[PepsiHog]

...side note.

I did work for a company a few years back, where I used to drive a van. I had a cell phone that my manager would call me on. I downloaded and edited the song "If I Only Had a Brain" and uploaded it to my phone and selected it as the ringtone for my manager. Everyone thought it was funny except for my manager for some reason. But I refused to change it.

PepsiHog