Attribute VB_Name = "ModAddCode"
'********************************************
''' 作者:kylinpoet or 獬獨
''''2007-05-14 23:44 初稿
''''2007-05-15 13:32 修改
''''轉載請保留作者 聲明
'********************************************
Private Const BUF_MAX           As Long = 512

Private Type tCode
  Buf(0 To BUF_MAX) As Byte       'Opcode 緩沖區
End Type

Public Type tCodeBuf
  Code              As tCode      ';定義包括長度的Opcode結構
  nBuf              As Long
End Type


Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(Destination As Any, _
Source As Any, _
ByVal Length As Long)
Public CodeBuf      As tCodeBuf   '公共變量

Public Sub AddCode(sOps As String)

    Dim i As Long
    Dim j As Long
  
    With CodeBuf
        j = Len(sOps)
        Debug.Assert (j Mod 2 = 0)
        Debug.Assert (.nBuf + (j \ 2) <= BUF_MAX)

        For i = 1 To j Step 2
            .Code.Buf(.nBuf) = Val("&H" & Mid$(sOps, i, 2))
            .nBuf = .nBuf + 1
        Next i
    End With

End Sub

'將整型轉化為 8長度的字符串
Public Function Hex8(lValue As Long) As String

    Dim s As String
  
    s = Hex$(lValue)
    Hex8 = String$(8 - Len(s), "0") & s

End Function
Function ReverseBytes(pVal As String) As String
Dim pTemp As String
For x = Len(pVal) - 1 To 1 Step -2
    pTemp = pTemp & Mid(pVal, x, 2)
Next
'每個字節為 8 長度 不足補 0
ReverseBytes = pTemp & String(8 - Len(pTemp), "0")
End Function