Question

在VB中如何使用FindWindow或FindWindowEx函数查找某窗体句柄

例如打开一个记事本,他的标题是名称加" - 记事本",用FindWindow或FindWindowEx函数该怎么查找他的句柄?或者只知道那个窗体标题中包含的几个字符,有没有办法查找到它的句柄...请大家帮忙!
对下面几个API并不是很熟悉!如方便的请完整给出代码...或参考资料
最后问题补充:答案无法满足我的条件(很多看不懂的)!对不起...请再详细点!

Answer 1

1.定义一个模块, 内容为:
Option Explicit

Public Declare Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wFlag As Long) As Long
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 FindWindowa Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function GetForegroundWindow Lib "user32" () As Long

2. 给窗口加一个按钮, 在按钮的click事件里写以下内容:
Option Explicit

Private Sub Command1_Click()

Dim hwnd As Long
hwnd = GetForegroundWindow ' FindWindowa("Notepad", "新建 文本文档.txt - 记事本")

Dim str1 As String, len1 As Long
str1 = Space(255) '定义接收字串.
GetWindowText hwnd, str1, 1024

Do While hwnd <> 0
hwnd = GetNextWindow(hwnd, 2) '只有2才表示找下一个窗口
len1 = GetWindowText(hwnd, str1, Len(str1))
If (InStr(1, str1, "记事", 1) > 0) Then
MsgBox "你要的窗口找到了, 它是:" + str1
Exit Sub '这一句看情况修改
End If
Loop
MsgBox "很遣憾, 没有你要找的窗口"
End Sub

3. 测试, 一定会通过..