Attachmate Macro

Hi,

Let's see what code you have developed so far.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

Well that is where the problem lies. I need to know if that will work or not first. But here is what I have thought of. Please don't laugh at my hacking as I am not working with any real knowledge here just piecing this together. I have included comments where I am looking at inserting the DIM object. I really should get a VB book and really learn how to program.

' Global variable declarations
Global g_HostSettleTime%
Global g_szPassword$


Sub Main()
'--------------------------------------------------------------------------------
' Get the main system object
Dim Sessions As Object
Dim System As Object
Set System = CreateObject("EXTRA.System") ' Gets the system object
If (System is Nothing) Then
Msgbox "Could not create the EXTRA System object. Stopping macro playback."
STOP
End If
Set Sessions = System.Sessions

If (Sessions is Nothing) Then
Msgbox "Could not create the Sessions collection object. Stopping macro playback."
STOP
End If
'--------------------------------------------------------------------------------



' Set the default wait timeout value
g_HostSettleTime = 3000 ' milliseconds
g_MenuSettleTime = 1000 ' milliseconds

OldSystemTimeout& = System.TimeoutValue
If (g_HostSettleTime > OldSystemTimeout) Then
System.TimeoutValue = g_HostSettleTime
End If

' Get the necessary Session Object
Dim Sess0 As Object
Set Sess0 = System.ActiveSession
If (Sess0 is Nothing) Then
Msgbox "Could not create the Session object. Stopping macro playback."
STOP
End If
If Not Sess0.Visible Then Sess0.Visible = TRUE
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)

' This section of code contains the recorded events
Sess0.Screen.Sendkeys("<Pa1>")
Sess0.Screen.WaitHostQuiet(g_MenuSettleTime)
Sess0.Screen.Sendkeys("4<Enter>")
Sess0.Screen.WaitHostQuiet(g_MenuSettleTime)
Sess0.Screen.Sendkeys("1<Enter>")
Sess0.Screen.WaitHostQuiet(g_MenuSettleTime)

System.TimeoutValue = OldSystemTimeout

' Minimize Attachmate
SendKeys("% ")
SendKeys("n")

' This is my insertion of the code I need for the wait
'I have no idea how to tie this in
Dim w1 as Object
Dim waits as Object
' Get a Waits collection object
Set waits = System.Waits

' Trap for Function Key (Exit Macro)
Set w1 = Sess0.Screen.WaitForKeys(off)
'not sure how to tie the below in to set as a
Sess0.Screen.Sendkeys("off<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Application.Sessions.CloseAll

End Sub