通过API 怎么获取指定窗口的句柄

[MeBoss]

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 EnableWindow Lib "user32" (ByVal hWnd As Long, ByVal fEnable As Long) As Long

Private Sub Command1_Click()
Dim WindowHandle As Long, ChildWindowHandle As Long

WindowHandle = FindWindow(vbNullString, "无标题 - 记事本")



If WindowHandle Then '如果获取句柄成功

ChildWindowHandle = FindWindowEx(WindowHandle, 0, "Edit", vbNullString)

If ChildWindowHandle Then '如果成功获取子句柄
EnableWindow ChildWindowHandle, False '禁用子窗口
Else
MsgBox "无法获取子窗口"
End If
End If
End Sub


我 每次获取得到的结果都是0，我也新建了一个《无标题 - 记事本.txt》并且放在项目的文件夹中并且打开了《无标题 - 记事本.txt》 但为什么每次还是WindowHandle=0呢

[孤独剑_LPZ]

不是新建无标题记事本,是直接打开一个附件的记事本
If ChildWindowHandle Then 改为
If ChildWindowHandle>0 Then

[贝隆]

应该是你的 无标题 - 记事本 写错了， 我试验了是OK的。注意 - 是英文输入法下的 - 而非 中文输入法下的 －

且格式应该是： 无标题 空格 横杠 空格 记事本

lngWindowHwnd = FindWindow(vbNullString, "无标题 - 记事本")

[贝隆]

且FindWindowEx我觉得应该这样用：
lngButton_0_Hwnd = FindWindowEx(lngWindowHwnd, &H0, vbNullString, "你要找的控件的标题")

[杀神者]

不是新建无标题记事本,是直接打开一个附件的记事本
我的能实现~~~！！
你新建的记事本文件，你看看窗体的标题变了，不是“无标题 - 记事本”，而是“无标题 - 记事本.txt - 记事本”了，标题变了怎么还能获取啊~~~

[MeBoss]

OK 3Q各位大鸟们

[ChiShiDouNan]

真的很简单啊