VB.NET 通过移动鼠标获取窗体句柄

weixin_43818990

于 2019-05-29 17:43:20 发布

阅读量1.9k

点赞数 1

分类专栏： VB.net 文章标签： VB.NET 通过移动鼠标获取窗体句柄

本文链接：https://blog.csdn.net/weixin_43818990/article/details/90675456

版权

@[TOC]VB.NET 通过移动鼠标获取窗体句柄

为了编程方便使用的IDE是 SharpDevelop。简单编写一个获取窗体句柄的程序，发现一些问题，特此记录此文。不足之处请指正。代码如下：

’ 由SharpDevelop创建。
’ 用户： Administrator
’ 日期: 2019-05-28
’ 时间: 19:28
’
’ 要改变这种模板请点击工具|选项|代码编写|编辑标准头文件
’
Public Partial Class MainForm
Public Structure POINTAPI
Dim X As Integer
Dim Y As Integer
End Structure
'获取鼠标指针的当前位置
Private Declare Function GetCursorPos Lib "user32"Alias “GetCursorPos” (lpPoint As POINTAPI) As Integer
'返回包含了指定点的窗口的句柄。忽略屏蔽、隐藏以及透明窗口
Private Declare Function WindowFromPoint Lib “user32” Alias “WindowFromPoint”(ByVal xPoint As Integer, ByVal yPoint As Integer) As Integer
'为指定的窗口取得类名
Private Declare Function GetClassName Lib “user32” Alias “GetClassNameA” (ByVal hwnd As Integer, ByVal lpClassName As String, ByVal nMaxCount As