′---以下為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輔導知識技巧匯總