ActiveSession Question

[vzachin]

hi,

the following code is from the Help files but it doesn't always seem to return the correct session.
for example,if i open 4 consecutive sessions and i run the code, session 4 would show as the active session.
then if i do one transaction (sendkey) in session, and run the code again, it would still show session 4 as the active session.
only after several transactions (sendkeys) would the code show correctly as session 1.
the sendkey can be an enter or pf1..etc...
i'm using myExtra Enterprise 7.11v
any ideas?

thanks
zach

Sub main()
    Dim Sys As Object, Sess As Object
    Set Sys = CreateObject("EXTRA.System")
' Assumes an open session
    Set Sess = Sys.ActiveSession
    SessionName$ = Sess.Name
    MsgBox "The active session is " + SessionName$ + "."
End Sub

 

[JamesDSM50328]

Are you trying to detrime which window the code is executing from?

 

[vzachin]

hi,

here is my dilema
if i have multiple screens open, i can only work in one session at a time. the remaining open sessions will eventually time out (30 minutes) if i don't do something in the session.
what i want to do is run a timed script to evoke a sendkey (maybe an enter or Pf key) in each of the other sessions that are currently inactive.
but i need to be able to figure out which session i'm active in.

i can be active in any session at any given time...
the above code in my original post doesn't work 100%..

any ideas?
zach

 

[SkipVought]

Hi,

Since sessions is a collection of session objects, why even bother with activesession? You can "work" in any session that is in the collection.

for i = 1 to oSys.Sessions.count
   msgbox oSys.Sessions(1).name
next

Skip,

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