Mainframe Automation - Need to click on "Run Macros" from my mainframe session

[Soundarya]

In my Mainframe application there is a "Tool Bar" and it has Run Macro option. Is there a way to click on that "Run Macro" option using auotit ?

 

 

 

[Danp2]

I'm sure that there's a way to do it, but we can't guide you with only this limited information. What does AU3Info display when you examine this control?

[Soundarya]

@Danp2 Thanks for checking this. Here is the windows info. I noticed that "Run Macro" is inside the Toolbar, but I don't see any visible text related to Macro. Please check and let me know if I have to provide any additional info. Sorry I have to remove the title as it holds some confidential information that I am not supposed to share.

 

>>>> Window <<<<
Title:    
Class:    IEFrame
Position:    -8, -8
Size:    1296, 696
Style:    0x17CF0000
ExStyle:    0x00000100
Handle:    0x003A1030

>>>> Control <<<<
Class:    Afx:ToolBar:400000:8:10003:10
Instance:    2
ClassnameNN:    Afx:ToolBar:400000:8:10003:102
Name:    
Advanced (Class):    [CLASS:Afx:ToolBar:400000:8:10003:10; INSTANCE:2]
ID:    59392
Text:    Toolbar
Position:    0, 0
Size:    981, 53
ControlClick Coords:    643, 23
Style:    0x5600084C
ExStyle:    0x00000000
Handle:    0x005A0A50

>>>> Mouse <<<<
Position:    643, 46
Cursor ID:    0
Color:    0xB7DCFA

>>>> StatusBar <<<<

>>>> ToolsBar <<<<

>>>> Visible Text <<<<
Toolbar
Button Bar 2
Button Bar 1

>>>> Hidden Text <<<<
Navigation Bar
Address Bar
Address Combo Control
Page Control
Search Bar
Address Combo Control
Page Control
Favorites Bar
Add to Favorites bar
ITBarHost
Menu Bar
Button Bar 3

Edited April 12, 2023 by Soundarya

[Danp2]

I'm not sure how to advise you on this. Maybe someone else will jump in with some suggestions.

[mLipok]

Is it IE embeded ?  

50 minutes ago, Soundarya said:

Class:    IEFrame

 

  

2 hours ago, Soundarya said:

Is there a way to click on that "Run Macro" option using auotit ?

Did you try to use UIASpy ?

Edited April 12, 2023 by mLipok

[Nine]

Check if UDF/GUI/Toolbar Management functions can see your tool bar...

[Soundarya]

Thank you all for sharing the suggestions. Now I could access the tool bar with below code and I tried to loop through each button and printed the button names, where I saw the button name "Run Macro". Which is really great. Now I want to click on the button, I tried to do with Button Index, but failed in the process. Still trying. If some one have already did the same please share your thoughts.

 

Func PassportInputs()
Local $IE = _IECreate(I given my link to passposrt)
$hWnd = ControlGetHandle("", "", "[CLASS:Afx:ToolBar:400000:8:10003:10; INSTANCE:2]")  
; Get number of buttons
$iCount = _GUICtrlToolbar_ButtonCount($hWnd)
; Loop through buttons
For $i = 1 To $iCount - 1 Step 1 ; 
    $iCmdID = _GUICtrlToolbar_IndexToCommand($hWnd, $i)
    $sText = _GUICtrlToolbar_GetButtonText($hWnd, $iCmdID)
   MsgBox(0,"",$sText)

Next

EndFunc

Edited April 13, 2023 by Soundarya

[mLipok]

Please read:

* How to post code on the forum *

 

try this:

Func PassportInputs()
    Local $IE = _IECreate(I given my link To passposrt)
    $hWnd = ControlGetHandle("", "", "[CLASS:Afx:ToolBar:400000:8:10003:10; INSTANCE:2]")
    ; Get number of buttons
    $iCount = _GUICtrlToolbar_ButtonCount($hWnd)
    ; Loop through buttons
    For $i = 1 To $iCount - 1 Step 1 ;
        $iCmdID = _GUICtrlToolbar_IndexToCommand($hWnd, $i)
        $sText = _GUICtrlToolbar_GetButtonText($hWnd, $iCmdID)
        If $sText ='Run Macro' Then _GUICtrlToolbar_ClickIndex($hWnd, $iCmdID)
    Next

EndFunc   ;==>PassportInputs

 

[Nine]

Another way is to get the position of the button with _GUICtrlToolbar_GetButtonRect, then use ControlClick to the middle of the rectangle.  Tested on my own toolBar and it is working fine.

ps. _GUICtrlToolbar_ClickIndex requires that the window containing the toolbar be active (at least visible) since it is using MouseClick.

Edited April 13, 2023 by Nine

[Soundarya]

@Nine

Continuation on above topic. All I could do with my Mainframe Tool bar is only Get the Text of the button. But When I perform any action like control click and other it is not happening. I tried MouseClick and it worked using the Click co-ordinates. Any idea why the control click is not working.

[Nine]

As per help file on ControlClick :

Quote

Some controls will resist clicking unless they are the active window. Use the WinActivate() function to force the control's window to the top before using ControlClick().

Is the tool ran x64 ? or elevated ?

And post your last script attempt that does not work.  When you post code, use the method shown in the link...

Edited April 26, 2023 by Nine

[Soundarya]

@Nine

Below is my recent code. I tried to print he button names and it is successful, but when I do click button it is not happening.

 

Func PassportInputs()
Local $IE = _IECreate("My link to the app")
sleep(10000)
$hWnd = ControlGetHandle("","",'[CLASS:Afx:ToolBar:400000:8:10003:10; INSTANCE:2]') 

; Get number of buttons
$iCount = _GUICtrlToolbar_ButtonCount($hWnd)

; Loop through buttons
For $i = 1 To $iCount - 1 Step 1 ; <<<<< You may need single step
    $iCmdID = _GUICtrlToolbar_IndexToCommand($hWnd, $i) 
    ;MsgBox(0,"",$iCmdID)
    $sText = _GUICtrlToolbar_GetButtonText($hWnd, $iCmdID)
    ;MsgBox(0,"",$sText)    
    
    If $sText ='Run Macro' Then 
        _GUICtrlToolbar_ClickButton($hWnd,$iCmdID)
    EndIf
Next

EndFunc

 

[Danp2]

It's possible that your string comparison isn't matching so that the _GUICtrlToolbar_ClickButton never gets executed. You should add a ConsoleWrite inside the If structure so that you can be sure it is working as expected.

[Soundarya]

@Danp2

I tried to do a message box to see it enters If loop and yes it did. So only problem is with click

[Nine]

As I already told you, _GUICtrlToolbar_ClickButton is based on MouseClick and you also said that MouseClick is working.  So there is something wrong in your code ( @Danp2 may have just nailed it ).  Another way to check if the click is performed correctly, make the click move the cursor :

_GUICtrlToolbar_ClickButton($hWnd, $iCmdID, "left", True) ; will move the cursor to the click area

ps.  put some consoleWrite here and there to follow the path of your script and post both your new script and the console result here...

FYI. buttons are 0-based -- so loop should start at 0 not 1

Edited April 26, 2023 by Nine

[Soundarya]

@Nine 

 

Func PassportInputs()
Local $IE = _IECreate("Link to App")
sleep(10000)
$hWnd = ControlGetHandle("","",'[CLASS:Afx:ToolBar:400000:8:10003:10; INSTANCE:2]') 

; Get number of buttons
$iCount = _GUICtrlToolbar_ButtonCount($hWnd)
; Loop through buttons
ConsoleWrite($hWnd & @CRLF)
For $i = 0 To $iCount - 1 Step 1 ; 
    $iCmdID = _GUICtrlToolbar_IndexToCommand($hWnd, $i) 
    ;MsgBox(0,"",$iCmdID)
    $sText = _GUICtrlToolbar_GetButtonText($hWnd, $iCmdID)
    ;MsgBox(0,"",$sText)    
    If $sText = 'Run Macro' Then
        ConsoleWrite($sText & @CRLF)
        ConsoleWrite($hWnd & @CRLF)
        ConsoleWrite($iCmdID & @CRLF)
        _GUICtrlToolbar_ClickButton($hWnd, $iCmdID, "left", True)
        
    EndIF
Next

EndFunc



Console

>"C:\Program Files (x86)\AutoIt3\SciTE\..\AutoIt3.exe" /ErrorStdOut "C:\Users\SZP0544\Documents\FMB Automation\FMB Automation.au3"    
--> IE.au3 V3.1-0 Error from function _IELoadWait, $_IESTATUS_ClientDisconnected (-2147023179, Browser has been deleted prior to operation.)
0x002D1A6C
Run Macro
0x002D1A6C
31016
>Exit code: 0

 

Edited April 26, 2023 by Soundarya

[Danp2]

Did the mouse cursor move to the correct location? I'm wondering if there could be an issue due to screen scaling.

[Soundarya]

@Danp2 , No the cursor did not move at all . But when I do command "MouseMove" it moves

Edited April 26, 2023 by Soundarya

[Danp2]

That could be due to screen scaling because you are potentially providing a different set of x / y values from that calculated by _GUICtrlToolbar_ClickButton.

Post the output from running the following code --

#include <WinAPIGdi.au3>
#include <GuiToolbar.au3>
#include <IE.au3>

; https://www.autoitscript.com/forum/topic/199363-more-elegant-way-than-this-to-get-monitor-scaling/?do=findComment&comment=1430331
Global $scale = _WinAPI_EnumDisplaySettings('', $ENUM_CURRENT_SETTINGS)[0] / @DesktopWidth
ConsoleWrite("Scale = " & _WinAPI_EnumDisplaySettings('', $ENUM_CURRENT_SETTINGS)[0] & " / " & @DesktopWidth & " = " & $scale & @CRLF)

Local $IE = _IECreate("Link to App")
sleep(10000)
$hWnd = ControlGetHandle("","",'[CLASS:Afx:ToolBar:400000:8:10003:10; INSTANCE:2]') 

; Get number of buttons
$iCount = _GUICtrlToolbar_ButtonCount($hWnd)

For $i = 0 To $iCount - 1 Step 1 ; 
    $iCmdID = _GUICtrlToolbar_IndexToCommand($hWnd, $i) 
    $sText = _GUICtrlToolbar_GetButtonText($hWnd, $iCmdID)
    If $sText = 'Run Macro' Then
        ; from _GUICtrlToolbar_ClickButton
        Local $tRECT = _GUICtrlToolbar_GetButtonRectEx($hWnd, $iCmdID)
        Local $tPoint = _WinAPI_PointFromRect($tRECT)
        $tPoint = _WinAPI_ClientToScreen($hWnd, $tPoint)
        Local $iX, $iY
        _WinAPI_GetXYFromPoint($tPoint, $iX, $iY)
        ConsoleWrite("x:" & $iX & " / y:" & $iY & @CRLF)                
    EndIF
Next

 

[Soundarya]

@Danp2 Thanks for trying this out.

 

Here is the console for the given code 

>"C:\Program Files (x86)\AutoIt3\SciTE\..\AutoIt3.exe" /ErrorStdOut "C:\Users\SZP0544\Documents\FMB Automation\FMB Automation.au3"    
Scale = 1280 / 1280 = 1
--> IE.au3 V3.1-0 Error from function _IELoadWait, $_IESTATUS_ClientDisconnected (-2147023179, Browser has been deleted prior to operation.)
x:199 / y:33
>Exit code: 0

 

Edited April 26, 2023 by Soundarya