vb动态加载dll的一个类-实现vb动态加载dll并动态调用dll导出的函数的一个方便办法.docx

vb动态加载dll的一个类,实现vb动态加载dll并动态调用dll导出的函数的一个方便办法

自从会vb用调用动态库函数以来,我一直在想:如何动态的调用dll里的函数?网上有一个用CallWindowProc函数的方法,不过我还是喜欢自己有个

办法.今天工夫不负有心人,我终于把我心中一直想的办法给实现了,干脆就往自己的空间上贴吧.错误的地方,希望可以得到有这方面的师傅给以

指正,以求进步!对于系统api我没有尝试,如果调用约定相符,应该适用于对系统api的调用.

我自己用c写个dll,然后在vb里写了这个类.

以下代码只是我简单的实现,主要的是看实现的道理.

vc代码:

///

我把dll文件名命名为:dll

#includeWindows.h

#includestdlib.h

#includestring.h

#includestdafx.h

BOOLAPIENTRYDllMain(HANDLEhModule,

DWORD?ul_reason_for_call,

LPVOIDlpReserved

)

{

returnTRUE;

}

externCBOOL_declspec(dllexport)add(inta)

{

MessageBoxA(NULL,运行在dll里!,成功,MB_OK);

a=999;

return1;

}

///

vb代码:

类代码:

Private状态标志AsBoolean

Private模块句柄AsLong

Private本地函数地址备份(0To4)AsByte

Private被替换函数的地址AsLong

PublicFunction替换函数地址(模块名AsString,函数名AsString,本地函数地址AsLong)AsBoolean???????

If0=本地函数地址Then

替换函数地址=0

ExitFunction

EndIf???????

被替换函数的地址=替换函数地址

Dim函数地址AsLong

DimaAsLong

Dim跳转指令(0To4)AsByte??????

加载模块

模块句柄=LoadLibrary(模块名)

If0模块句柄Then

状态标志=1

Else:

替换函数地址=0

ExitFunction

EndIf

检索函数地址

函数地址=GetProcAddress(ByVal模块句柄,ByVal函数名)

If0函数地址Then

状态标志=1

Else

替换函数地址=0

ExitFunction

EndIf

计算跳转地址

a=函数地址-(本地函数地址+5)

构造跳转地址

跳转指令(0)=233

a=WriteProcessMemory(-1,ByValVarPtr(跳转指令(1)),ByValVarPtr(a),4,0)

If0=aThen

替换函数地址=0

ExitFunction

EndIf

先备份本地函数入口指令

a=WriteProcessMemory(-1,ByValVarPtr(本地函数地址备份(0)),ByVal本地函数地址,5,0)

If0=aThen

替换函数地址=0

ExitFunction

EndIf

写入跳转指令

a=WriteProcessMemory(-1,ByVal本地函数地址,ByValVarPtr(跳转指令(0)),5,0)

If0=aThen

替换函数地址=0

ExitFunction

Else:

状态标志=1

替换函数地址=1

EndIf

EndFunction

PublicFunction还原函数地址()AsBoolean

If0=状态标志Then

还原函数地址=0

ExitFunction

EndIf

DimaAsLong

a=WriteProcessMemory(-1,ByVal被替换函数的地址,ByValVarPtr(本地函数地址备份(0)),5,0)

If0=aThen

还原函数地址=0

ExitFunction

Else:

状态标志=0

还原函数地址=1

EndIf

FreeLibrary模块句柄

EndFunction

PublicFunction当前状态()AsBoolean

当前状态=状态标志

EndFunction

vb普通模块代码:

读写内存的api函数

PublicDeclareFunctionWriteProc