Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Keep Alive Timer

Keep Alive Timer

Keep Alive Timer

I am more familar with the basic macro language of kea! or aspect in procom, but am stuck with using EXTRA! 7.11 on this task, and am having trouble writting a basic keep alive timer.

I just need to send a "R<ENTER>" every 2 minutes if the screen does not refresh.

I tried to record a macro and mess around with the WaitHostQuiet, but cant figure out how to loop it forever.   

RE: Keep Alive Timer

What are you trying to accomplish by keeping your connection alive?


Declare Sub Wait(Sess As Object)

Sub Main()
   Dim Sys As Object, Sess As Object

   Set Sys = CreateObject("Extra.System")

   If Sys Is Nothing Then
      MsgBox ("Could not create Extra.System...is E!PC installed on this machine?")
      Exit Sub
   End If

   Set Sess = Sys.ActiveSession

   If Sess Is Nothing Then
      MsgBox ("No session available...stopping macro playback.")
      Exit Sub
   End If
   Do While (1)
      Sess.Screen.SendKeys ("R<ENTER>")
      Call Wait(Sess)
      Sess.Screen.WaitHostQuiet (3000) '   3000 <- 3 seconds
                                       ' 120000 <- 2 mins
   Set Sess = Nothing
   Set Sys = Nothing
End Sub

Sub Wait(Sess As Object)
   Do While Sess.Screen.OIA.Xstatus <> 0
End Sub

RE: Keep Alive Timer

Thanks a bunch, nice to know the right way to do it, previously in KEA!420 I would just loop two different macros against each other, another feature left out of Extra!.

RE: Keep Alive Timer

Sorry, I didn't see your question in the solution. It's not really a "keep alive" timer, as much as it is a screen refresher. The program that I am accessing doesn't realiably refresh the data on a specific interval, but will refresh if manually keyed.

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members! Already a Member? Login

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close