Un1正式发布在VB中使用OBJ文件的方法！

[Un1]

环境：
要在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：大功告成！

祝你好运。