March 1st, 2007, 05:32 PM
|
 |
Senior Sarcasm Wizardess
|
|
Join Date: Feb 2005
Location: Dreamland
|
|
|
Is there an alternative to .SendKeys?
I have to create a VBscript(vbs) file that will automate an issue we have.
I need to open up Monarch, open a file, open a template, run the file with the template and save the output.
I can do all this with sendkeys, but the window needs to remain active at all times. This would be no better than doing it manually. I need to be able to kick off this script and work on other things while it's running.
Is this possible?
Here is a sample of code I am currently using:
vb Code:
 Original
- vb Code |
|
|
|
dim oShell dim sTime, cTime, wTime dim oPgm wTime = 10 Set oShell = createobject("WScript.Shell") oPgm = """C:\Program Files\Monarch\Program\Monarch.exe""" oShell.run oPgm,1 sTime = Timer() cTime = sTime do until cTime-sTime > wTime cTime = Timer() loop oShell.SendKeys "%F" oShell.SendKeys "R" oShell.SendKeys "C:\cp.txt~" set oShell = nothing
the full code has way more .SendKeys commands
__________________
Come JOIN the party!!!
Quote of the Month:
Retirement: Because you've given so much of yourself to the company that you don't have anything left we can use.
Questions to Ponder:
What do you do when you see an endangered animal eating an endangered plant?
iif([sarcasm]=true,iif([you have to ask]=true,"didn't work","ha ha ha"),"not sarcasm")
copyright© 2008 sbenj69
|
ASP Free Forums Sponsor:
Click the image if at any point you don't like my decision.
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
