Controlling 3rd Party Application

Private Sub RadButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadButton1.Click
 
        Dim winEnum As New WindowsEnumerator
        Dim childList As New System.Collections.Generic.List(Of WindowsEnumTest.ApiWindow)
 
        RadTextBox3.Clear()
 
        Dim p As Process = Process.Start("C:\Program Files\3Shape\ScanItLegato\Scanit.exe")
        p.WaitForInputIdle()
 
        childList = winEnum.GetChildWindows(p.MainWindowHandle.ToInt32)
 
        For Each apiChild As WindowsEnumTest.ApiWindow In childList
            RadTextBox3.Text += p.MainWindowTitle + ":" + _
                apiChild.MainWindowTitle + ":" + apiChild.ClassName + _
                ":" + apiChild.hWnd.ToString + vbNewLine
        Next
    End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

   Private Sub RadButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadButton2.Click
 
        RadTextBox3.Clear()
        RadTextBox4.Clear()
 
        winList = winEnum.GetTopLevelWindows("TShapeItMainForm.UnicodeClass")
 
        For Each apiWin As WindowsEnumTest.ApiWindow In winList
 
            childList = winEnum.GetChildWindows(apiWin.hWnd)
 
            For Each apiChild As WindowsEnumTest.ApiWindow In childList
                If apiChild.MainWindowTitle = "Toolbar3Shape3" And apiChild.ClassName = "TdfToolbar97.UnicodeClass" Then
                    GlobHwnd = apiChild.hWnd
                End If
            Next
        Next
    End Sub
 
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
        (ByVal handle As IntPtr, ByVal uMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
 
    Private Const WM_LBUTTONUP As Integer = &H202
    Private Const WM_LBUTTONDOWN As Integer = &H201
    Private Const WM_SETTEXT = &HC
 
    Private Sub LeftClickAt(ByVal handle As IntPtr, ByVal OffsetPt As Point)
        If Not handle.Equals(IntPtr.Zero) Then
            Dim coords As Integer = CombineCoords(OffsetPt.X, OffsetPt.Y)
            Call SendMessage(handle, WM_LBUTTONDOWN, 0, coords)
            Call SendMessage(handle, WM_LBUTTONUP, 0, coords)
        End If
    End Sub
 
    Private Function CombineCoords(ByVal X As Integer, ByVal Y As Integer) As Integer
        Return X + Y * 65536
    End Function
 
    Private Sub RadButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadButton3.Click
        LeftClickAt(GlobHwnd, New Point(100, 25))
    End Sub
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
        (ByVal handle As IntPtr, ByVal uMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
 
Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" _
    (ByVal handle As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer
 
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
        (ByVal handle As IntPtr, ByVal uMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
 
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
        (ByVal parent As IntPtr, ByVal child As IntPtr, ByVal className As String, ByVal caption As String) As IntPtr
 
Private Const WM_LBUTTONUP As Integer = &H202
Private Const WM_LBUTTONDOWN As Integer = &H201
Private Const WM_SETTEXT = &HC
 
Private Sub RadButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadButton4.Click
 
        Dim Handle1, Handle2, Handle3, Handle4, Handle5, Handle6 As Integer
        Dim GroupCount As Integer = 0
 
        winList.Clear()
        childList.Clear()
 
        winList = winEnum.GetTopLevelWindows("TShowShellManagerOrderForm.UnicodeClass")
 
        For Each apiWin As WindowsEnumTest.ApiWindow In winList
 
            childList = winEnum.GetChildWindows(apiWin.hWnd)
 
            For Each apiChild As WindowsEnumTest.ApiWindow In childList
                If apiChild.ClassName = "TdfInfoPanel" Then
                    If GroupCount = 2 Then
                        Handle1 = apiChild.hWnd
                    End If
                    GroupCount += 1
                End If
 
            Next
        Next
 
        GroupCount = 0
        childList.Clear()
        childList = winEnum.GetChildWindows(Handle1)
 
        For Each apiChild As WindowsEnumTest.ApiWindow In childList
            If apiChild.ClassName = "TdfInfoGroup.UnicodeClass" Then
                If GroupCount = 3 Then
                    Handle2 = apiChild.hWnd
                End If
                GroupCount += 1
            End If
 
        Next
 
        Handle3 = FindWindowEx(Handle2, IntPtr.Zero, "TdfInfoPanel", Nothing)
        Handle4 = FindWindowEx(Handle3, IntPtr.Zero, "TdfInfoRow", Nothing)
        Handle5 = FindWindowEx(Handle3, Handle4, "TdfInfoRow", Nothing)
        Handle6 = FindWindowEx(Handle5, IntPtr.Zero, "TCompactEdit.UnicodeClass", Nothing)
 
        Call SendMessageByString(Handle6, WM_SETTEXT, 0, "1000001")
 
    End Sub
 
    Private Sub RadButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadButton5.Click
 
        Dim Handle1, Handle2, Handle3, Handle4, Handle5, Handle6, Handle7 As Integer
        Dim GroupCount As Integer = 0
 
        winList.Clear()
        childList.Clear()
 
        winList = winEnum.GetTopLevelWindows("TShowShellManagerOrderForm.UnicodeClass")
 
        For Each apiWin As WindowsEnumTest.ApiWindow In winList
 
            childList = winEnum.GetChildWindows(apiWin.hWnd)
 
            For Each apiChild As WindowsEnumTest.ApiWindow In childList
                If apiChild.ClassName = "TdfInfoPanel" Then
                    If GroupCount = 2 Then
                        Handle1 = apiChild.hWnd
                    End If
                    GroupCount += 1
                End If
 
            Next
        Next
 
        GroupCount = 0
        childList.Clear()
        childList = winEnum.GetChildWindows(Handle1)
 
        For Each apiChild As WindowsEnumTest.ApiWindow In childList
            If apiChild.ClassName = "TdfInfoGroup.UnicodeClass" Then
                If GroupCount = 2 Then
                    Handle2 = apiChild.hWnd
                End If
                GroupCount += 1
            End If
 
        Next
 
        Handle3 = FindWindowEx(Handle2, IntPtr.Zero, "TdfInfoPanel", Nothing)
 
        GroupCount = 0
        childList.Clear()
        childList = winEnum.GetChildWindows(Handle3)
        'MessageBox.Show(childList.Count.ToString, "childList.Count")
 
        For Each apiChild As WindowsEnumTest.ApiWindow In childList
            If apiChild.ClassName = "TdfInfoRow" Then
                If GroupCount = 4 Then
                    Handle4 = apiChild.hWnd
                ElseIf GroupCount = 5 Then
                    Handle5 = apiChild.hWnd
                End If
                GroupCount += 1
            End If
        Next
 
        Handle6 = FindWindowEx(Handle4, IntPtr.Zero, "TCompactEdit.UnicodeClass", Nothing)
        Handle7 = FindWindowEx(Handle5, IntPtr.Zero, "TCompactEdit.UnicodeClass", Nothing)
 
        Call SendMessageByString(Handle6, WM_SETTEXT, 0, "LastName")
        Call SendMessageByString(Handle7, WM_SETTEXT, 0, "FirstName")
 
    End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128: