VB에서 CopyMemory 사용

개인 선언 하위 CopyMemory Lib "kernel32" 별칭 ​​"RtlMoveMemory"(pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Private Sub Form_Load()

< p>Dim A(15) 바이트로, B(15) 바이트로

B(0) = HAF

B(1) = H82

B(2) = &H25

B(3) = &H74

CopyMemory A(0), B(0), 4 '대상, 소스, 크기 - 바이트

Debug.Print Hex(A(0)), Hex(A(1)), Hex(A(2)), Hex(A(3)), Hex(A( 4))

Sub 종료

Private Sub Command1_Click()

Dim B(15) As Byte

B(0) = amp;

B(1) = H82

B(2) = H25

B(3) = H74< p> iLength = 0

CopyMemory B(4), iLength, 4

Debug.Print B(0), B(1), B(2), B (3) , Hex(B(4)), Hex(B(5)), Hex(B(6)), Hex(B(7))

dwOrdinal = 0

< p> CopyMemory B(8), dwOrdinal, 4

Debug.Print B(0), B(1), B(2), B(3), Hex(B(4)), Hex(B( 5)), 16진수(B(6)), 16진수(B(7)), 16진수(B(8)), 16진수(B(9)), 16진수(B(10)), 16진수(B(11) )

긴 dwCheckSum 길이

dwCheckSum = 0

CopyMemory B(12), dwCheckSum, 4

End Sub

이해하기 쉬울 것입니다~ 소스 메모리 주소는 0으로 기록됩니다. 이 주소의 첫 번째 바이트는 2이므로 위 코드를 기반으로 하면 B 배열에서 4, 8, 12를 볼 수 있습니다. 요소는 모두 2입니다.