偷偷摘套内射激情视频,久久精品99国产国产精,中文字幕无线乱码人妻,中文在线中文a,性爽19p

VB.NET窗體鉤子具體實現方法介紹

開發(fā) 后端
最近編寫了一個VB.NET窗體鉤子的程序。從這一程序代碼的編寫過程中,我們可以體會到VB.NET語言中不一樣的地方。

VB.NET作為一款功能比較強大的開發(fā)平臺,我們可以通過這一編程語言實現許多功能需求。那么首先就先來從一個簡單的實現范例來詳細解讀這款語言給我們帶來的好處。編寫VB.NET窗體鉤子程序的幾點啟發(fā):#t#

1.在vb.net中l(wèi)ong 要該定義為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 

以上是編寫程序時要注意的幾點

責任編輯:曹凱 來源: 博客園
相關推薦

2010-01-21 17:48:25

VB.NET Sing

2010-01-15 18:12:28

VB.NET超鏈接

2010-01-15 19:17:23

2009-11-10 15:07:11

VB.NET窗體

2010-01-15 10:56:50

VB.NET繼承實現多

2010-01-22 10:41:33

VB.NET聲明結構

2009-11-10 12:42:47

VB.NET Prin

2010-01-07 15:25:11

VB.NET數組

2010-01-15 15:26:46

VB.NET自定義類型

2010-01-12 10:40:58

VB.NET數據庫壓縮

2010-01-21 13:34:56

VB.NET刪除文件夾

2010-01-11 15:12:30

VB.NET特殊窗體

2009-10-09 16:54:03

VB.NET窗體

2009-10-14 15:20:21

VB.NET窗體指針

2009-10-14 15:34:29

VB.NET窗體編程模

2010-01-08 13:35:35

VB.NET寫Log方

2009-10-16 09:35:24

VB.NET制作透明窗

2009-10-14 13:56:05

VB.NET數據窗體

2010-01-13 09:31:39

VB.NET窗體打印

2010-01-18 09:55:30

VB.NET刪除空白行
點贊
收藏

51CTO技術棧公眾號