Keep Alive Timer Keep Alive Timer KingKea (Programmer) (OP) 24 Aug 07 19:09 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 WinblowsME (TechnicalUser) 29 Aug 07 12:36 What are you trying to accomplish by keeping your connection alive?CODEDeclare 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 Loop Set Sess = Nothing Set Sys = NothingEnd SubSub Wait(Sess As Object) Do While Sess.Screen.OIA.Xstatus <> 0 DoEvents LoopEnd Sub RE: Keep Alive Timer KingKea (Programmer) (OP) 29 Aug 07 15:30 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 KingKea (Programmer) (OP) 29 Aug 07 15:39 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.