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 <mailto:[EMAIL PROTECTED]> 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."
