Как отправить навигационные клавиши и извлечь данные из IBM i Access Client Solutions? - PullRequest
Новая
       46

Как отправить навигационные клавиши и извлечь данные из IBM i Access Client Solutions?

0 голосов
/ 21 декабря 2018

На работе я должен извлечь данные из экрана AS400 с помощью IBM i Access Client Solutions.

Раньше у меня был код, который я мог использовать с PComm;однако, они недавно заменили программное обеспечение в моей компании (не спрашивая), что вызывает задержки до нескольких дней.

Вот старый код, который у меня был: 

Option Explicit

Sub JDE()
' Uses Microsoft forms 2.0 object libraries as references
' You must have Pcomm from IBM installed for this to work:
' https://www.ibm.com/us-en/marketplace/personal-communications
    Dim autECLSession, autECLOIA, autECLPS, autECLConnList As Object
    Dim JDE, Enter, Load, F1, F2, F3, F4, F5, ShF4, PageDown, PageUp, Clear As String

    Set autECLSession = CreateObject("Pcomm.autECLSession")
    Set autECLOIA = CreateObject("Pcomm.autECLOIA")
    Set autECLPS = CreateObject("Pcomm.autECLPS")
    Set autECLConnList = CreateObject("PCOMM.autECLConnList")
    autECLSession.SetConnectionByName "A"

    Set JDE = autECLSession.autECLPS
    Set Load = autECLSession.autECLOIA

    Enter = "[enter]"
    F1 = "[pf1]"
    F2 = "[pf2]"
    F3 = "[pf3]"
    F4 = "[pf4]"
    F5 = "[pf5]"
    ShF4 = "[pf15]"
    PageDown = "[Roll up]"
    PageUp = "[Roll down]"
    Clear = "[erase eof]"

    ' Extracting text
    Selection= JDE.GetText (10, 64, 10(spaces required))

    ' Navigating JDE
    Load.waitforappavailable
    Load.WaitForInputReady
    JDE.SendKeys F1
    JDE.SendKeys F2
    JDE.SendKeys F3
    JDE.SendKeys F4
    JDE.SendKeys ShF4
    JDE.SendKeys Clear
    JDE.SendKeys PageDown
    JDE.SendKeys PageUp

End Sub

Примервыше помогает мне перемещаться по экранам, посылая несколько нажатий клавиш и извлекать текст в память.

...