{高三党分享}VB使用函数指针动态调用DLL

myjisgreat 2011-10-07 06:07:42

下载 http://download.csdn.net/download/myjisgreat/3662575

前些日子突发奇想。长假碰电脑的时间基本都耗在这个东西上了，最窘的是写好后才发现网上竟然有类似代码。。。。。不过我的代码比他短小，姑且发上来献献丑吧

动态调用DLL的前两步VB都可以做到，LoadLibrary & GetProcAddress得到函数指针。可是由于VB不支持函数指针的调用，貌似到这一步就走不下去了。
不过因为VB内部函数、DLL函数（包括API函数）都使用STDCALL调用方式，我们可以手动把参数送入堆栈，然后CALL这个函数，也就达到了效果（不过要用汇编完成）
这就直接交给VC的dll完成吧

long WINAPI __stdcall CallProc(long addr,long *Param,long Count)
{

long i;long par;

for (i=Count;i>=1;i--)
{ par=*Param;
__asm{
push par
}
Param--;

}

__asm{
call addr
mov i,eax
}

return i;

}

这个函数将参数一一PUSH进堆栈，然后CALL（网上代码用VB+汇编完成，代码量巨大，个人觉得不值）

于是VB调用就很简单了，VB中把参数填入Long类型的数组中，调用CallProc，addr代表函数指针， pPrarm代表刚刚填好的参数数组的最后一个参数的地址（用VarPtr取得），conut代表参数数量，比如
Dim hModule As Long, pProc As Long,p(1) as Long
hModule = LoadLibrary("user32")
pProc = GetProcAddress(hModule, "FlashWindow")
If pProc <> 0 Then
p(0)=Me.Hwnd 'FlashWindow第一个参数
p(1)=1000 'FlashWindow第2个参数
Form1.Print CallProc(pProc, VarPtr(p(1)),2)
Else
MsgBox "err"
End If
FreeLibrary hModule

为方便调用，我简单封装了一个VB函数
Public Function StdCall(lpAddr As Long, ParamArray Param()) As Long
Dim p() As Long
If UBound(Param) <> -1 Then
ReDim p(0 To UBound(Param))
Dim i As Integer
For i = 0 To UBound(Param)
p(i) = Param(i)
Next i
StdCall = CallProc(lpAddr, VarPtr(p(UBound(Param))), UBound(Param) + 1)
Else
StdCall = CallProc(lpAddr, 0, 0)
End If
End Function

比如上面的FlashWindow就可以StdCall pProc,Me.Hwnd,1000来用了

...全文