Re: [Talk] Strange things happening

[Neal Quinn]

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