UTS2200 Screen update

[edwardsaus]

Hi,

I have created a VBA macro to run certain commands on a uts-2200-1 COM screen.

However, when I input a command via the macro, the screen stalls before data is uploaded on the screen (Please see attached figure).

Is there a way to detect when the data has been completely loaded to the screen, before I can parse it? (Maybe the WAIT string on line 25 which I am unable to access - please see attached figure).

Here is the code:

Sub testUTS()
    Dim time1obj, screen1obj As Object
    Dim myArea As Object
    Dim waitObj As Object
    Dim i As Integer
    
    'Open accessory manager
    retval = Shell("C:\Program Files\Attachmate\INFOCNEE\Accmgr32\accmgr32.exe", 6)
    'Set the session
    Set time1obj = GetObject("C:\Program Files\Attachmate\INFOCNEE\Sessions\ENU\uts-2200-1.idp")
    'Set the screen
    Set screen1obj = time1obj.screen
    
    screen1obj.SendInput ("res")
    screen1obj.SendKeys ("<transmit>")
End Sub

Figure(after entering the command):

http://www.mediafire.com/?3vvjs792dd9hf18

Thanks

Ed

 

[edwardsaus]

I currently have this:

Sub Test()

    Dim time1obj, screen1obj As Object
    Dim i As Integer
    
    'Open accessory manager
    retval = Shell("C:\Program Files\Attachmate\INFOCNEE\Accmgr32\accmgr32.exe", 6)
    'Set the session
    Set time1obj = GetObject("C:\Program Files\Attachmate\INFOCNEE\Sessions\ENU\uts-2200-1.idp")
    'Set the screen
    Set screen1obj = time1obj.screen
    
    screen1obj.SendInput ("res")
    screen1obj.SendKeys ("<transmit>")

    breakLoop = 0
    firsttime = 1   'Ignore an update the first time, since it may be different
                    'to the screen that was previously called
    While breakLoop <> 1
        myBool = myScreen.Updated
        Debug.Print myBool
        If myBool = True And firsttime <> 1 Then
            breakLoop = 1
        End If
        Call Sleep(1)
        firsttime = 0
    Wend
End Sub

Note: sleep function from Lib "Kernel32" for milliseconds wait.

Can anyone suggest something better?

Thanks

Ed