Control SaveAs Dialog with AutoIt

[stefan_schnell]

Hello community,

a few times we discuss here the necessity to control Windows dialogs e.g. like SaveAs in the context of SAP GUI Scripting. For those dialogs offers SAP GUI Scripting no possibilities to control that. So it is necessary to control it by ourself by indirect means. Holger Köhn presented a VBA solution here. Here now an equivalent solution for AutoIt.

A few interesting findings:

• FindWindowEx works not in any case, it is possible to use EnumChildWindows function.


• The Save button from the SaveAs dialog delivers in the German version the text Open (Ö&ffnen) - weird.


• It seems that the dialogs are version and language dependent.
  

The code shows different access methods to find a handle of a control resp. window - FindWindow, FindWindowEx and EnumChildWindows - with AutoIt. I thinks this code is a good base to implement an individual solution for your use case.

;-Begin-----------------------------------------------------------------



  ;-Directives----------------------------------------------------------

    AutoItSetOption ("MustDeclareVars" , 1)



  ;-Includes------------------------------------------------------------

    #Include "C:\Language\AutoIt\Include\SendMessage.au3"

    #Include "C:\Language\AutoIt\Include\WinAPI.au3"

    #Include "C:\Language\AutoIt\Include\WinAPISys.au3"

    #Include "C:\Language\AutoIt\Include\WindowsConstants.au3"

    #Include "C:\Language\AutoIt\Include\MsgBoxConstants.au3"

    #Include "C:\Language\AutoIt\Include\GuiButton.au3"

    #Include "C:\Language\AutoIt\Include\Array.au3"

    #Include "C:\Language\AutoIt\Include\GuiEdit.au3"



  ;-Function _WinAPI_FindWindowEx---------------------------------------

    Func _WinAPI_FindWindowEx($hWndParent, $hWndChildAfter, _

      $sClassName, $sWindowName)

      Local $aResult = DllCall("user32.dll", "hwnd", "FindWindowExW", _

        "hWnd", $hWndParent, "hWnd", $hWndChildAfter, _

        "wstr", $sClassName, "wstr", $sWindowName)

      If @error Then Return SetError(@error, @extended, 0)

      Return $aResult[0]

    EndFunc



  ;-Sub Auto_SaveAs_SAP-------------------------------------------------

  ;

  ; Function checked with SAP 7.31 SP 4 and Dialog Box in SE80 to save

  ; source code as local file on a German version of Windows 7 with

  ; AutoIt 3.3.14.2

  ;

  ; Important hint: FindWindowEx works not in any case, so it is

  ;                 possible to use instead EnumChildWindows

  ;

  ;---------------------------------------------------------------------

    Func Auto_SaveAs_SAP($FileName)



      ;-Variables-------------------------------------------------------

        Local $i



      ;Get the handle of the Save As Dialog Box

      Local $hWin = _WinAPI_FindWindow ("#32770", "Speichern unter")

      If $hWin = 0 Then

        MsgBox($MB_OK, "", "Save As Window Not Found")

        Return

      EndIf



      ;Get the handle of ComboBoxEx32

      Local $hChildRet = _WinAPI_FindWindowEx($hWin, 0, "ComboBoxEx32", "")

      If $hChildRet = 0 Then

        MsgBox($MB_OK, "", "ComboBoxEx32 Not Found")

        Return

      EndIf



      ;Get the handle of the Main ComboBox

      $hChildRet = _WinAPI_FindWindowEx($hChildRet, 0, "ComboBox", "")

      If $hChildRet = 0 Then

        MsgBox($MB_OK, "", "ComboBox Window Not Found")

        Return

      EndIf



      ;Get the handle of the Edit

      Local $hChildArray = _WinAPI_EnumChildWindows($hChildRet)

      $hChildRet = $hChildArray[1][0]

      If $hChildRet = 0 Then

        MsgBox($MB_OK, "", "Edit Window Not Found")

        Return

      EndIf



      _WinAPI_SetForegroundWindow($hWin)

      _WinAPI_BringWindowToTop($hWin)



      ;fillin FileName in 'Save As' Edit

      _GUICtrlEdit_SetText($hChildRet, $FileName)



      ;Get the handle of the Save Button in the Save As Dialog Box

      $hChildArray = _WinAPI_EnumChildWindows($hWin)

      For $i = 0 To UBound($hChildArray, $UBOUND_ROWS) - 1

        If $hChildArray[$i][1] = "Button" Then

         ;The Save Button gets as Window Text Open - Crazy

          If _GUICtrlButton_GetText($hChildArray[$i][0]) = "Ö&ffnen" Then

            $hChildRet = $hChildArray[$i][0]

          EndIf

        EndIf

      Next



      ;Check if we found it or not

      If $hChildRet = 0 Then

        MsgBox($MB_OK, "", "Save Button in Save As Window Not Found")

        Return

      EndIf



      ;Press Save-button

      _SendMessage($hChildRet, $BM_CLICK, 0, 0)



    EndFunc



  ;-Sub Main------------------------------------------------------------

    Func Main()

      Auto_SaveAs_SAP("Test.txt")

    EndFunc



  ;-Main----------------------------------------------------------------

    Main()



;-End-------------------------------------------------------------------

Hint: You can find here WinSpy++, a phantastic freeware tool analyze the UI, controls, handles and many more.

Enjoy it.

Cheers
Stefan