необходимо создать петлевой макрос IBM i (as400)

Question

Может ли кто-нибудь помочь мне написать макрос для программы AS400, которая обновит конкретную страницу каждые 5 минут. Это должен быть бесконечный цикл, который я могу остановить, нажав кнопку остановки в программе. Я попытался записать макрос, но я не могу понять, как сделать цикл.

Спасибо!

Это то, что я получил, когда пытался записать макрос ... (.mac файл)

[PCOMM SCRIPT HEADER] 
LANGUAGE=VBSCRIPT 
DESCRIPTION= 
[PCOMM SCRIPT SOURCE] 
OPTION EXPLICIT 
autECLSession.SetConnectionByName(ThisSessionName) 

REM This line calls the macro subroutine 
subSub1_ 

sub subSub1_() 
    autECLSession.autECLOIA.WaitForAppAvailable 

    autECLSession.autECLOIA.WaitForInputReady 
    autECLSession.autECLPS.SendKeys "[pf5]" 

    autECLSession.autECLPS.WaitForAttrib 10,1,"00","3c",3,10000 

    autECLSession.autECLPS.Wait 781 

    autECLSession.autECLOIA.WaitForAppAvailable 

    autECLSession.autECLOIA.WaitForInputReady 
    autECLSession.autECLPS.SendKeys "[pf5]" 

    autECLSession.autECLPS.WaitForAttrib 10,1,"00","3c",3,10000 

    autECLSession.autECLPS.Wait 1125 

    autECLSession.autECLOIA.WaitForAppAvailable 

    autECLSession.autECLOIA.WaitForInputReady 
    autECLSession.autECLPS.SendKeys "[pf5]" 
end sub 

Answer 1

Один путь к петле DO WHILE или не сделать, пока. Вероятно, вы захотите отобразить окно сообщения, чтобы попросить пользователя выйти. Попробуйте:

Do While 1 = 1 
    subSub1_ 
    result = MsgBox("Exit?", vbOK, "Exit?") 
    If result = vbOK 
    Exit Do 
    End If 
Loop 

Не проверено. Дополнительную информацию см. На странице VBScript Language Reference на веб-сайте Microsoft MSDN. Для получения дополнительной информации о модальных и немодальных см. Вопрос «Переполнение стека» 22513413