学步园

与大家分享几个VB.NET实现的控制外部应用程序窗口或控件行为的函数源程序代码。
其中包括时间延迟的处理，窗口类或窗口名称的获得可以利用Visual Studio Tools中的Spy++来得到。
函数的设计主要是利用Windows API 的两个函数：
    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer<br /> Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Integer, ByVal hwnd2 As Integer, ByVal lpsz1 As String, ByVal lpsz2 As String) As Integer
下面是一个在C的API编程中经常要使用的宏
    Public Function MakeDWORD(ByVal loWord As Integer, ByVal hiWord As Integer) As Integer<br /> MakeDWORD = (hiWord * &H10000) Or (loWord And &HFFFF&)<br /> End Function
这个函数按窗口名称或窗口类名，查找指定窗口的句柄
    Public Function myFindWindow(ByVal wndName As String, ByVal className As String, ByVal delayTime As Integer) As Integer<br /> Dim i As Integer<br /> Dim hwnd As Integer<br /> hwnd = 0<br /> For i = 0 To delayTime / 200<br /> hwnd = FindWindow(className, wndName)<br /> If hwnd > 0 Then<br /> Exit For<br /> End If<br /> System.Threading.Thread.CurrentThread.Sleep(200)<br /> Application.DoEvents()<br /> Next<br /> Return hwnd<br /> End Function
这个函数按窗口名称或窗口类名数组，并沿着父子关系，查找指定窗口的句柄
    Public Function myFindChildWindow(ByVal parentHwnd As Integer, ByVal wndNames() As String, ByVal classNames() As String, ByVal ub As<br /> Integer, ByVal delayTime As Integer) As Integer<br /> Dim i, j As Integer<br /> Dim hwnd As Integer<br /> Dim cldhwnd As Integer<br /> cldhwnd = 0<br /> hwnd = parentHwnd<br /> For j = 0 To ub - 1<br /> For i = 0 To delayTime / 200<br /> cldhwnd = FindWindowEx(hwnd, 0, classNames(j), wndNames(j))<br /> If cldhwnd > 0 Then<br /> hwnd = cldhwnd<br /> i = delayTime + 1<br /> Else<br /> Application.DoEvents()<br /> System.Threading.Thread.CurrentThread.Sleep(200)<br /> End If<br /> Next<br /> If cldhwnd = 0 Then<br /> Return 0<br /> End If<br /> Next<br /> Return cldhwnd<br /> End Function
这个函数按窗口名称或窗口类名数组，并沿着兄弟关系，查找指定窗口的句柄
    Public Function myFindBrotherWindow(ByVal parentHwnd As Integer, ByVal index As Integer, ByVal wndName As String, ByVal className As<br /> String, ByVal delayTime As Integer) As Integer<br /> Dim i, j As Integer<br /> Dim brotherhwnd As Integer<br /> Dim hwnd As Integer<br /> hwnd = 0<br /> brotherhwnd = 0<br /> For j = 1 To index<br /> For i = 0 To delayTime / 200<br /> hwnd = FindWindowEx(parentHwnd, brotherhwnd, className, wndName)<br /> If hwnd > 0 Then<br /> brotherhwnd = hwnd<br /> i = delayTime + 1<br /> Else<br /> Application.DoEvents()<br /> System.Threading.Thread.CurrentThread.Sleep(200)<br /> End If<br /> Next<br /> Next<br /> Return hwnd<br /> End Function