2012年计算机等级考试二级VB动态调用外部函数的方法(2)

会计考友

′执行Assembly Code部分 　　RunDll32 = CallWindowProc(GetCodeStart(hProc, Params), 0, 1, 2, 3)
( U. ]" k# H  d0 R+ }9 e　　FreeLibrary hModule ′释放空间
　　End Function
　　Private Function GetCodeStart(ByVal lngProc As Long, ByVal arrParams As Variant) As Long
　　′---以下为Assembly部分--
7 S9 d9 T" ^/ E+ T　　′作用：将函数的参数压入堆栈
　　Dim lngIndex As Long, lngCodeStart As Long
, j. n/ m& Z" O. ~　　′程序起始位址必须是16的倍数
  h3 A9 l( |7 B" l　　′VarPtr函数是用来取得变量的地址
' o/ L5 M, r" d) l' ]9 `! o* c　　lngCodeStart = (VarPtr(m_OpCode(0)) Or &HF) + 1
　　m_opIndex = lngCodeStart - VarPtr(m_OpCode(0)) ′程序开始的元素的位置
) G' h, m  T* r) L. g4 ?　　′前面部分以中断点添满
　　For lngIndex = 0 To m_opIndex - 1
　　m_OpCode(lngIndex) = &HCC ′int 3
0 Q* {; _4 G$ i/ N　　Next lngIndex
　　′--------以下开始放入所需的程序----------
　　′将参数push到堆栈
2 n* G5 d# q) w　　′由于是STDCall CALL 参数由最后一个开始放到堆栈
2 K! ?1 C) x- L& c+ `0 c　　For lngIndex = UBound(arrParams) To 0 Step -1
. q. {% `, V" d9 r4 t  ]
　　AddByteToCode &H68 ′push的机器码为H68

会计考友

</p>　　AddLongToCode CLng(arrParams(lngIndex)) ′参数地址
　　Next lngIndex
2 R/ R0 X: R1 g3 u- E　　′call hProc
　　AddByteToCode &HE8 ′call的机器码为HE8
' y" I; F* E/ w  ?　　AddLongToCode lngProc - VarPtr(m_OpCode(m_opIndex)) - 4 ′函数地址 用call的定址
　　′-----------结束所需的程序--------------
　　′返回呼叫函數
$ C# J" L. N7 |8 O5 H# v　　AddByteToCode &HC2 ′ret 10h
3 A; l6 L" B$ o. k& Z. V: h: f1 q　　AddByteToCode &H10
7 R+ v/ }! [5 b( D　　AddByteToCode &H0
& \3 U: \8 K8 m9 O( b8 X( T: C& Y　　GetCodeStart = lngCodeStart
" H# |; V  ^, T- G3 [5 l7 w; J0 |5 V　　End Function
　　Private Sub AddLongToCode(lData As Long)
　　′将Long类型的参数写到m_OpCode中
. y% C  G5 f1 P% x1 x) ^　　CopyMemory m_OpCode(m_opIndex), lData, 4
4 G+ @( C# S# o& {3 B　　m_opIndex = m_opIndex + 4
　　End Sub
　　Private Sub AddIntToCode(iData As Byte)
　　′将Integer类型的参数写道m_OpCode中
" m5 P$ d7 d$ a' w, q　　CopyMemory m_OpCode(m_opIndex), iData, 2
$ K0 D4 m& |5 X. H9 ]0 ^　　m_opIndex = m_opIndex + 2
　　End Sub
4 G5 e. e; l( S- E! P8 L/ a. P　　Private Sub AddByteToCode(bData As Byte)
" @& H9 H* e+ N9 C　　′将Byte类型的参数写道m_OpCode中
; K% G3 Q# @+ ^0 X  ]　　m_OpCode(m_opIndex) = bData
　　m_opIndex = m_opIndex + 1
; S  |2 X1 J6 ^/ t: \! W# C2 M! M- m　　End Sub