IBM iSeries AS400 VBscript Массив заданных значений - PullRequest
Новая
       15

IBM iSeries AS400 VBscript Массив заданных значений

0 голосов
/ 11 февраля 2019

Я пытаюсь сократить потенциальный VBscript в моем iSeries.Что мне нужно автоматизировать, так это ввод пользователя через 30 запросов.Я знаю, как сделать это с помощью длинного метода, включающего копирование + вставку одного и того же Do:Loop, пока сообщение не будет очищено, но мне нужно это 30 раз с потенциалом большего - поэтому копировать + вставлять здесь не имеет смысла

Ниже приведен мой сценарий 

Do 'Start Loop
autECLSession.autECLOIA.WaitForAppAvailable
IF not (autECLSession.autECLOIA.MessageWaiting) Then 'If there is not a message waiting
    autECLSession.autECLPS.Wait(500) 'Wait 0.5 seconds
End If

Loop Until autECLSession.autECLOIA.MessageWaiting 'Keep going until there is a message waiting

autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[sys attn]" 'Send the Response
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.Wait(2000) 'Wait 2 seconds
autECLSession.autECLPS.SendKeys "2" 'Select Messages

autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]" 'Go to messages

autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]" 'Exit messages

У меня есть 30 запросов с разными именами, которые будут следовать за записью пользователя 

"10"
[Enter]
"2"
[Tab]
~Query Name~
[Tab]
~Library Name~

Если это поможет каким-либо образом,библиотека всегда будет одинаковой

Можно ли создать массив, в котором будут храниться имена запросов и проходить через них до завершения (включая проверку и очистку сообщения?

...