كيف أقرأ مكان معين في الذاكرة

docesam كتب:

رجاء لا تسأل لماذا :)

و أشمعنى أنت بتسأل :D

المهم أنه بإستخدام الفيجوال بيسيك مستحييل فعل ما تريده

و لكن ممكن يكون هناك API يسمح بذلك

سوف أبحث لك عنه

و لو وجدته سوف أضعه هنا

طيب غريبة ما سألت ليش ؟ :)

عموماً شكرأ لك على المرور ، أعرف أن الحكاية كلها api طبعاً

أي أحد يجاوب ؟ :unsure:

أعتقد أن الدالة المستخدمة في ذلك هي CopyMemory API Sub

ابحث عن أمثلة لهذه الدالة

وهذا مثال:

Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Private Sub Command1_Click()
Dim varlng As Long
varlng = &H12345678

Dim DestArray(1 To 4) As Byte

CopyMemory DestArray(1), varlng, 4

Dim i As Byte
For i = 1 To 4
Print "Byte " & i & " = " & DestArray(i)
Next
End Sub

والباقي عليك

ولا تسألني لماذا :D