vb获取鼠标指向的窗口的句柄

不用按什么键，你就用个Timer一个Label一直显示鼠标当前所在窗口的句柄就行了呗。也不用FindWindow,更不用FindWindowEx。先声明POINTAPI，用GetCursorPos取得当前鼠标坐标，再用WindowFromPoint可直接取得当前窗口句柄，用Label显示即可。

Private Type POINTAPI

x as Long

y as Long

End Type

Private NowPOINT as POINTAPI

Private Sub Timer1_Timer()

Dim thWnd as Long

GetCursorPos NowPOINT

thWnd = WindowFromPoint( NowPOINTx, NowPOINTy )

Label1Caption=thWnd

End Sub

本本没装VB凭记忆手打的，可能会有错误，但大概就是这么个意思吧。

'这是一个获取文件信息的程序

form部分

Private Sub DisplayVerInfo()

' 这个子程序获取文件的版本信息

Dim rc As Long

Dim lDummy As Long

Dim sBuffer() As Byte

Dim lBufferLen As Long

Dim lVerPointer As Long

Dim udtVerBuffer As VS_FIXEDFILEINFO

Dim lVerbufferLen As Long

Dim aBuffer() As Byte

Dim lAdd As Long

Dim astr As String

Dim lTran As Long

' Get size

lBufferLen = GetFileVersionInfoSize(FullFileName, lDummy)

If lBufferLen < 1 Then

MsgBox "无法获取文件版本信息!"

Exit Sub

End If

' 获取文件信息并且保存到udtVerBuffer结构中

ReDim sBuffer(lBufferLen)

rc = GetFileVersionInfo(FullFileName, 0&, lBufferLen, sBuffer(0))

rc = VerQueryValue(sBuffer(0), "\", lVerPointer, lVerbufferLen)

MoveMemory udtVerBuffer, lVerPointer, Len(udtVerBuffer)

StrucVer = Format$(udtVerBufferdwStrucVersionh) & "" & _

Format$(udtVerBufferdwStrucVersionl)

' 获得文件版本

FileVer = Format$(udtVerBufferdwFileVersionMSh) & "" & _

Format$(udtVerBufferdwFileVersionMSl) & "" & _

Format$(udtVerBufferdwFileVersionLSh) & "" & _

Format$(udtVerBufferdwFileVersionLSl)

' 获取产品版本

ProdVer = Format$(udtVerBufferdwProductVersionMSh) & "" & _

Format$(udtVerBufferdwProductVersionMSl) & "" & _

Format$(udtVerBufferdwProductVersionLSh) & "" & _

Format$(udtVerBufferdwProductVersionLSl)

' 获取文件类型

FileFlags = ""

If udtVerBufferdwFileFlags And VS_FF_DEBUG _

Then FileFlags = "Debug "

If udtVerBufferdwFileFlags And VS_FF_PRERELEASE _

Then FileFlags = FileFlags & "PreRel "

If udtVerBufferdwFileFlags And VS_FF_PATCHED _

Then FileFlags = FileFlags & "Patched "

If udtVerBufferdwFileFlags And VS_FF_PRIVATEBUILD _

Then FileFlags = FileFlags & "Private "

If udtVerBufferdwFileFlags And VS_FF_INFOINFERRED _

Then FileFlags = FileFlags & "Info "

If udtVerBufferdwFileFlags And VS_FF_SPECIALBUILD _

Then FileFlags = FileFlags & "Special "

If udtVerBufferdwFileFlags And VFT2_UNKNOWN _

Then FileFlags = FileFlags "Unknown "

' 获取文件所适应的 *** 作系统

Select Case udtVerBufferdwFileOS

Case VOS_WINDOWS32

FileOS = "Win32位 *** 作系统"

Case VOS_WINDOWS16

FileOS = "Win16位 *** 作系统"

Case VOS_DOS

FileOS = "DOS *** 作系统"

Case VOS_DOS_WINDOWS16

FileOS = "DOS-Win16 *** 作系统"

Case VOS_DOS_WINDOWS32

FileOS = "DOS-Win32 *** 作系统"

Case VOS_OS216_PM16

FileOS = "OS/2-16 PM-16 *** 作系统"

Case VOS_OS232_PM32

FileOS = "OS/2-16 PM-32 *** 作系统"

Case VOS_NT_WINDOWS32

FileOS = "NT-Win32 *** 作系统"

Case Else

FileOS = "未知 *** 作系统"

End Select

Select Case udtVerBufferdwFileType

Case VFT_APP

FileType = "应用程序"

Case VFT_DLL

FileType = "动态连接库"

Case VFT_DRV

FileType = "驱动程序"

Select Case udtVerBufferdwFileSubtype

Case VFT2_DRV_PRINTER

FileSubType = "打印驱动程序"

Case VFT2_DRV_KEYBOARD

FileSubType = "键盘驱动程序"

Case VFT2_DRV_LANGUAGE

FileSubType = "语言模块"

Case VFT2_DRV_DISPLAY

FileSubType = "显示驱动程序"

Case VFT2_DRV_MOUSE

FileSubType = "鼠标驱动程序"

Case VFT2_DRV_NETWORK

FileSubType = "网络驱动程序"

Case VFT2_DRV_SYSTEM

FileSubType = "系统驱动程序"

Case VFT2_DRV_INSTALLABLE

FileSubType = "Installable"

Case VFT2_DRV_SOUND

FileSubType = "声音驱动程序"

Case VFT2_DRV_COMM

FileSubType = "串行驱动程序"

Case VFT2_UNKNOWN

FileSubType = "未知驱动程序"

End Select

Case VFT_FONT

FileType = "字体"

Select Case udtVerBufferdwFileSubtype

Case VFT_FONT_RASTER

FileSubType = "光栅字体"

Case VFT_FONT_VECTOR

FileSubType = "矢量字体"

Case VFT_FONT_TRUETYPE

FileSubType = "TrueType字体"

End Select

Case VFT_VXD

FileType = "VxD"

Case VFT_STATIC_LIB

FileType = "Lib"

Case Else

FileType = "未知"

End Select

Form1CurrentX = 4

Form1CurrentY = 4

Form1Print "文件全路径:"

Form1CurrentX = 4

Form1Print "文件版本:"

Form1CurrentX = 4

Form1Print "产品版本:"

Form1CurrentX = 4

Form1Print "文件标志:"

Form1CurrentX = 4

Form1Print " *** 作系统:"

Form1CurrentX = 4

Form1Print "文件类型:"

Form1CurrentX = 4

Form1Print "文件子类型:"

Form1CurrentX = 60

Form1CurrentY = 4

Form1Print FullFileName

Form1CurrentX = 60

Form1Print FileVer

Form1CurrentX = 60

Form1Print ProdVer

Form1CurrentX = 60

Form1Print FileFlags

Form1CurrentX = 60

Form1Print FileOS

Form1CurrentX = 60

Form1Print FileType

Form1CurrentX = 60

Form1Print FileSubType

'清除上一次保存的信息

FullFileName = ""

FileVer = ""

ProdVer = ""

FileFlags = ""

FileOS = ""

FileType = ""

FileSubType = ""

ReDim aBuffer(lBufferLen)

Dim ab As VS_NEWINFO

lVerPointer = 0

rc = GetFileVersionInfo(FullFileName, 0&, lBufferLen, sBuffer(0))

rc = VerQueryValue(sBuffer(0), "\VarFileInfo\Translation", lVerPointer, lVerbufferLen)

MoveMemory lTran, lVerPointer, 4&

astr = "0" Hex$(lTran)

astr = Right$(astr, 4) Left$(astr, 4)

rc = VerQueryValue(sBuffer(0), "\StringFileInfo\" astr "\FileDescription", lVerPointer, lVerbufferLen)

MoveMemory ab, lVerPointer, Len(ab)

Form1CurrentX = 4

Form1Print "文件描述";

Form1CurrentX = 60

Form1Print Left$(abastr, (InStr(abastr, Chr$(0)) - 1))

rc = VerQueryValue(sBuffer(0), "\StringFileInfo\" astr "\ProductName", lVerPointer, lVerbufferLen)

If rc Then

MoveMemory ab, lVerPointer, Len(ab)

Form1CurrentX = 4

Form1Print "产品名称";

Form1CurrentX = 60

Form1Print Left$(abastr, (InStr(abastr, Chr$(0)) - 1))

End If

rc = VerQueryValue(sBuffer(0), "\StringFileInfo\" astr "\OriginalFilename", lVerPointer, lVerbufferLen)

If rc Then

MoveMemory ab, lVerPointer, Len(ab)

Form1CurrentX = 4

Form1Print "文件原始名";

Form1CurrentX = 60

Form1Print Left$(abastr, (InStr(abastr, Chr$(0)) - 1))

End If

rc = VerQueryValue(sBuffer(0), "\StringFileInfo\" astr "\InternalName", lVerPointer, lVerbufferLen)

If rc Then

MoveMemory ab, lVerPointer, Len(ab)

Form1CurrentX = 4

Form1Print "文件内部名";

Form1CurrentX = 60

Form1Print Left$(abastr, (InStr(abastr, Chr$(0)) - 1))

End If

rc = VerQueryValue(sBuffer(0), "\StringFileInfo\" astr "\CompanyName", lVerPointer, lVerbufferLen)

If rc Then

MoveMemory ab, lVerPointer, Len(ab)

Form1CurrentX = 4

Form1Print "公司名称";

Form1CurrentX = 60

Form1Print Left$(abastr, (InStr(abastr, Chr$(0)) - 1))

End If

rc = VerQueryValue(sBuffer(0), "\StringFileInfo\" astr "\LegalCopyright", lVerPointer, lVerbufferLen)

If rc Then

MoveMemory ab, lVerPointer, Len(ab)

Form1CurrentX = 4

Form1Print "版权所有";

Form1CurrentX = 60

Form1Print Left$(abastr, (InStr(abastr, Chr$(0)) - 1))

End If

End Sub

Private Sub Command1_Click()

Form1Cls

CommonDialog1ShowOpen

FullFileName = CommonDialog1Filename

If FullFileName = "" Then

Exit Sub

End If

Call DisplayVerInfo

End Sub

模块部分

' 全局定义

Public Filename As String

Public Directory As String

Public FullFileName As String

Public StrucVer As String

Public FileVer As String

Public ProdVer As String

Public FileFlags As String

Public FileOS As String

Public FileType As String

Public FileSubType As String

Type VS_NEWINFO

astr As String 1024

End Type

Type VS_FIXEDFILEINFO

dwSignature As Long

dwStrucVersionl As Integer

dwStrucVersionh As Integer

dwFileVersionMSl As Integer

dwFileVersionMSh As Integer

dwFileVersionLSl As Integer

dwFileVersionLSh As Integer

dwProductVersionMSl As Integer

dwProductVersionMSh As Integer

dwProductVersionLSl As Integer

dwProductVersionLSh As Integer

dwFileFlagsMask As Long

dwFileFlags As Long

dwFileOS As Long

dwFileType As Long

dwFileSubtype As Long

dwFileDateMS As Long

dwFileDateLS As Long

End Type

Declare Function GetFileVersionInfo Lib "Versiondll" Alias _

"GetFileVersionInfoA" (ByVal lptstrFilename As String, ByVal _

dwhandle As Long, ByVal dwlen As Long, lpData As Any) As Long

Declare Function GetFileVersionInfoSize Lib "Versiondll" Alias _

"GetFileVersionInfoSizeA" (ByVal lptstrFilename As String, _

lpdwHandle As Long) As Long

Declare Function VerQueryValue Lib "Versiondll" Alias _

"VerQueryValueA" (pBlock As Any, ByVal lpSubBlock As String, _

lplpBuffer As Any, puLen As Long) As Long

Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" _

(dest As Any, ByVal Source As Long, ByVal length As Long)

Declare Function GetSystemDirectory Lib "kernel32" Alias _

"GetSystemDirectoryA" (ByVal Path As String, ByVal cbBytes As Long) As Long

Public Const VS_FFI_SIGNATURE = &HFEEF04BD

Public Const VS_FFI_STRUCVERSION = &H10000

Public Const VS_FFI_FILEFLAGSMASK = &H3F&

Public Const VS_FF_DEBUG = &H1

Public Const VS_FF_PRERELEASE = &H2

Public Const VS_FF_PATCHED = &H4

Public Const VS_FF_PRIVATEBUILD = &H8

Public Const VS_FF_INFOINFERRED = &H10

Public Const VS_FF_SPECIALBUILD = &H20

Public Const VOS_UNKNOWN = &H0

Public Const VOS_DOS = &H10000

Public Const VOS_OS216 = &H20000

Public Const VOS_OS232 = &H30000

Public Const VOS_NT = &H40000

Public Const VOS_BASE = &H0

Public Const VOS_WINDOWS16 = &H1

Public Const VOS_PM16 = &H2

Public Const VOS_PM32 = &H3

Public Const VOS_WINDOWS32 = &H4

Public Const VOS_DOS_WINDOWS16 = &H10001

Public Const VOS_DOS_WINDOWS32 = &H10004

Public Const VOS_OS216_PM16 = &H20002

Public Const VOS_OS232_PM32 = &H30003

Public Const VOS_NT_WINDOWS32 = &H40004

Public Const VFT_UNKNOWN = &H0

Public Const VFT_APP = &H1

Public Const VFT_DLL = &H2

Public Const VFT_DRV = &H3

Public Const VFT_FONT = &H4

Public Const VFT_VXD = &H5

Public Const VFT_STATIC_LIB = &H7

Public Const VFT2_UNKNOWN = &H0

Public Const VFT2_DRV_PRINTER = &H1

Public Const VFT2_DRV_KEYBOARD = &H2

Public Const VFT2_DRV_LANGUAGE = &H3

Public Const VFT2_DRV_DISPLAY = &H4

Public Const VFT2_DRV_MOUSE = &H5

Public Const VFT2_DRV_NETWORK = &H6

Public Const VFT2_DRV_SYSTEM = &H7

Public Const VFT2_DRV_INSTALLABLE = &H8

Public Const VFT2_DRV_SOUND = &H9

Public Const VFT2_DRV_COMM = &HA

一般是用钩子程序的。

比较复杂，只能说个大体思路，要花最少30分钟。分太少了。

API函数的声明就不说了。

先用findwindow找到窗体，用GetWindow和GetClassName获得其窗体内各对象的句柄，从而可以获得文本框的句柄。

最后用SendMessage函数想文本框发送文本。

tWnd = FindWindow(vbNullString, "窗口名")可以获得外部程序窗口的句柄twnd

bwnd = GetWindow(tWnd, GW_CHILD)可以获得该窗口子对象的集合句柄bwnd

Do Until bwnd = 0

GetClassName bwnd, sSave, 250

If InStr(1, UCase(sSave), "EDIT", vbTextCompare) <> 0 Then

editwnd = bwnd

Exit Do

End If

　先找到窗口的句柄，再来查找按钮的句柄，如果按钮有文本内容，那就好办，如果没有，那建议你利用SPY++先来察看一下按钮的类型，以此类型为查找参数多次调用FindWindowEx来查找，直到找到的的句柄和Spy++相同，那么这个按钮就找到了。

按钮类名同样，但是你去遍历的时候它的次序始终是固定的。通过id不可靠，有些有id但是有些id是0。

clswindow类，里面有个函数etElementHwndByClassName，可以得到指定的次序按钮。加入你要处理的按钮是在第二个次序，类名为Button，那么就用：GetElementHwndByClassName("Button",2)，即可，

具体代码：

Private Sub Command6_Click()

Dim w As New clsWindow

Dim i%

If wGetWindowHwndByTitleEx("自动化 *** 作框架") > 0 Then

i = i + 1

Do While wGetElementHwndByClassName("ThunderCommandButton", i) > 0'按次序遍历

MsgBox wGetElementHwndByClassName("ThunderCommandButton", i)'得到当前次序按钮的句柄

wSetElementTextByClassName "ThunderCommandButton", "次序" & i, i'设置按钮文本

i = i + 1

Loop

End If

End Sub

API:

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

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

以上就是关于vb获取鼠标指向的窗口的句柄全部的内容，包括:vb获取鼠标指向的窗口的句柄、VB中如何得到一个文件的句柄、VB获取CMD句柄的问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！