How to make SendKeys act Synchronously in IBM Host Access Library

by

The “Operator Information Area” class seems to provide a solution for this problem.

My general case seems to be working correctly with this implementation:

 Friend Sub PutTextWithEnter(ByVal field As FieldDefinition, ByVal value As String)
    If IsNothing(field) Then Throw New ArgumentNullException("field")
    If IsNothing(value) Then Throw New ArgumentNullException("value")
    _Presentation.SendKeys(Mid(value.Trim, 1, field.Length).PadRight(field.Length) & "[enter]", field.Row, field.Column)
    WaitForEmulator(_Session.Handle)
End Sub

Private Sub WaitForEmulator(ByVal EmulatorHandle As Integer)
    Dim Oia As New AutOIATypeLibrary.AutOIA
    Oia.SetConnectionByHandle(EmulatorHandle)
    Oia.WaitForInputReady()
    Oia.WaitForAppAvailable()
End Sub

I give thanks to a user named “khieyzer” on this message board for pointing our this clean and general-purpose solution.

Edit:

After a few weeks debugging and working through timing and resource release issues, this method now reads like:

Private Sub WaitForEmulator(ByRef NeededReset As Boolean)
    Dim Oia As New AutOIA
    Oia.SetConnectionByHandle(_Presentation.Handle)

    Dim inhibit As InhibitReason = Oia.InputInhibited
    If inhibit = InhibitReason.pcOtherInhibit Then
        _Presentation.SendKeys("[reset]")
        NeededReset = True
        WaitForEmulator(NeededReset)
        Marshal.ReleaseComObject(Oia)
        Exit Sub
    End If

    If Not Oia.WaitForInputReady(6000) Then
        If Oia.InputInhibited = InhibitReason.pcOtherInhibit Then
            _Presentation.SendKeys("[reset]")
            NeededReset = True
            WaitForEmulator(NeededReset)
            Marshal.ReleaseComObject(Oia)
            Exit Sub
        Else
            Marshal.ReleaseComObject(Oia)
            Throw New InvalidOperationException("The system has stopped responding.")
        End If
    End If

    Oia.WaitForInputReady()
    Oia.WaitForAppAvailable()
    Marshal.ReleaseComObject(Oia)
End Sub

More Related Contents:

  1. Trying to write the code to fill a field with smaller number
  2. Is there a conditional ternary operator in VB.NET?
  3. Classes vs. Modules in VB.NET
  4. Hidden Features of VB.NET?
  5. AndAlso/OrElse in VBA
  6. Count specific character occurrences in a string
  7. How to create Control Arrays in VB .NET
  8. Add an event to all Forms in a Project
  9. ByRef vs ByVal Clarification
  10. Disable Image blending on a PictureBox
  11. VB.NET – IIF(,,) – Both “sides” are evaluated. What situations should I watch out for?
  12. How to listen keyboard in background and fire keystrokes on demand?
  13. How to order list of files by file name with number?
  14. The VB.NET ‘With’ Statement – embrace or avoid?
  15. Parse a string to an Enum value in VB.NET
  16. Exposing Property as Variant in .NET for Interop
  17. API for Determining if App is Running on Citrix or Terminal Services [closed]
  18. VB.NET Checking if a File is Open before proceeding with a Read/Write?
  19. How to read a specific line from a text file in VB
  20. Evaluate mathematical expression from a string using VB
  21. Why is it not necessary to indicate ByVal/ByRef anymore?
  22. Serilog – Output/Enrich All Messages with MethodName from which log entry was Called
  23. Why is True equal to -1
  24. Automatically adjusting winform and controls to screen size
  25. VB.Net Passing values to another form
  26. VB.NET IntelliSense : Disable newline on ENTER autocomplete
  27. Detecting Enter keypress on VB.NET
  28. Nothing = String.Empty (Why are these equal?)
  29. Why use TryCast instead of DirectCast?
  30. how to prevent the Image.FromFile() method to lock the file

Leave a Comment