Karen and All,
  I have come up with a very, very simple Scripting solution, one that I
didn't think of before.  Windows Scripting Host has a SendKeys method that
sends keystrokes to the active window.  All that is required is to launch a
script containing the Sleep method of the Scripting host with a value you
want to wait before executing the Sendkeys method.  The value is in
milliseconds so a second is 1000, etc.  The Script code is this:

'Filename Sleep.vbs
dim Wss
Set Wss = CreateObject("WScript.Shell")
  wscript.sleep(10000)
  Wss.sendkeys "{ESC}"
set Wss = Nothing
wscript.Quit()

The RBase Code is This:

LAUNCH sleep.vbs
DIALOG 'Enter a Value' vres1=25 vk1 1 AT 10
RETURN


If the user doesn't do anything before 10 seconds (in the example) the [ESC]
key is pressed and the dialog exits(which deals with both type of dialogs,
yes/no and values).  Works like a charm!  You can deal with the timeout
value in RBase or direct your program code to deal with the lack of a value,
etc.
BTW, the Sleep method puts no load on CPU time, so it is quite useful.....

HTH

Mike

----- Original Message -----
From: "tellef" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, September 08, 2002 11:44 AM
Subject: Re: Timeout command - Razzak's Reply


>
> >Karen - the command file should contain one word to accomplish what you
> want. It still won't work from inside a form or >dialog. sigh...
>
> >-- TimeOut.rmd
> >EXIT
>
> Thanks, Albert.  But if the Timeout command doesn't work from
> inside a dialog box, then it's no use to me...
>
>
> Karen
>
>
> ================================================
> TO SEE MESSAGE POSTING GUIDELINES:
> Send a plain text email to [EMAIL PROTECTED]
> In the message body, put just two words: INTRO rbase-l
> ================================================
> TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
> In the message body, put just two words: UNSUBSCRIBE rbase-l
> ================================================
> TO SEARCH ARCHIVES:
> http://www.mail-archive.com/rbase-l%40sonetmail.com/
>

================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/

Reply via email to