VB DLL（主要指msvbvm50.dll、msvbvm60.dll）中导出的函数没有正式文档描述，既不知道传递给函数的参数是什么，也不知道函数返回什么值，这对从汇编层次上理解VB程序的算法和流程造成了一定的困难。
VB程序使用的关键数据结构是VARIANT（MSDN中有描述），这是用作OLE Automation的一个通用结构，实际上是一个联合，其中可以存放各种标准的数据类型如LONG、BYTE、FLOAT、BSTR等。该结构中有一个标志用来指明在某一时刻该结构中具体存放的是哪种数据类型。不同的数据类型之间可以根据需要进行转换。
该结构的定义如下（#include <oaidl.h>）。其中vt就是用来表明实际存放的数据类型的标志。从该结构的偏移0x08处开始就是实际的数据。一般传给VB函数的参数都是某个VARIANT结构的指针，假定该指针的值放在寄存器eax中，则用"dd
eax+8"（对于值类型）或"dd *(eax+8)"（对于指针类型）就可以看见传给该函数的实际参数值。知道这一点之后再去分析VB DLL中的函数相对来说就比较简单一些。
/* VARIANT STRUCTURE
*
* VARTYPE vt;
//WORD
* WORD wReserved1;
* WORD wReserved2;
* WORD wReserved3;
* union {
* LONG
VT_I4
* BYTE
VT_UI1
* SHORT VT_I2
* FLOAT VT_R4
*
DOUBLE VT_R8
* VARIANT_BOOL
VT_BOOL
* SCODE VT_ERROR
* CY VT_CY
*
DATE VT_DATE
* BSTR
VT_BSTR
* IUnknown *
VT_UNKNOWN
* IDispatch * VT_DISPATCH
*
SAFEARRAY * VT_ARRAY
* BYTE *
VT_BYREF|VT_UI1
* SHORT *
VT_BYREF|VT_I2
* LONG * VT_BYREF|VT_I4
* FLOAT * VT_BYREF|VT_R4
*
DOUBLE * VT_BYREF|VT_R8
* VARIANT_BOOL
* VT_BYREF|VT_BOOL
* SCODE * VT_BYREF|VT_ERROR
* CY * VT_BYREF|VT_CY
* DATE * VT_BYREF|VT_DATE
*
BSTR * VT_BYREF|VT_BSTR
*
IUnknown ** VT_BYREF|VT_UNKNOWN
* IDispatch **
VT_BYREF|VT_DISPATCH
* SAFEARRAY ** VT_BYREF|VT_ARRAY
* VARIANT * VT_BYREF|VT_VARIANT
*
PVOID VT_BYREF (Generic ByRef)
*
CHAR VT_I1
* USHORT
VT_UI2
* ULONG
VT_UI4
* INT
VT_INT
* UINT VT_UINT
* DECIMAL * VT_BYREF|VT_DECIMAL
*
CHAR * VT_BYREF|VT_I1
* USHORT
* VT_BYREF|VT_UI2
* ULONG *
VT_BYREF|VT_UI4
* INT *
VT_BYREF|VT_INT
* UINT * VT_BYREF|VT_UINT
* }
*/
标准数据类型VARTYPE的定义（#include <wtypes.h>）：
typedef unsigned short VARTYPE;
/*
* VARENUM usage key,
*
* * [V] - may appear in a VARIANT
* * [T] - may appear in a TYPEDESC
* * [P] - may appear in an OLE property set
* * [S] - may appear in
a Safe Array
*
*
* VT_EMPTY
[V] [P] nothing
* VT_NULL
[V] [P] SQL style Null
* VT_I2
[V][T][P][S] 2 byte signed int
* VT_I4 [V][T][P][S]
4 byte signed int
* VT_R4
[V][T][P][S] 4 byte real
* VT_R8
[V][T][P][S] 8 byte real
* VT_CY
[V][T][P][S] currency
* VT_DATE
[V][T][P][S] date
* VT_BSTR
[V][T][P][S] OLE Automation string
* VT_DISPATCH [V][T][P][S] IDispatch *
* VT_ERROR [V][T][P][S]
SCODE
* VT_BOOL [V][T][P][S]
True=-1, False=0
* VT_VARIANT [V][T][P][S]
VARIANT *
* VT_UNKNOWN [V][T]
[S] IUnknown *
* VT_DECIMAL
[V][T] [S] 16 byte fixed point
* VT_RECORD
[V] [P][S] user defined type
* VT_I1
[V][T][P][s] signed char
* VT_UI1 [V][T][P][S]
unsigned char
* VT_UI2
[V][T][P][S] unsigned short
* VT_UI4
[V][T][P][S] unsigned short
* VT_I8
[T][P] signed
64-bit int
* VT_UI8
[T][P] unsigned 64-bit int
* VT_INT
[V][T][P][S] signed machine int
* VT_UINT [V][T] [S]
unsigned machine int
* VT_VOID
[T] C style void
* VT_HRESULT
[T] Standard return
type
* VT_PTR
[T] pointer type
* VT_SAFEARRAY
[T] (use VT_ARRAY in VARIANT)
* VT_CARRAY [T]
C style array
* VT_USERDEFINED
[T] user defined type
* VT_LPSTR
[T][P] null terminated
string
* VT_LPWSTR
[T][P] wide null terminated string
* VT_FILETIME
[P] FILETIME
*
VT_BLOB [P]
Length prefixed bytes
* VT_STREAM
[P] Name of the stream follows
*
VT_STORAGE [P]
Name of the storage follows
* VT_STREAMED_OBJECT
[P] Stream contains an object
* VT_STORED_OBJECT
[P] Storage contains an object
*
VT_BLOB_OBJECT [P] Blob
contains an object
* VT_CF
[P] Clipboard format
* VT_CLSID
[P] A Class
ID
* VT_VECTOR
[P] simple counted array
* VT_ARRAY
[V] SAFEARRAY*
*
VT_BYREF [V]
void* for local use
* VT_BSTR_BLOB
Reserved for system use
*/
enum VARENUM
{ VT_EMPTY
= 0,
VT_NULL = 1,
VT_I2 = 2,
VT_I4 =
3,
VT_R4 = 4,
VT_R8
= 5,
VT_CY = 6,
VT_DATE = 7,
VT_BSTR
= 8,
VT_DISPATCH = 9,
VT_ERROR = 10,
VT_BOOL
= 11,
VT_VARIANT = 12,
VT_UNKNOWN = 13,
VT_DECIMAL
= 14,
VT_I1 = 16,
VT_UI1 = 17,
VT_UI2
= 18,
VT_UI4 = 19,
VT_I8 = 20,
VT_UI8
= 21,
VT_INT = 22,
VT_UINT = 23,
VT_VOID
= 24,
VT_HRESULT = 25,
VT_PTR = 26,
VT_SAFEARRAY
= 27,
VT_CARRAY = 28,
VT_USERDEFINED = 29,
VT_LPSTR
= 30,
VT_LPWSTR = 31,
VT_RECORD = 36,
VT_FILETIME
= 64,
VT_BLOB = 65,
VT_STREAM = 66,
VT_STORAGE
= 67,
VT_STREAMED_OBJECT =
68,
VT_STORED_OBJECT = 69,
VT_BLOB_OBJECT = 70,
VT_CF
= 71,
VT_CLSID = 72,
VT_BSTR_BLOB = 0xfff,
VT_VECTOR
= 0x1000,
VT_ARRAY = 0x2000,
VT_BYREF = 0x4000,
VT_RESERVED
= 0x8000,
VT_ILLEGAL = 0xffff,
VT_ILLEGALMASKED = 0xfff,
VT_TYPEMASK = 0xfff
};
VB DLL还调用了oleauto32.dll中的部分函数。oleauto32.dll是个通用的proxy/stub
DLL，其每个函数的原型在<oleauto.h>中定义，并在MSDN中有详细描述。这也有助于理解VB DLL中的函数的作用。
举例：
LEA EAX, [EBP-58]
PUSH EAX
CALL [MSVBVM60!__vbaI4Var]
执行call之前敲dd eax+8，得到的值为3；
执行完call之后，eax = 3
从而可知__vbaI4Var的作用是将一个VARIANT转换为I4（即一个长整数）。
- 标 题：解读 (6千字)
- 作 者：blowfish
- 时 间：2001-9-20 15:34:33
- 链 接：http://bbs.pediy.com