Я пытаюсь автоматизировать некоторые Attachmate Extra!с VBA.Как мне нажать Page Down на отражение? - PullRequest
Новая
       38

Я пытаюсь автоматизировать некоторые Attachmate Extra!с VBA.Как мне нажать Page Down на отражение?

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

Так что мне нужно автоматизировать задачу для компании, в которой я работаю, и это включает Attachmate Reflection Extra!(.edp)

Я пытался нажать клавишу Page Down безуспешно.Не с sendcontrolkey, не с "RollUp", не с "PageDown", "PGDN", ничего не работает.Как я могу нажать PageDown на Attachmate Extra? 

       strPag = Trim(ExtraEcran1.getstring(13, 2, 8))
            ExtraEcran1.SendKeys "<RollUp>"
        qtdPag = qtdPag + 1

        Do While strPag <> Trim(ExtraEcran1.getstring(13, 2, 8)) And i < 5
            strPag = Trim(ExtraEcran1.getstring(13, 2, 8))
            i = i + 1
            qtdPag = qtdPag + 1
            ExtraEcran1.SendKeys "<PAGEDOWN>"
        Loop

Это записанный макрос из Attachmate Extra !, который у меня не работал 

Dim osCurrentScreen As Screen
Dim osCurrentTerminal As Terminal
Dim returnValue As Integer


Const NEVER_TIME_OUT = 0

Dim ESC As String   ' Chr(rcESC) = Chr(27) = Control-[

Set osCurrentTerminal = ThisFrame.SelectedView.Control
Set osCurrentScreen = osCurrentTerminal.Screen

ESC = Chr(27)

' Press VtNextScreen (Executar a função Próxima tela).
Call osCurrentScreen.SendControlKey(ControlKeyCode_NextScreen)
'Wait for a string on the host screen before continuing
returnValue = osCurrentScreen.WaitForString3(ESC & ">", NEVER_TIME_OUT, WaitForOption.WaitForOption_AllowKeystrokes)
If (returnValue <> ReturnCode_Success) Then
    Err.Raise 11001, "WaitForString3", "Timeout waiting for string.", "VBAHelp.chm", "11001"
End If

Также вот кодыдополнительных ключей https://docs.attachmate.com/extra/x-treme/apis/com/5250functionkeys_des.htm

I

Редактировать: не удалось заставить его работать каким-либо образом.Вместо этого решите пойти с большим количеством клавиш вниз.

...