AS400 tasks automation

[Ravali]

Hi,

below is my code.

WinWaitActive("Configure PC5250")

ControlFocus("Configure PC5250","","Button18")

ControlClick("Configure PC5250","","Button18")

WinWait("Session","",10)

Global $oCon = CreateObject("PCOMM.autECLConnList")

Global $oOI=ObjCreate("PCOMM.autECLOIA")

Global $oPS=ObjCreate("PCOMM.autECLPS")

$oCon.autECLConnList.Refresh

 

i have tried creating a connection object but issue is still the same.

 

 

[mLipok]

Did you ever hear about COM Error Handler? 

[water]

You need something like this:

#include <MsgBoxConstants.au3>

$oPCOMM_Error = ObjEvent("AutoIt.Error", "__PComm_ErrorHandler") ; Creates a custom error handler
Global $oConnMgr = ObjCreate("autECLConnMgr") ; Start the connection manager
; Further statements

Func __PComm_ErrorHandler()
    Local $bHexNumber = Hex($oPCOMM_Error.number, 8)
    Local $sError = "COM Error Encountered in " & @ScriptName & @CRLF & _
            "@AutoItVersion = " & @AutoItVersion & @CRLF & _
            "@AutoItX64 = " & @AutoItX64 & @CRLF & _
            "@Compiled = " & @Compiled & @CRLF & _
            "@OSArch = " & @OSArch & @CRLF & _
            "@OSVersion = " & @OSVersion & @CRLF & _
            "Scriptline = " & $oPCOMM_Error.scriptline & @CRLF & _
            "NumberHex = 0x" & $bHexNumber & @CRLF & _
            "Number = " & $oPCOMM_Error.number & @CRLF & _
            "WinDescription = " & $oPCOMM_Error.WinDescription & @CRLF & _
            "Description = " & $oPCOMM_Error.Description & @CRLF & _
            "Source = " & $oPCOMM_Error.Source & @CRLF & _
            "HelpFile = " & $oPCOMM_Error.HelpFile & @CRLF & _
            "HelpContext = " & $oPCOMM_Error.HelpContext & @CRLF & _
            "LastDllError = " & $oPCOMM_Error.LastDllError
    MsgBox($MB_ICONERROR, "PComm - Debug Info", $sError)
EndFunc   ;==>__PComm_ErrorHandler

 

Another question: Why do you need to automate the Configure Dialog?

[Neutro]

@Ravali I think you have the correct software, but you might just had a copy / paste problem from using the code in my first post. 

You said you had an "Unknown function name" error when running my code as described in my first post, you shouldn't get that error since the function ObjCreate() doesn't need any additional library to work on a default autoit installation.

So please follow my first post again, run the code i provided to create an object linked to session A from which you get that "unknown function name error" then post a screenshot of the error message you get in the autoit compiler window.

Edited October 5, 2020 by Neutro

[Ravali]

Hi @Neutro,

please find the below screenshots of the error.

 

I have automated configure window for credentials pop up of As400.

Edited November 2, 2020 by Ravali
Image correction

[Neutro]

@Ravali How can we know what line 13 is in your screenshot if you dont have your line numbers in the screenshot?

 

Please download the attached script and run it after your AS400 emulator window is opened and is waiting for input.

It should move your cursor to position 6:53 on your emulator screen and write "test" on it.

If you still have an "unknown object error" related to "ObjCreate" function, check the autoit help file for the ObjCreate function and try to run the example script you'll find there to see if it works or not (to check if your autoit installation is working properly or not).

Also if you have an error please post a full screenshot of your autoit editor window, including line numbers and the console below if needed.

AS400test.au3

Edited November 2, 2020 by Neutro