获得VB类成员函数指针

大佬教程收集整理的这篇文章主要介绍了获得VB类成员函数指针，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

好久没有更新博客了，先放上一个获得类成员函数指针的代码，具体解释我会在《深入了解VB变量与指针》系列文章加以说明。可能以后不会再往VB上使劲了，但我会花一段时间总结经验与大家共享。

Option Explicit '* <a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a> * '* 函数名称：GetClassProcAddr '* 函数功能：获得类成员函数指针 '* 作者：lyserver '* 联系方式：<a href="http://code.js-code.com/tag/http/" target="_blank" class="keywords">http</a>://blog.csdn.net/lyserver '* <a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a> * Private Declare Sub Cop<a href="http://code.js-code.com/tag/ym/" target="_blank" class="keywords">ym</a>emory Lib "kernel32" Alias "RtlMoveMemory" (Des<a href="http://code.js-code.com/tag/Tin/" target="_blank" class="keywords">Tin</a>ation As Any,<a href="http://code.js-code.com/tag/sourc/" target="_blank" class="keywords">sourc</a>e As Any,ByVal Length As Long) Private Function GetClassProcAddr(obj As Ob<a href="http://code.js-code.com/tag/je/" target="_blank" class="keywords">je</a>ct,ByVal Index As Long,_ Optional ByVal ParamCount As Long = 4,Optional ByVal HasReturnValue As <a href="http://code.js-code.com/tag/Boole/" target="_blank" class="keywords">Boole</a>an) As Long Static lReturn As Long,pReturn As Long Static AsmCode(50) As Byte Dim i As Long,pThis As Long,pVtbl As Long,pFunc As Long pThis = ObjPtr(obj) Cop<a href="http://code.js-code.com/tag/ym/" target="_blank" class="keywords">ym</a>emory pVtbl,ByVal pThis,4 Cop<a href="http://code.js-code.com/tag/ym/" target="_blank" class="keywords">ym</a>emory pFunc,ByVal pVtbl + (6 + Inde<a href="http://code.js-code.com/tag/X/" target="_blank" class="keywords">X)</a> * 4,4 pReturn = VarPtr(lReturn) For i = 0 To UBound(AsmCod<a href="http://code.js-code.com/tag/E/" target="_blank" class="keywords">E)</a> '填充nop AsmCode(i) = &H90 Next AsmCode(0) = &H55 'push ebp AsmCode<a href="http://code.js-code.com/tag/1/" target="_blank" class="keywords">(1)</a> = &H8B: AsmCode(2) = &HEC 'mov ebp,esp AsmCode(3) = &H53 'push ebx AsmCode(4) = &H56 'push esi AsmCode(5) = &H57 'push edi If HasReturnValue Then AsmCode(6) = &HB8 'mov offset lReturn Cop<a href="http://code.js-code.com/tag/ym/" target="_blank" class="keywords">ym</a>emory AsmCode(7),pReturn,4 AsmCode(11) = &H50 'push eax End If For i = 0 To ParamCount - 1 'push dword ptr[ebp+xx] AsmCode(12 + i * 3) = &HFF AsmCode(13 + i * 3) = &H75 AsmCode(14 + i * 3) = (ParamCount - i) * 4 + 4 Next i = i * 3 + 12 AsmCode(i) = &HB9 'mov ecx,this Cop<a href="http://code.js-code.com/tag/ym/" target="_blank" class="keywords">ym</a>emory AsmCode(i + 1),pThis,4 AsmCode(i + 5) = &H51 'push ecx AsmCode(i + 6) = &HE8 'call 相对地址 Cop<a href="http://code.js-code.com/tag/ym/" target="_blank" class="keywords">ym</a>emory AsmCode(i + 7),pFunc - VarPtr(AsmCode(i + 6)) - 5,4 If HasReturnValue Then AsmCode(i + 11) = &HB8 'mov eax,offset lReturn Cop<a href="http://code.js-code.com/tag/ym/" target="_blank" class="keywords">ym</a>emory AsmCode(i + 12),4 AsmCode(i + 16) = &H8B 'mov eax,dword ptr[eax] AsmCode(i + 17) = &H0 End If AsmCode(i + 18) = &H5F 'pop edi AsmCode(i + 1<a href="http://code.js-code.com/tag/9/" target="_blank" class="keywords">9)</a> = &H5E 'pop esi AsmCode(i + 20) = &H5B 'pop ebx AsmCode(i + 21) = &H8B: AsmCode(i + 22) = &HE5 'mov esp,ebp AsmCode(i + 23) = &H5D 'pop ebp AsmCode(i + <a href="http://code.js-code.com/tag/24/" target="_blank" class="keywords">24)</a> = &HC3 'ret GetClassProcAddr = VarPtr(AsmCode(0)) End Function

参数说明：

obj：类实例变量，如果在类模块内部，则为me。

Index：函数位置，在类模块中，自动先排序所有Public类型的函数，然后再排序Private类型的函数。

ParamCount：函数的参数个数。

HasReturnValue：是否有返回值。

调用实例，一个通用的窗口HOOK类：

Option Explicit Private Declare Sub Cop<a href="http://code.js-code.com/tag/ym/" target="_blank" class="keywords">ym</a>emory Lib "kernel32" Alias "RtlMoveMemory" (Des<a href="http://code.js-code.com/tag/Tin/" target="_blank" class="keywords">Tin</a>ation As Any,ByVal Length As Long) Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long,ByVal nIndex As Long,ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long,ByVal nIndex As Long) As Long Private Declare Function IsWindow Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long,ByVal hWnd As Long,ByVal Msg As Long,ByVal wParam As Long,ByVal lParam As Long) As Long Private Const GWL_WNDPROC = (-4) Private Const WM_NCDESTROY = &H82 Public Event WindowProc(ByVal Msg As Long,ByVal lParam As Long,bCallNext As <a href="http://code.js-code.com/tag/Boole/" target="_blank" class="keywords">Boole</a>an,lReturn As Long) Dim m_hwnd As Long,m_NewProc As Long,m_OldProc As Long Private Sub Class_Initialize() m_NewProc = GetClassProcAddr(Me,5,4,Tru<a href="http://code.js-code.com/tag/E/" target="_blank" class="keywords">E)</a> End Sub Private Sub Class_Terminate() Call Unbind End Sub Public Function Bind(ByVal hWnd As Long) As <a href="http://code.js-code.com/tag/Boole/" target="_blank" class="keywords">Boole</a>an Call Unbind If IsWindow(hWnd) Then m_hwnd = hWnd m_OldProc = SetWindowLong(m_hwnd,GWL_WNDPROC,m_NewPro<a href="http://code.js-code.com/tag/C/" target="_blank" class="keywords">C)</a> Bind = CBool(m_OldPro<a href="http://code.js-code.com/tag/C/" target="_blank" class="keywords">C)</a> End Function Public Function Unbind() As <a href="http://code.js-code.com/tag/Boole/" target="_blank" class="keywords">Boole</a>an If m_OldProc <> 0 Then Unbind = CBool(SetWindowLong(m_hwnd,m_OldPro<a href="http://code.js-code.com/tag/C/" target="_blank" class="keywords">C)</a>) m_OldProc = 0 End Function Private Function WindowProcCall<a href="http://code.js-code.com/tag/BAC/" target="_blank" class="keywords">BAC</a>k(ByVal hWnd As Long,ByVal lParam As Long) As Long Dim bCallNext As <a href="http://code.js-code.com/tag/Boole/" target="_blank" class="keywords">Boole</a>an,lReturn As Long bCallNext = True RaiseEvent WindowProc(Msg,wParam,lParam,bCallNext,lReturn) If bCallNext Then WindowProcCall<a href="http://code.js-code.com/tag/BAC/" target="_blank" class="keywords">BAC</a>k = CallWindowProc(m_OldProc,hWnd,Msg,lParam) Else WindowProcCall<a href="http://code.js-code.com/tag/BAC/" target="_blank" class="keywords">BAC</a>k = lReturn End If If hWnd = m_hwnd And Msg = WM_NCDESTROY Then Call Unbind End Function Private Function GetClassProcAddr(obj As Ob<a href="http://code.js-code.com/tag/je/" target="_blank" class="keywords">je</a>ct,ebp AsmCode(i + 23) = &H5D 'pop ebp AsmCode(i + <a href="http://code.js-code.com/tag/24/" target="_blank" class="keywords">24)</a> = &HC3 'ret GetClassProcAddr = VarPtr(AsmCode(0)) End Function

大佬总结

以上是大佬教程为你收集整理的获得VB类成员函数指针全部内容，希望文章能够帮你解决获得VB类成员函数指针所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。