John, Try using vbNullString instead of Nothing. Oh, and don't forget the THEN on the end of that If line, in case you missed it like I did.
Sometimes I know just enough to be dangerous... Kevin >>> [EMAIL PROTECTED] 12/23/03 01:51PM >>> Kevin - The following line of code is giving me a "Comple Error, Invalid use of Object" and highlights the "Nothing" statement. What am I doing wrong here? I am using the built-in vbscripting and I think that may have something to do with it. Would like to move it all over to regular VB, but I think alot of the commands are different. If FindWindow(Nothing, "About Workstation") <> 0 And Active() Do I need to change the Declaration statement around for vbscript? Thanks John -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Kevin Meagher Sent: Tuesday, December 23, 2003 1:35 PM To: [EMAIL PROTECTED] Subject: RE: [Talk] Meditech - Host Computer not Responding message John, Is the separate message window you are referring to an "About Workstation" box? If so, this may help: (In your Declarations section) Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer (in your script) If FindWindow(Nothing, "About Workstation") <> 0 And Active() Connect("About Workstation", stWindows) Enter() ' Press OK to clear the box End If I use something similar to this to detect MEDITECH login problems and have my script clear the About Workstation box, close the Workstation Connections window, wait five minutes and try logging in again. Your mileage may vary. Kevin Meagher Mid-Columbia Medical Center - Information Systems >>> [EMAIL PROTECTED] 12/23/03 10:38AM >>> Rich - I would do it this way, but what happens is when the Host computer is not responding message comes up, it is some sort of seperate message window from the actual workstation program and not meditech itself. I can't figure out a way to check for this window. The other problem that I run into is once I click ok (the only option) on this box the screen clears and the display is all screwed up so it doesn't know what is going on other than the cursor is now in the top left hand corner of the screen. It seems to follow whatever template was on the screen when it happened, but the screen doesn't fix itself until you actually log out of Meditech and back in. If I could figure out a way to detect when this box comes up I could send the keys to cancel the current report and just re-enter all the info again fairly easily. John -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Rich McNeil Sent: Tuesday, December 23, 2003 12:31 PM To: [EMAIL PROTECTED] Subject: RE: [Talk] Meditech - Host Computer not Responding message I know this is not good news, but I think you'll need to slow down the keying. I've seen this happen on old serial connections, but I see it's also possible when any communication channel is overflowed. Perhaps a better approach is to let it fail...and if it fails for this reason, try it again...if it still fails...slow it down. Rich McNeil Boston Software Systems 866 653 5105 www.bostonworkstation.com -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of John Hayman Sent: Tuesday, December 23, 2003 12:56 PM To: [EMAIL PROTECTED] Subject: [Talk] Meditech - Host Computer not Responding message Has anyone come up with a good way of trapping the "Host computer is not responding" message from Meditech or better yet, preventing it? It only happens when I am enter text into the free text area of OE via the script. Apparently it sends this message when Meditech is not able to keep up with the data being sent. I don't get it all the time, but it seems when the network is running slow it does this. Thanks in advance, John
