java - 如何使用java自动化大型机应用程序

Question

我知道这个问题被问了很多次。但我没有得到我想要的。我需要自动化quick3270，它用于使用java连接到大型机。首先让我告诉你我想要什么。我需要我的代码来打开quick3270.exe，然后打开我保存的 session :---这就完成了。现在，我必须向quick3270发送命令。问题来了，我不知道如何向该软件发送命令。第三是我正在使用机器人类。这样我就可以输入:TAB、ENTER、F3 等输入。

所以，整个事情就是我想向quick3270发送命令。我也需要间隔。比如发送一个命令，然后延迟 1 秒，然后再延迟其他命令，依此类推。

public static void main(String[] args) throws IOException, AWTException { 

    String exeloc = "C:\\Program Files\\Quick3270\\Quick3270.exe "; 

    // my saved session
    String directory = "C:\\Users\\c111128\\Desktop\\Project\\xyz.ecf";

    ProcessBuilder builder = new ProcessBuilder(new String[] { exeloc, directory });

    // Starting the process
    Process p = builder.start();

    // For handling keyboard events 
    Robot robot = new Robot();

    try {
        robot.delay(2000); 

        // Passing enter key to top screen
        robot.keyPress(KeyEvent.VK_ENTER);
        robot.delay(4000);            
        // Here I want to write the command
        //Command like:"teleview" which is used in mainframe



        robot.delay(1000);
    }

    catch (Exception e) {
        System.out.println("Second:" + e);
        e.printStackTrace();
    }
}

Answer 1

您解决了这个问题吗？通过 VBA，您可以通过以下方式向 Quick3270 发送命令:

Set Session = .ActiveSession
Set Screen = Session.Screen
Screen.SendKeys ("<Enter>")
Result = Screen.WaitForKbdUnlock
Screen.SendKeys ("<PF12>")
Screen.SendKeys ("<Enter>")
Result = Screen.WaitForKbdUnlock
Screen.SendKeys ("<PF12>")
Result = Screen.WaitForKbdUnlock
Result = Screen.WaitForCursor(4, 15)
QuickPutstring "1", 10, 2

Private Function QuickPutstring(ByVal PutstringText As String, Row As Long, Col As Long)
    Screen.MoveTo Row, Col
    Screen.Putstring PutstringText
End Function

希望有帮助...