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."
