VB.NET实现的控制外部应用程序窗口或控件行为的函数源程序

悠悠 2022-08-19 08:25 8阅读 0赞

与大家分享几个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 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 MakeDWORD = (hiWord \* &H10000) Or (loWord And &HFFFF&) End Function  
这个函数按窗口名称或窗口类名，查找指定窗口的句柄  
    Public Function myFindWindow(ByVal wndName As String, ByVal className As String, ByVal delayTime As Integer) As Integer Dim i As Integer Dim hwnd As Integer hwnd = 0 For i = 0 To delayTime / 200 hwnd = FindWindow(className, wndName) If hwnd > 0 Then Exit For End If System.Threading.Thread.CurrentThread.Sleep(200) Application.DoEvents() Next Return hwnd End Function  
这个函数按窗口名称或窗口类名数组，并沿着父子关系，查找指定窗口的句柄  
    Public Function myFindChildWindow(ByVal parentHwnd As Integer, ByVal wndNames() As String, ByVal classNames() As String, ByVal ub As Integer, ByVal delayTime As Integer) As Integer Dim i, j As Integer Dim hwnd As Integer Dim cldhwnd As Integer cldhwnd = 0 hwnd = parentHwnd For j = 0 To ub - 1 For i = 0 To delayTime / 200 cldhwnd = FindWindowEx(hwnd, 0, classNames(j), wndNames(j)) If cldhwnd > 0 Then hwnd = cldhwnd i = delayTime + 1 Else Application.DoEvents() System.Threading.Thread.CurrentThread.Sleep(200) End If Next If cldhwnd = 0 Then Return 0 End If Next Return cldhwnd End Function  
这个函数按窗口名称或窗口类名数组，并沿着兄弟关系，查找指定窗口的句柄  
    Public Function myFindBrotherWindow(ByVal parentHwnd As Integer, ByVal index As Integer, ByVal wndName As String, ByVal className As String, ByVal delayTime As Integer) As Integer Dim i, j As Integer Dim brotherhwnd As Integer Dim hwnd As Integer hwnd = 0 brotherhwnd = 0 For j = 1 To index For i = 0 To delayTime / 200 hwnd = FindWindowEx(parentHwnd, brotherhwnd, className, wndName) If hwnd > 0 Then brotherhwnd = hwnd i = delayTime + 1 Else Application.DoEvents() System.Threading.Thread.CurrentThread.Sleep(200) End If Next Next Return hwnd End Function