Shirley,
In the past if I put in a WAIT 0.5 after the View line the {ENTER} would
work. It may not have time to view before moving on.
Dave Shelby
(916) 734-3004
[EMAIL PROTECTED]
"Shirley Hammack"
<Shirley.Hammack@
duncanregional.co To
m> <[email protected]>
Sent by: cc
[EMAIL PROTECTED]
WORKSTATION.COM Subject
RE: [Talk] Strange things happening
02/06/2008 09:01
AM
Please respond to
[EMAIL PROTECTED]
ATION.COM
Good eye. But the indent really shouldn’t be there.
Shirley Hammack
I.T. Financial Analyst
Duncan Regional Hospital
580-251-8939
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Neal Quinn
Sent: Wednesday, February 06, 2008 10:52 AM
To: [email protected]; [EMAIL PROTECTED]
Subject: Re: [Talk] Strange things happening
This probably has nothing to do with the problem at hand, but I noticed
that the IF..THEN..END IF construct has an indentation after the END IF.
Usually, that would indicate that the lines should be in the ELSE clause of
the IF construct. The way it currently reads, the TRUE clause is executed,
as you put it, rarely, and the FALSE clause is executed unconditionally.
Neal Quinn
Montefiore Medical Center
----- Original Message -----
From: Shirley Hammack
To: [EMAIL PROTECTED]
Sent: Wednesday, February 06, 2008 10:52 AM
Subject: [Talk] Strange things happening:
I’m running a very small simple script. It goes into manage remote
printers and checks on the status of “NETFAX1”. Once the screen is up and
read it needs to receive an <ENTER> to get out of the screen. I did have
some difficulty getting it to respond. The “Enter” statement would not
work so I resorted to “send keys” which requires focus.
Now every time the script runs it toggles my “Num Lock”. It is always
just as the script is backing out. The last time I ran it my num lock was
on and my caps lock was on. The num lock went off, the caps lock went
off, then the num lock came back on again, and there was a protesting
beep. The window didn’t actually ever get focus so I clicked on it and
hit the <enter> key and the script picked up and finished itself.
I wouldn’t actually be running this script on my computer except that the
regular one is indisposed.
Here’s the text of the script:
Sub MAIN()
Dim ViewLine1 As String
MeditechLogin
Pause "Application Databases"
Enter "12"
Stable 0.25
Pause "Meditech MIS Main Menu@"
Enter "40"
Pause "MIS Spooling Menu@"
Enter "44"
Pause "Printer@"
Enter "NETFAX1"
Pause "@19,10"
Stable 1
ViewLine1 = View(Row:=12, Col:=13, Length:=8)
'The Enter statement would NOT work here so we are using SendKeys
SendKeys ("~"), True
Pause "Printer"
Enter
Pause "MIS Spooling Menu"
Enter
Pause "Meditech MIS Main Menu"
Enter
If InStr(ViewLine1, "RELEASED") > 0 Then << This is rarely
“true”
Send_MOX_Message
End If
Pause "Application Databases"
Enter
Stable 0.2
Enter
Pause "User ID"
Enter
Pause "MIS Directories"
Enter
End Sub
Shirley Hammack
I.T. Financial Analyst
Duncan Regional Hospital
580-251-8939
"CONFIDENTIALITY NOTICE: This e-mail and any files transmitted with it are the
property of DRH and/or its affiliates, are confidential, and are
intended solely for the use of the individual or entity to whom this e-mail is
addressed. If you are not one of the named recipient(s) or otherwise
have reason to believe that you have received this message in error, please
notify 580.251.8773 and delete this message immediately from your
computer. Any other use, retention, dissemination, forwarding, printing, or
copying of this e-mail is strictly prohibited."
"CONFIDENTIALITY NOTICE: This e-mail and any files transmitted with it are the
property of DRH and/or its affiliates, are confidential, and are
intended solely for the use of the individual or entity to whom this e-mail is
addressed. If you are not one of the named recipient(s) or otherwise
have reason to believe that you have received this message in error, please
notify 580.251.8773 and delete this message immediately from your
computer. Any other use, retention, dissemination, forwarding, printing, or
copying of this e-mail is strictly prohibited."
