Scripting Tracker Lite – Development Tool for SAP GUI Scripting

Hi Stefan

Great tool , I have found that the controls paths can vary slightly when running against different clients eg (test and prod )  not sure why. Your tool would be good if it has a find function..

For example i have found that a TAB control changes in different environments (test and prod) ...so i just get the path using a find rather than hard coded path for each control.  Using this code (below).   There may already be a find function but I wrote one in VB (i'm sure you can work it out below).

Also now that the wizard is gone? - it should be easy to creating a pointing device like the wizard had. I don't know what your tool is written in (but if its auto it should be 'easy' to create a pointing device like the wizard had). I noticed that the GuiMainWindow object has a property Visualize (Calling this method of a component will display a red frame around the specified component) just like the wizard used to do? I tested it and it does what the wizard did. So a wizard like tool could be made.. Q. Do you know how to detect a click on the SAP GUI ...is there a click event?  If you build it they might include it in the SAP GUI Good work!

Anyway here is the code i use to find a control (i'm sure you can work it out but here it is)...

Function sFindCtrlFullPath(sfind As String) As String
' find the first control that matches (contains) sfind in the controls path.

' eg.
' g_sIDTABPath = sFindCtrlPath("tabpSCREEN_1100_TAB_03")

        Set ctrl = oFindCtrl(sfind)
        If Not ctrl Is Nothing Then
           
                sFindCtrlFullPath = ctrl.ID
           
        End If
        Set ctrl = Nothing
End Function

Function oFindCtrl(sfind As String, Optional isap_window_num As Integer = 0) As Object
        Set ctrl = sap_session.findById("wnd[" & isap_window_num & "]")
        Set oFindCtrl = ctrlwalker(ctrl.Children, sfind)
        Set ctrl = Nothing
End Function
Function ctrlwalker(ctrl As Object, sfind As String, Optional s As String = "") As Object
Dim i As Integer
' find the first control that matches (contains) sfind in the controls path.

' eg.
'
' set ctrl = ctrlwalker(sap_session.findById("wnd[0]").Children, "tblSAPLBUD0TCTRL_BUT0ID")

For i = 0 To ctrl.Count - 1
    s = s & "+-"
    If InStr("" & ctrl.Item(0 + i).ID, sfind) Then
        Debug.Print "FOUND " & sfind
        Debug.Print ctrl.Item(0 + i).ID & "( " & ctrl.Item(0 + i).Type & " )" & "( " & ctrl.Item(0 + i).Name & " )"
        Set ctrlwalker = ctrl.Item(0 + i)
        Exit Function
    End If
    ' search children
    If ctrl.Item(0 + i).containertype = True Then
        Set ctrlwalker = ctrlwalker(ctrl.Item(0 + i).Children, sfind)
    End If
    If Not ctrlwalker Is Nothing Then
        Set ctrl = Nothing ' to prevent memory leakage
        Exit Function ' bailing found
    End If
   
Next i
Set ctrl = Nothing
End Function