VB获取窗口句柄的详细教程

1、首先在电脑中打开VB软件，然后点击窗口。

2、然后找到窗体布局窗口，就可以在这里，直接拖曳鼠标，设置窗体的位置。

3、如果没有默认打开，回到 *** 作页面中，找到并点击如下图的按钮。

4、也可以找到stateUpPosition这个属性。

5、然后在打开点页面中，就可以根据自己的需要，设置预设的类型了。

方法有好多种

1如果窗口置于最顶层的话可以用FindWindow

窗口句柄=FindWindow(窗口类名,

vbNullString)

2如果窗口是子窗口，先得知他的标识ID，再用GetDlgItem

窗口句柄=GetDlgItem(父窗口句柄,

标识ID)

3还可以用GetWindow找与某源窗口有特定的关系

窗口句柄=GetWindow(父窗口句柄,GW_CHILD)

GetWindow第二个参数的介绍：

GW_CHILD

寻找源窗口的第一个子窗口

GW_HWNDFIRST

为一个源子窗口寻找第一个兄弟（同级）窗口，或寻找第一个顶级窗口

GW_HWNDLAST

为一个源子窗口寻找最后一个兄弟（同级）窗口，或寻找最后一个顶级窗口

GW_HWNDNEXT

为源窗口寻找下一个兄弟窗口

GW_HWNDPREV

为源窗口寻找前一个兄弟窗口

GW_OWNER

寻找窗口的所有者

您可以使用 GetWindow API 来列出窗口，其中包括子窗口。但是，调用 GetWindow 来执行此任务的应用程序存在陷入无限循环的风险或引用已销毁窗口的句柄的风险。使用 EnumWindows 枚举顶级窗口，使用 EnumChildWindows 枚举子窗口，或者使用 EnumThreadWindows 枚举与某个线程关联的所有非子窗口是首选方法，本文中将演示这一方法。

回到顶端

更多信息EnumWindows 将枚举所有顶级窗口，但不枚举子窗口。EnumChildWindows 函数既不会枚举由特定窗口拥有的顶级窗口，也不会枚举任何其他拥有的窗口。EnumThreadWindows 函数将枚举与某个线程关联的所有非子窗口。此示例使用上述全部三个函数来列出它找到的窗口的类和标题。请注意，尽管所有窗口都有一个类，但并是所有窗口也都有一个标题。

回到顶端

分步示例

在 Visual Basic 中启动一个新的项目。默认情况下创建 Form1。

添加两个 CommandButtons 和一个 TextBox。

将下面的代码复制到该窗体的模块中：

Option Explicit

Private Sub Command1_Click()

Dim lRet As Long, lParam As Long

Dim lhWnd As Long

lhWnd = Mehwnd ' Find the Form's Child Windows

' Comment the line above and uncomment the line below to

' enumerate Windows for the DeskTop rather than for the Form

'lhWnd = GetDesktopWindow() ' Find the Desktop's Child Windows

' enumerate the list

lRet = EnumChildWindows(lhWnd, AddressOf EnumChildProc, lParam)

End Sub

Private Sub Command2_Click()

Dim lRet As Long

Dim lParam As Long

'enumerate the list

lRet = EnumWindows(AddressOf EnumWinProc, lParam)

' How many Windows did we find

DebugPrint TopCount; " Total Top level Windows"

DebugPrint ChildCount; " Total Child Windows"

DebugPrint ThreadCount; " Total Thread Windows"

DebugPrint "For a grand total of "; TopCount + _

ChildCount + ThreadCount; " Windows!"

End Sub

添加包含以下代码的模块：

Option Explicit

Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, _

lpRect As RECT) As Long

Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, _

ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, _

ByVal nHeight As Long, ByVal bRepaint As Long) As Long

Declare Function GetDesktopWindow Lib "user32" () As Long

Declare Function EnumWindows Lib "user32" _

(ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent _

As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Declare Function EnumThreadWindows Lib "user32" (ByVal dwThreadId _

As Long, ByVal lpfn As Long, ByVal lParam As Long) As Long

Declare Function GetWindowThreadProcessId Lib "user32" _

(ByVal hwnd As Long, lpdwProcessId As Long) As Long

Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _

(ByVal hwnd As Long, ByVal lpClassName As String, _

ByVal nMaxCount As Long) As Long

Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _

(ByVal hwnd As Long, ByVal lpString As String, _

ByVal cch As Long) As Long

Public TopCount As Integer ' Number of Top level Windows

Public ChildCount As Integer ' Number of Child Windows

Public ThreadCount As Integer ' Number of Thread Windows

Function EnumWinProc(ByVal lhWnd As Long, ByVal lParam As Long) _

As Long

Dim RetVal As Long, ProcessID As Long, ThreadID As Long

Dim WinClassBuf As String 255, WinTitleBuf As String 255

Dim WinClass As String, WinTitle As String

RetVal = GetClassName(lhWnd, WinClassBuf, 255)

WinClass = StripNulls(WinClassBuf) ' remove extra Nulls & spaces

RetVal = GetWindowText(lhWnd, WinTitleBuf, 255)

WinTitle = StripNulls(WinTitleBuf)

TopCount = TopCount + 1

' see the Windows Class and Title for each top level Window

DebugPrint "Top level Class = "; WinClass; ", Title = "; WinTitle

' Usually either enumerate Child or Thread Windows, not both

' In this example, EnumThreadWindows may produce a very long list!

RetVal = EnumChildWindows(lhWnd, AddressOf EnumChildProc, lParam)

ThreadID = GetWindowThreadProcessId(lhWnd, ProcessID)

RetVal = EnumThreadWindows(ThreadID, AddressOf EnumThreadProc, _

lParam)

EnumWinProc = True

End Function

Function EnumChildProc(ByVal lhWnd As Long, ByVal lParam As Long) _

As Long

Dim RetVal As Long

Dim WinClassBuf As String 255, WinTitleBuf As String 255

Dim WinClass As String, WinTitle As String

Dim WinRect As RECT

Dim WinWidth As Long, WinHeight As Long

RetVal = GetClassName(lhWnd, WinClassBuf, 255)

WinClass = StripNulls(WinClassBuf) ' remove extra Nulls & spaces

RetVal = GetWindowText(lhWnd, WinTitleBuf, 255)

WinTitle = StripNulls(WinTitleBuf)

ChildCount = ChildCount + 1

' see the Windows Class and Title for each Child Window enumerated

DebugPrint " Child Class = "; WinClass; ", Title = "; WinTitle

' You can find any type of Window by searching for its WinClass

If WinClass = "ThunderTextBox" Then ' TextBox Window

RetVal = GetWindowRect(lhWnd, WinRect) ' get current size

WinWidth = WinRectRight - WinRectLeft ' keep current width

WinHeight = (WinRectBottom - WinRectTop) 2 ' double height

RetVal = MoveWindow(lhWnd, 0, 0, WinWidth, WinHeight, True)

EnumChildProc = False

Else

EnumChildProc = True

End If

End Function

Function EnumThreadProc(ByVal lhWnd As Long, ByVal lParam As Long) _

As Long

Dim RetVal As Long

Dim WinClassBuf As String 255, WinTitleBuf As String 255

Dim WinClass As String, WinTitle As String

RetVal = GetClassName(lhWnd, WinClassBuf, 255)

WinClass = StripNulls(WinClassBuf) ' remove extra Nulls & spaces

RetVal = GetWindowText(lhWnd, WinTitleBuf, 255)

WinTitle = StripNulls(WinTitleBuf)

ThreadCount = ThreadCount + 1

' see the Windows Class and Title for top level Window

DebugPrint "Thread Window Class = "; WinClass; ", Title = "; _

WinTitle

EnumThreadProc = True

End Function

Public Function StripNulls(OriginalStr As String) As String

' This removes the extra Nulls so String comparisons will work

If (InStr(OriginalStr, Chr(0)) > 0) Then

OriginalStr = Left(OriginalStr, InStr(OriginalStr, Chr(0)) - 1)

End If

StripNulls = OriginalStr

End Function

运行项目并单击 Command1。这将枚举出该窗体的子窗口直至找到 TextBox，然后将 TextBox 的高度扩大一倍并将其移动到位置 (0, 0)（该窗体的左上方。）

单击 Command2。这会立即在即时窗口中列出所有顶级窗口及其子窗口以及与其线程关联的任何非子窗口的类和标题（如果存在）。请注意，这可以是一个非常长的列表，可能需要一段时间才能列出所有内容。

从“运行”菜单选择“结束”或单击“结束”按钮以停止程序。根据注释更改 Sub Command1_Click 中的代码以传递来自 GetDesktopWindow 的句柄。运行项目并单击 Command1 以枚举 DeskTop 的所有子窗口。请注意，完成此过程需要花费一些时间。

你很厉害啊~今天才学VB就想玩API了

窗体代码如下 在TEXT输入进程PID

Private Sub Command1_Click()

List1Clear

Find_Window Val(Text1Text)

End Sub

Private Sub Form_Load()

Text1Text = ""

Command1Caption = "枚举窗口"

End Sub

模块代码如下

Option Explicit

Private Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Dim IfPid As Long

Private Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long

Dim Pid1 As Long

Dim wText As String 255

GetWindowThreadProcessId hwnd, Pid1

If IfPid = Pid1 Then

GetWindowText hwnd, wText, 100

Form1List1AddItem "句柄:" & hwnd & " 标题:" & wText

End If

EnumWindowsProc = True

End Function

Public Sub Find_Window(ByVal Pid As Long)

IfPid = Pid

EnumWindows AddressOf EnumWindowsProc, 0

End Sub

Private Declare Function EnumWindows Lib "user32dll" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

首先枚举所有的窗口。

然后

Private Declare Function EnumWindows Lib "user32dll" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Private Declare Function GetWindowThreadProcessId Lib "user32dll" (ByVal hwnd As Long, ByRef lpdwProcessId As Long) As Long

判断窗口的所属进程。

建立一个集合。

最后通过索引显示就OK了。

以上就是关于VB获取窗口句柄的详细教程全部的内容，包括:VB获取窗口句柄的详细教程、VB中如何获取未知标题的窗口句柄、vb 获取指定进程里所有窗口标题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！