VB获取窗口下，鼠标光标位置所在的控件句柄

API:

GetForegroundWindow 可以获取到有焦点的顶层窗口。

获取有焦点的子窗口只能用GetFocus，但是如果当前顶层窗口属于其他线程，GetFocus将返回NULL。没有好的办法解决，除非AttachThreadInput或者用钩子（HOOK）。

代码我不写了，太长了，具体思路如下：

整体是用WINDOWS API

1、findwindow 找到指定标题的窗口

如果这个窗口标题你不知道，那么一个一个遍历吧，或者枚举所有进程（进程名字你总是知道的吧？）然后在遍历整个进程中所有的窗口。

通过以上的方法，可以定位到窗口

2、GetWindow 到这个窗口里找控件

使用 GW_CHILD 常数，这样找到的就是这个窗体的子窗体（控件）的句柄了。

但是，有时候，控件是多层嵌套的，比如：窗口里有一个frame，frame里又嵌入一个frame，然后里面是一个textbox。

这样是很常见的，那么唯一的方案就是用 getwindow递归查找GW_CHILD，如果GW_CHILD返回的是0，那么就说明没有子窗体，通过递归查找，肯定就能找到你要的控件的句柄

3、发送消息

找到以后，getwindowtext、sendmessage就可以用了，WM_GETTEXT可以获得文本框文字，但是，不一定所有控件都响应这个消息，比如QQ密码框，这些加密的控件，除非你写驱动，否则恐怕很难去在这些控件上拦截、发送消息

声明 ，Getwindowsa是可以自定义的：

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

按钮1的代码（command1）：

Private Sub Command1_Click()

Dim windows As Long ‘windows也是自定义的

windows = Getwindowsa(vbNullString, "QQ的窗口名。。不知道是什么，替换这个字符串") ‘赋值给windows

If windows = 0 Then ’这里是判断找到木有

MsgBox "对不起，没有找到窗口句柄"

Else

MsgBox "已找到窗口句柄，窗口句柄为：" & windows

End If

End Sub

OptionExplicitPrivateDeclareFunctionFindWindowLibuser32AliasFindWindowA(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLongPrivateDeclareFunctionGetWindowTextLibuser32AliasGetWindowTextA(ByValhwndAsLong,ByVallpStringAsString,ByValcchAsLong)AsLongPrivateDeclareFunctionGetWindowLibuser32(ByValhwndAsLong,ByValwCmdAsLong)AsLongPrivateDeclareFunctionGetDesktopWindowLibuser32()AsLongPrivateDeclareFunctionGetClassNameLibuser32AliasGetClassNameA(ByValhwndAsLong,ByVallpClassNameAsString,ByValnMaxCountAsLong)AsLongPrivateConstGW_HWNDFIRST=0PrivateConstGW_HWNDNEXT=2PrivateConstGW_CHILD=5PrivateSubCommand1_Click()CallList1_ClickEndSubPrivateSubCommand2_Click()DimhwndAsLongDimsAsString,tAsStringList1Clearhwnd=GetDesktopWindow()s=String(256,Chr(0))GetClassNamehwnd,s,255s=Replace(s,Chr(0),)t=String(256,Chr(0))GetWindowTexthwnd,t,255t=Replace(t,Chr(0),)List1AddItem桌面:&hwnd&类名:&s&标题:&t&vbCrLfhwnd=GetWindow(hwnd,GW_CHILDOrGW_HWNDFIRST)s=String(256,Chr(0))GetClassNamehwnd,s,255s=Replace(s,Chr(0),)t=String(256,Chr(0))GetWindowTexthwnd,t,255t=Replace(t,Chr(0),)List1AddItem窗口:&hwnd&类名:&s&标题:&t&vbCrLfWhilehwnd<0hwnd=GetWindow(hwnd,GW_HWNDNEXT)s=String(256,Chr(0))GetClassNamehwnd,s,255s=Replace(s,Chr(0),)t=String(256,Chr(0))GetWindowTexthwnd,t,255t=Replace(t,Chr(0),)List1AddItem窗口:&hwnd&类名:&s&标题:&t&vbCrLfWendEndSubPrivateSubForm_Load()Command1Caption=获取所有控件Command2Caption=遍历所有窗体EndSubPrivateSubEnumAllHandles(ByValhwndAsLong)DimhnAsLongDimfirsthdAsLongDimsAsString,tAsStringfirsthd=GetWindow(hwnd,GW_CHILD)firsthd=GetWindow(firsthd,GW_HWNDFIRST)hn=firsthdDoWhilehn<0s=String(256,Chr(0))GetClassNamehn,s,255s=Replace(s,Chr(0),)t=String(256,Chr(0))GetWindowTexthn,t,255t=Replace(t,Chr(0),)Text1Text=Text1Text&句柄:&hn&父句柄:&hwnd&类名:&s&标题:&t&vbCrLfTreeView1NodesAddk&hwnd,tvwChild,k&hn,句柄:&hn&类名:&s&标题:&tEnumAllHandleshnhn=GetWindow(hn,GW_HWNDNEXT)Ifhn=firsthdThenExitDoLoopEndSubPrivateSubList1_Click()IfList1ListIndex=-1ThenExitSubTreeView1NodesClearTreeView1NodesAdd,,k&Trim(Str(Val(Mid(List1Text,4)))),List1TextText1Text=EnumAllHandlesVal(Mid(List1Text,4))TreeView1Nodes(k&Trim(Str(Val(Mid(List1Text,4)))))Expanded=TrueEndSub'添加两个按钮一个文本框一个列表框和一个树形图

哥们我用C++做过这样的程序，VB也一样

，你可以在你要控制的程序的文本框中先输入指定的问题假如“ABC”,用EnumChildWindows可以遍历出该句柄下所有控件的句柄，再用GetWindowText取出每个控件

句柄的文本参数，发现为"ABC"就返回该控件句柄

句柄找到了，用SendMessage(Handle,WM_SETTEXT)可以设置你想做的任意值

Private Sub Command1_Click() Dim x, y, z As Long x = FindWindow(vbNullString, "form1") Label1Caption = x y = FindWindowEx(x, 0, "ThunderTextBox", "") Label2Caption = y End Sub 上述代码中label1显示窗体的句柄，label2显示窗体中的一个文本框的句柄

以上就是关于VB获取窗口下，鼠标光标位置所在的控件句柄全部的内容，包括:VB获取窗口下，鼠标光标位置所在的控件句柄、VB 如何得到窗体内控件的句柄、vb获取已知句柄窗体的控件的句柄,请老师用findwindowex和enumchildwindow举个例子,等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！