当前位置:编程问答 > VB >

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

下载 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来用了 --------------------编程问答-------------------- 长假结束了,受不鸟啊,明天就考试 --------------------编程问答-------------------- 拖上一个DLL的话,这是很多人所不愿意的 --------------------编程问答-------------------- 我觉得还行啊 --------------------编程问答-------------------- 一定要嵌汇编进去嘛..
可以自己写个函数..函数里面随便写点垃圾代码
然后自己用操作PE文件的方式,在内存中找到这个自己编写的函数的跳转地址..把你找到的dll的入口地址填进去,按照调用自己函数的方式直接调用..

在调试器里么弄过成功了,实际还没操作过 --------------------编程问答-------------------- 看看,学习
补充:VB ,  基础类
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,