[Ahmed_Mansoor]

هذا الكود محول إلى فيجول بيسك6 :

كود :

Private Sub Command1_Click()

Dim FileName As String
Dim FileBytes() As Byte
Dim F As Integer

'تحديد اسم الملف
FileName = "C:\Users\Admin\Desktop\tmp.exe"

'قراءة الملف على شكل مصفوفة بايتات
F = FreeFile
Open FileName For Binary As #F
     ReDim FileBytes(1 To LOF(F)) As Byte
     Get #F, 1, FileBytes
Close #F

'تغيير قيمة موقع معين في المصفوفة
FileBytes(Val("&h103")) = Val("&hDD")

' حفظ المصفوفة بعد تغييرها في الملف مرة أخرى
F = FreeFile
Open FileName For Binary As #F
     Put #F, 1, FileBytes
Close #F

End Sub