Un1正式发布在VB中使用OBJ文件的方法!
Un1 2000-07-04 10:29:00 环境:
要在VB中使用xx.obj的函数func1但又不想把它作成外部DLL.
’有关vc
1:先把xx.obj编译成dll,找出xx.obj需要的所有连接于外部DLL的函数,比如有:
CreateFileA,DeviceIoControl
2:用VC编写一模块调用func1包含func11函数和自己的外部函数地址定义:
long _imp__CreateFileA_28;
long _imp__DeviceIoControl_32;
long __stdcall func11(long p1, void *p)
{
_imp__CreateFileA_28 = *p;
_imp__DeviceIoControl_32 = *(p+1);
return func1(p1);
}
3:编译init.c形成init.obj文件
4:用vc将init.obj文件内的
__imp__CreateFileA_28改为__imp__CreateFileA@28
__imp__DeviceIoControl_32改为__imp__DeviceIoControl@32
5:使用vc98\bin下的lib.exe:
lib.exe /out:vbaexe6.lib \vb path\vbaexe6.lib xx.obj init.obj
6:备份vb98目录下的vbaexe6.lib文件。
7:拷贝vbaexe6.lib到vb目录下。
’有关vb
8:在你的vb程序中加入module1.bas模块,其包含函数定义:(例如)
public function func11(byval para as long, byval dllentry as long) as long
end function
9:在你的vb程序中加入空模块module2.bas
10:在你的程序中加入usercontrol1.ctl模块,加入以下代码:
Private Sub UserControl_Initialize()
MsgBox "Hello"
End Sub
11:加入模块module3.bas, 定义结构:
Public Type DLLEntrys
A__imp__CreateFileA_28 As Long
A__imp__DeviceIoControl_32 As Long
End Type
12:在程序中用loadlibrary和getprocaddress得到kernel32.dll中的CreateFileA,DeviceIoControl地址填入dllentry.
13: 这样调用func11:
dim de as dllentrys
de.A__imp__CreateFileA_28 = xxx
de.A__imp__DeviceIoControl_32 = yyy
func11 para1, varptr(de)
14:在你一定要装入的窗口中放入控件usercontrol1。如果没有就装入一个空form,启动后在unload掉。
15:存盘并编译你的vb程序,在link时编译过程会被usercontrol的msgbox暂停。
16:到程序目录去找出module1.obj删除。
17:拷贝module2.obj为module1.obj。
18:用vc修改你调用func1的模块,比如form1.obj, 把形入:
?func11@Module1@@AAGXXZ
的字符传改为:
_func11.(.代表字符'0x0')即修改其名称到xx.obj中的输出一致,存盘。
19:按下msgbox的确定按钮让编译继续。
20: 如果你没有遗漏任何函数此时将编译成功,否则查看link错误后重复2开始。
21: 运行程序,用softice把msgbox去掉。
22:大功告成!
祝你好运。