VB.NET窗体钩子具体实现方法介绍
创始人
2024-06-19 20:50:48
0

VB.NET作为一款功能比较强大的开发平台,我们可以通过这一编程语言实现许多功能需求。那么首先就先来从一个简单的实现范例来详细解读这款语言给我们带来的好处。编写VB.NET窗体钩子程序的几点启发:#t#

1.在vb.net中long 要该定义为Integer类型

2.在vb.net中Rect要改定义为Rectangle类型,并用byref来引用

3.如何使用委托,如下面这个例子

(1)定义委托函数

  1. Public Delegate Function HOOKPROC
    (ByVal nCode As Integer, ByVal 
    wParam As Integer, ByVal lParam 
    As Integer) As Integer 

(2)定义在API的函数原型中使用委托函数来作为一个变量类型

  1. Private Declare Function SetWindowLong 
    Lib "user32" Alias "SetWindowLongA" 
    (ByVal hwnd As Integer, ByVal nIndex 
    As Integer, ByVal dwNewLong As 
    HOOKPROCA) As Integer 

(3)实现具体的函数功能

  1. Public Function myPROC(ByVal nCode As 
    Integer, ByVal wParam As Integer, 
    ByVal lParam As Integer) As Integer  
  2. `这中间是具体的实现代码  
  3. `这中间是具体的实现代码  
  4. `这中间是具体的实现代码  
  5. `这中间是具体的实现代码  
  6. end function  
  7. ()`通过API函数来调用委托函数  
  8. SetWindowLong(wParam, GWL_WNDPROC, 
    AddressOf myPROC) 

4.启示API函数申明可以重载如下例:

  1. Private Declare Function SetWindowLong 
    Lib "user32" Alias "SetWindowLongA" 
    (ByVal hwnd As Integer, ByVal nIndex 
    As Integer, ByVal dwNewLong As 
    HOOKPROCA) As Integer  
  2. Public Declare Function SetWindowLong 
    Lib "user32" Alias "SetWindowLongA" 
    (ByVal hwnd As Integer, ByVal nIndex 
    As Integer, ByVal dwNewLong As Integer) 
    As Integer 

以上是编写程序时要注意的几点

相关内容

热门资讯

如何允许远程连接到MySQL数... [[277004]]【51CTO.com快译】默认情况下,MySQL服务器仅侦听来自localhos...
如何利用交换机和端口设置来管理... 在网络管理中,总是有些人让管理员头疼。下面我们就将介绍一下一个网管员利用交换机以及端口设置等来进行D...
施耐德电气数据中心整体解决方案... 近日,全球能效管理专家施耐德电气正式启动大型体验活动“能效中国行——2012卡车巡展”,作为该活动的...
Windows恶意软件20年“... 在Windows的早期年代,病毒游走于系统之间,偶尔删除文件(但被删除的文件几乎都是可恢复的),并弹...
20个非常棒的扁平设计免费资源 Apple设备的平面图标PSD免费平板UI 平板UI套件24平图标Freen平板UI套件PSD径向平...
德国电信门户网站可实时显示全球... 德国电信周三推出一个门户网站,直观地实时提供其安装在全球各地的传感器网络检测到的网络攻击状况。该网站...
着眼MAC地址,解救无法享受D... 在安装了DHCP服务器的局域网环境中,每一台工作站在上网之前,都要先从DHCP服务器那里享受到地址动...
为啥国人偏爱 Mybatis,... 关于 SQL 和 ORM 的争论,永远都不会终止,我也一直在思考这个问题。昨天又跟群里的小伙伴进行...