需要創建一個循環宏IBM i（as400）

-1

有人可以幫我寫一個AS400程序的宏，每5分鐘刷新一次特定的頁面。它應該是一個無限循環，我可以通過點擊程序中的停止按鈕來停止。我試圖記錄宏，但我無法弄清楚如何製作循環。需要創建一個循環宏IBM i（as400）

謝謝！

這是我得到了試圖錄制宏時...（.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

來源

2015-03-31 johnsnow333

這是否爲客戶端訪問終端仿真程序？對於RPG程序？對於IBM i提供的網頁？請編輯你的問題，並告訴我們你的嘗試。 – 2015-03-31 16:52:46

是的，它的i系列5.9並通過模擬器。謝謝 – johnsnow333 2015-04-01 19:43:38

一種方法是DO WHILE或做，直到。您可能需要顯示一個消息框以要求用戶退出。請嘗試：

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

未經測試。請參閱Microsoft MSDN網站上的VBScript Language Reference以獲取更多信息。有關模態與非模態的更多信息，請參閱堆棧溢出問題22513413

來源

2015-04-02 19:12:58

需要創建一個循環宏IBM i（as400）

回答

相關問題