warhead92100
Technical User
hi
we have multiple attachmate systems installed. and we're trying to detect an open Extra! X-treme but vba (Extra.System) keeps referring to Reflection 2008 even though it is closed.
I'm using the standard code which works for Extra! and Reflections but not for Extra! X-treme:
' 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 = 0.0000001 ' 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
End If
Sess0.Screen.waithostquiet (g_hostsettletime)
Does anyone have ideas on this?
Thanks!
we have multiple attachmate systems installed. and we're trying to detect an open Extra! X-treme but vba (Extra.System) keeps referring to Reflection 2008 even though it is closed.
I'm using the standard code which works for Extra! and Reflections but not for Extra! X-treme:
' 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 = 0.0000001 ' 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
End If
Sess0.Screen.waithostquiet (g_hostsettletime)
Does anyone have ideas on this?
Thanks!