I have a database that navigates to an IBM pcomm –mainframe/as400 system and uses keystrokes to capture data to the access db table.
I need to do the exact same thing – but with a non-pcomm/mainframe system.

Any ideas on how to replace the "autec" logic below with something i can use to navigate an application???


The only row below that is working is the " RetVal = Shell("\\fwa-app\ga\Ga.exe Agency", 1)" - which is what opens the applicaton i want to navigate.
I the app opens up, but as soon as vb goes to the next row of code, the window is no longer the "active" window.


Private Sub cmdSuspenseReport_Click()
Dim strOrig As String
Dim PSObject As Object

Set auteclconnlist = CreateObject("pcomm.auteclconnlist")
Set auteclpsobj = CreateObject("pcomm.auteclps")
Set autecloia = CreateObject("pcomm.autecloia")
Set auteclps = CreateObject("pcomm.auteclps")
Dim RetVal
RetVal = Shell("\\fwa-app\ga\Ga.exe Agency", 1)

auteclconnlist.Refresh

auteclpsobj.SetConnectionByName ("A")
autecloia.SetConnectionByName ("A")
auteclps.SetConnectionByName ("A")

autecloia.WaitForInputReady

If Trim(auteclpsobj.GetText(2, 31, 18)) <> "*** WELCOME TO ***" Then
MsgBox "Please navigate to the Vantage welcome screen (in emulator 'a') then retry."
Exit Sub
End If

auteclpsobj.SetText "SI", 24, 10
auteclpsobj.SetCursorPos 24, 12
auteclpsobj.SendKeys "[enter]"
autecloia.WaitForInputReady

ScrapeTickets
End Sub