VB如何动态调用外部函数的方法(2)

会计考友

′执行Assembly Code部分 　　RunDll32 = CallWindowProc(GetCodeStart(hProc, Params), 0, 1, 2, 3)
4 w1 H8 [$ S, D1 n　　FreeLibrary hModule ′释放空间
2 M6 _; _+ @5 G9 v　　End Function
　　Private Function GetCodeStart(ByVal lngProc As Long, ByVal arrParams As Variant) As Long
　　′---以下为Assembly部分--
　　′作用：将函数的参数压入堆栈
. K0 c7 {7 j2 G6 G& M　　Dim lngIndex As Long, lngCodeStart As Long
# S! C: }1 Y& ~7 L8 c! P: T/ J( f5 Q　　′程序起始位址必须是16的倍数
　　′VarPtr函数是用来取得变量的地址
　　lngCodeStart = (VarPtr(m_OpCode(0)) Or &HF) + 1
　　m_opIndex = lngCodeStart - VarPtr(m_OpCode(0)) ′程序开始的元素的位置
　　′前面部分以中断点添满
+ i& g; h0 ~$ s+ q: K8 ?+ S6 W# v　　For lngIndex = 0 To m_opIndex - 1
, m: ^3 H9 }+ B  o: h* e9 ^　　m_OpCode(lngIndex) = &HCC ′int 3
　　Next lngIndex
　　′--------以下开始放入所需的程序----------
　　′将参数push到堆栈
　　′由于是STDCall CALL 参数由最后一个开始放到堆栈
　　For lngIndex = UBound(arrParams) To 0 Step -1
; e+ m* U8 x$ [0 P　　AddByteToCode &H68 ′push的机器码为H68
　　AddLongToCode CLng(arrParams(lngIndex)) ′参数地址
　　Next lngIndex
　　′call hProc
. n. I- }  x  L5 o* x1 H4 G　　AddByteToCode &HE8 ′call的机器码为HE8
　　AddLongToCode lngProc - VarPtr(m_OpCode(m_opIndex)) - 4 ′函数地址 用call的定址
　　′-----------结束所需的程序--------------

会计考友

</p>　　′返回呼叫函數
, R0 g7 r# i( a- d7 D! m9 |  [! N　　AddByteToCode &HC2 ′ret 10h
3 W, ^. s9 y4 P1 n' g( X  I　　AddByteToCode &H10
) Z) Y4 l6 M- C　　AddByteToCode &H0
　　GetCodeStart = lngCodeStart
8 z% _% [$ S+ A2 E5 y0 D& T　　End Function
2 j3 R' R2 Z3 |7 e; e　　Private Sub AddLongToCode(lData As Long)
6 q, V' {  g( J, Z　　′将Long类型的参数写到m_OpCode中
　　CopyMemory m_OpCode(m_opIndex), lData, 4
　　m_opIndex = m_opIndex + 4
　　End Sub
3 u9 x4 Y, v; h- o' h　　Private Sub AddIntToCode(iData As Byte)
& B, e. n0 [  P- a( y; Q　　′将Integer类型的参数写道m_OpCode中
　　CopyMemory m_OpCode(m_opIndex), iData, 2
　　m_opIndex = m_opIndex + 2
　　End Sub
3 a# G! v, r/ L$ |　　Private Sub AddByteToCode(bData As Byte)
　　′将Byte类型的参数写道m_OpCode中
9 E4 G9 _0 l- C+ |1 D　　m_OpCode(m_opIndex) = bData
$ g! r& f. ^' q/ H. d　　m_opIndex = m_opIndex + 1
　　End Sub