2011年计算机等考二级VB辅导知识技巧总结(7)

　　′---以下为Assembly部分--

　　′作用：将函数的参数压入堆栈

　　Dim lngIndex As Long, lngCodeStart As Long

　　′程序起始位址必须是16的倍数

　　′VarPtr函数是用来取得变量的地址

　　lngCodeStart = (VarPtr(m_OpCode(0)) Or &HF) + 1

　　m_opIndex = lngCodeStart - VarPtr(m_OpCode(0)) ′程序开始的元素的位置

　　′前面部分以中断点添满

　　For lngIndex = 0 To m_opIndex - 1

　　m_OpCode(lngIndex) = &HCC ′int 3

　　Next lngIndex

　　′--------以下开始放入所需的程序----------

　　′将参数push到堆栈

　　′由于是STDCall CALL 参数由最后一个开始放到堆栈

　　For lngIndex = UBound(arrParams) To 0 Step -1

　　AddByteToCode &H68 ′push的机器码为H68

　　AddLongToCode CLng(arrParams(lngIndex)) ′参数地址

　　Next lngIndex

　　′call hProc

　　AddByteToCode &HE8 ′call的机器码为HE8

　　AddLongToCode lngProc - VarPtr(m_OpCode(m_opIndex)) - 4 ′函数地址 用call的定址

　　′-----------结束所需的程序--------------

　　′返回呼叫函數

　　AddByteToCode &HC2 ′ret 10h

　　AddByteToCode &H10

　　AddByteToCode &H0

　　GetCodeStart = lngCodeStart

　　End Function

　　Private Sub AddLongToCode(lData As Long)

　　′将Long类型的参数写到m_OpCode中

　　CopyMemory m_OpCode(m_opIndex), lData, 4

　　m_opIndex = m_opIndex + 4

　　End Sub

　　Private Sub AddIntToCode(iData As Byte)

　　′将Integer类型的参数写道m_OpCode中

　　CopyMemory m_OpCode(m_opIndex), iData, 2

　　m_opIndex = m_opIndex + 2

　　End Sub

　　Private Sub AddByteToCode(bData As Byte)

　　′将Byte类型的参数写道m_OpCode中

　　m_OpCode(m_opIndex) = bData

　　m_opIndex = m_opIndex + 1

　　End Sub

　　2010年9月计算机等级考试成绩查询时间汇总

　　2011计算机等级考试二级VB考点及习题汇总

　　2011年计算机等级考试二级VB基础教程汇总

　　2011计算机等考二级VB辅导知识技巧汇总