vb 获取指定进程里所有窗口标题

您可以使用 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 的所有子窗口。请注意，完成此过程需要花费一些时间。

解题思路(API):

(1)通过枚举

句柄

把所有窗口都列出来，

EnumWindows

或者

FindWindow

都可以。

（枚举出来窗体的是所有的进程的，

任务栏

中不一定可视。）

(2)查找符合下面条件的

窗口句柄

a是窗口，

IsWindow(hWnd)

b窗口是可见

IsWindowVisible

(hWnd)

c有任务栏标题

GetWindowLong

(hWnd,

GWL_EXSTYLE)

和

WS_EX_TOOLWINDOW)!=WS_EX_TOOLWINDOW

d不存在父窗口

GetWindowLong(hWnd,

GWL_HWNDPARENT)==0

(3)通过该句柄，随你怎么 *** 作了。

需要api的支持，有人已经写出来了：

'获取任务栏窗体名称

Option Explicit

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

Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Public Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long

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

Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Public Const GW_OWNER = 4

Function lpfunc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean

Dim pstr As String, Ret As Long

If IsWindowVisible(hwnd) = False Then GoTo continu

If GetWindow(hwnd, GW_OWNER) <> 0 Then GoTo continu

Ret = GetWindowTextLength(hwnd)

pstr = Space(Ret)

If GetWindowText(hwnd, pstr, Ret + 1) = 0 Then GoTo continu

If pstr <> "" And pstr <> "Program Manager" Then Form1List1AddItem pstr

continu:

lpfunc = True

End Function

Private Sub Command1_Click()

List1Clear

EnumWindows AddressOf lpfunc, ByVal 0&

End Sub

'根据窗体标题获取窗体句柄

Private Sub Command2_Click()

Dim i As Integer

Dim hwndNext As Long

Dim hwnd() As Long

i = 0

hwndNext = FindWindowEx(0, 0, vbNullString, "窗体标题")

Do While hwndNext <> 0

ReDim Preserve hwnd(i) As Long

hwnd(i) = hwndNext

i = i + 1

hwndNext = FindWindowEx(0, hwnd(i - 1), vbNullString, "窗体标题")

Loop

If i <> 0 Then

For i = 0 To UBound(hwnd)

List1AddItem hwnd(i)

Next

Else

MsgBox "未找到相应标题名的窗口"

End If

End Sub

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

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

Dim HwndVal&, ChildHwnd&

Private Sub Command1_Click()

HwndVal = FindWindow(vbNullString, "窗体标题")

'Print "窗口句柄是:" & CStr(HwndVal) & Space(3) & "进程号是:" & CStr(ProcIDFromWnd(HwndVal))

ChildHwnd = FindWindowEx(HwndVal, 0, "Static", vbNullString)

'Text1 = "子句柄是:" & ChildHwnd

List1AddItem CStr(HwndVal) & vbTab & CStr(ProcIDFromWnd(HwndVal)) & vbTab & ChildHwnd

End Sub

Function GetPageTitle(ByVal strCode As String) As String

'这里假设 strCode 是网页源代码

Dim strTemp As String, i As Integer, j As Integer

i = InStr(1, LCase(strCode), "<title>") + 7

j = InStr(i, LCase(strCode), "</title>")

strTemp = Mid(strCode, i, j - l)

GetTitle = strTemp

End Function

需要api的支持，有人已经写出来了：

'获取任务栏窗体名称

Option Explicit

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

Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Public Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long

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

Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Public Const GW_OWNER = 4

Function lpfunc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean

Dim pstr As String, Ret As Long

If IsWindowVisible(hwnd) = False Then GoTo continu

If GetWindow(hwnd, GW_OWNER) <> 0 Then GoTo continu

Ret = GetWindowTextLength(hwnd)

pstr = Space(Ret)

If GetWindowText(hwnd, pstr, Ret + 1) = 0 Then GoTo continu

If pstr <> "" And pstr <> "Program Manager" Then Form1List1AddItem pstr

continu:

lpfunc = True

End Function

Private Sub Command1_Click()

List1Clear

EnumWindows AddressOf lpfunc, ByVal 0&

End Sub

'根据窗体标题获取窗体句柄

Private Sub Command2_Click()

Dim i As Integer

Dim hwndNext As Long

Dim hwnd() As Long

i = 0

hwndNext = FindWindowEx(0, 0, vbNullString, "窗体标题")

Do While hwndNext <> 0

ReDim Preserve hwnd(i) As Long

hwnd(i) = hwndNext

i = i + 1

hwndNext = FindWindowEx(0, hwnd(i - 1), vbNullString, "窗体标题")

Loop

If i <> 0 Then

For i = 0 To UBound(hwnd)

List1AddItem hwnd(i)

Next

Else

MsgBox "未找到相应标题名的窗口"

End If

End Sub

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

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

Dim HwndVal&, ChildHwnd&

Private Sub Command1_Click()

HwndVal = FindWindow(vbNullString, "窗体标题")

'Print "窗口句柄是:" & CStr(HwndVal) & Space(3) & "进程号是:" & CStr(ProcIDFromWnd(HwndVal))

ChildHwnd = FindWindowEx(HwndVal, 0, "Static", vbNullString)

'Text1 = "子句柄是:" & ChildHwnd

List1AddItem CStr(HwndVal) & vbTab & CStr(ProcIDFromWnd(HwndVal)) & vbTab & ChildHwnd

End Sub

以上就是关于vb 获取指定进程里所有窗口标题全部的内容，包括:vb 获取指定进程里所有窗口标题、怎么用"VB"获取任务栏窗口标题列表到"List1"、求助 请教VB高手，如何找出开始菜单任务栏中的所有窗体标题名等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！