VB.NET如何声明API

这篇文章主要介绍了VB.NET如何声明API，具有一定借鉴价值，感兴趣的朋友可以参考下，希望大家阅读完这篇文章之后大有收获，下面让小编带着大家一起了解一下。

我们都知道在VB6里面可以用API函数来进行子类化，以处理自身的窗体过程；如果跨进程，这就麻烦了，由于我们的函数在我们的进程中（废话），而目标进程的窗口的消息处理函数在目标进程（还是废话），所以只能想办法把我们的代码放到对方进程中去执行——并且要告知我们的进程得到了什么消息。恐怕写汇编就有点吓人了，于是大家都写DLL，其原理就是把回调函数放到一个DLL里面注入到对方进程，DLL去修改目标窗口的默认处理函数——把消息发送给我们。

当然也有“另类”一点的：http://www.it-berater.org/ThueDownloads/index.shtml上面有一个 DLL包，其中含有一个dssubcls.dll，用它，可以轻松的完成我们的工作：就像调用一个API一样简单，而且在我们的程序中使用回调函数！呵呵，省去了自己写DLL的麻烦之后，这些好处足以吸引各位观众了吧？

好了，VB6的代码大家可以在下载的压缩包中找到，作者提供了一个以记事本为基础的实例（在\dssubcls目录下），非常详细无需详细叙述了。关键是在VB.NET里面如何使用它——如何声明API，如何进行回调，看用来子类化的API的VB6声明先：

Declare Function SubClass& Lib "dssubcls" (ByVal HwndSubclass&, _  Optional ByVal Address& = 0, _  Optional ByVal OldStyle& = 0, _  Optional ByVal NewStyle& = 0, _  Optional ByVal Ext& = 0, _  Optional ByVal SubClass& = 0)

转化成VB.NET声明API类似下面的样子（习惯使然，我把&展开成了As Integer）：

Declare Function SubClass Lib "dssubcls" (ByVal HwndSubclass As Integer,   Optional ByVal Address As Integer = 0, Optional ByVal OldStyle As Integer = 0,   Optional ByVal NewStyle As Integer = 0, Optional ByVal Ext As Integer = 0,   Optional ByVal SubClass As Integer = 0) As Integer

这不是很好嘛？问题来了，这样的声明在VB6里面可以使用Addressof function来传入第二个参数（参见你下载的源码），但是在VB.NET里面直接Addressof就不成了——我们需要委托一个回调：

Private Delegate Function HookCallBack(ByVal wMsg As Integer, 
ByVal wParam As Integer, ByVal lParam As Integer) As Integer 

这个委托，对应的是以下函数：

Private Function mCallback(ByVal wMsg As Integer, 
ByVal wParam As Integer, ByVal lParam As Integer) As Integer  
‘在这里处理得到的消息  
End Function 

使用时，需要注意先实例化这个委托：

Private fix_COCD = New HookCallBack(AddressOf mCallback)

此时，fix_COCD就是我们的mCallback函数引用了，用更直观的观点来看，fix_COCD就是一个指向mCallback的指针，相当于 VB6里面的Addressof function得到的结果，看似问题解决了，于是我们写了以下代码来搞对方的进程窗体消息：

SubClass(Handle, fix_COCD, 0, 0, 0, 1) '修改处理函数

问题真是接踵而至！IDE提示变量类型不符！！事实确实如此，我们把一个HookCallBack类型当做Integer来传递，无法通过检查，那么强行转换吧？当然，你可以去试试。这时，我所做的是，修改这个API声明：

Private Declare Function SubClass Lib "dssubcls" (ByVal HwndSubclass As Integer, 
Optional ByVal Address As HookCallBack = Nothing, Optional ByVal OldStyle As Integer = 0, 
Optional ByVal NewStyle As Integer = 0, Optional ByVal Ext As Integer = 0, 
Optional ByVal SubClass As Integer = 0) As Integet 

感谢你能够认真阅读完这篇文章，希望小编分享的“VB.NET如何声明API”这篇文章对大家有帮助，同时也希望大家多多支持亿速云，关注亿速云行业资讯频道，更多相关知识等着你来学习!