VB.NET自动操作其他程序(3)--捕获窗口句柄、单击菜单、按钮、COMBOBOX、EditBox

4.1、捕获其他程序窗口句柄
要对其他程序进行操作，首先要捕获其他程序的窗口句柄。
‘查找标题栏包含“inWindowText  ”  的窗口，窗口标题内容不确定的可以使用，例如动态变化标题的窗口，如果标题固定，直接用FindWindowEx（）就可以了。
Public Function MyFindWindow(ByVal className As String, ByVal inWindowText As String) As Integer   '查找标题栏包含“inWindowText”的窗口 
        Dim hMyWindow As Integer 
        Dim sss As New String("", 256) 

        hMyWindow = FindWindowEx(0, 0, className, Nothing)    '以desktop window为父，按照Z order查找第一个子窗口 
        'hMyButton = FindWindowEx(hMyWindow, 0&, Nothing, Nothing)       '为遍历所有类型窗口，将第三个参数设为“Nothing” 
        MyFindWindow = 0 
        While hMyWindow 
            GetWindowText(hMyWindow, sss, 256)     '获取窗口标题
            If InStr(sss, inWindowText) > 0 Then          '进行比较 
                MyFindWindow = hMyWindow 
                Exit Function        ‘找到退出 
            End If 
            hMyWindow = FindWindowEx(0, hMyWindow, className, Nothing)    '以desktop window为父，按照Z order查找在hMyWindow后的下一个子窗口 
        End While 
    End Function 
4.2、单击其他程序的菜单
 '点击级菜单的第个子项（从0算起）   
 Public Function ClickMenu(ByVal hMyWindow As Integer,ByVal nSubMenu As Integer, ByVal nMenuItemID As Integer) As Integer