VB6多线程探秘

VB6稳定多线程，一直是争论很大的的。

比较稳定的多线程，一般使用

set MT=CreateObject（"VbMT.MT")

但其他单元线程之间，是无法访问的，只有在创建者中，才可使用该对象MT.

 

还有一个问题，如果设置单元线程停止，一般通过设置属性，比如MT.bStop=True，设停止参数，

然后再单元线程中通过检测bStop而退出的。

但问题来了，如果单元线程挂起，通过MT.bStop=True,会让当前线程死锁状态。程序不能执行下去的。

 

所以问题来了，不能通过设置对象的属性方法了。这个时候，必须通过地址方法设置。

 

所以，取得类模块的函数地址，变量地址，通过回调函数函数指针，直接执行函数，是不会死锁的。

 

下面给出求类模块函数地址的方法：

Private Function GetClassProcAddress(ByVal SinceCount As Long) As Long
    '***************************************************************************************************
    '   VB6 历史上最简单的获取类中指定函数地址的函数诞生了,can be get address of property to value ,too
    '***************************************************************************************************
    Dim i As Long, jmpAddress As Long
    CopyMemory i, ByVal ObjPtr(Me), 4                                ' get vtable
    CopyMemory i, ByVal i + (SinceCount - 1) * 4 + &H1C, 4           ' 查表
    CopyMemory jmpAddress, ByVal i + 1, 4                            ' 获取的函数地址实际还是一个表,是一个跳转表
    GetClassProcAddress = i + jmpAddress + 5                         ' 计算跳转相对偏移取实际地址
   
End Function

 

只求出类模块中函数地址是无法调用类模块函数的，因为类模块函数调用，使通过函数指针、类实例地址，函数参数三部分组成，

VB没有函数指针概念，VB函数在参数中不能传递函数指针参数，这个时候，可使用VC6写一个函数给VB6使用

VC DLL 函数如下：

 

typedef  int  ( __stdcall * FunType)(int lpBuff,int nSize );

typedef  int  ( __stdcall * MsgFunType)(int nHandle,int nMessage,int wParam,int lParam );

typedef  void  ( __stdcall * VbClassFunType)( int nObjPtr,int nHandle,int nMessage,int wParam,int lParam);  
 
int __stdcall  CallAnyFunc(int lpfn,int lpBuff,int nSize )
{
 FunType pFunc;
 pFunc=(FunType)lpfn;
 
 return  ( *pFunc)( lpBuff,nSize );

}

int __stdcall  CallMsgFunc(int lpfn,int nHandle,int nMessage,int wParam,int lParam )
{
 MsgFunType pFunc;
 pFunc=(MsgFunType)lpfn;
 
 return  ( *pFunc)( nHandle, nMessage, wParam, lParam );

}

int __stdcall  CallVbClassFunc(int lpfn,int nObjPtr,int nHandle,int nMessage,int wParam,int lParam )
{
 VbClassFunType pFunc;
 pFunc=(VbClassFunType)lpfn;
 
 ( *pFunc)( nObjPtr,nHandle, nMessage, wParam, lParam );
 return 0;

}