منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - تحويل هذاالكود من فيجول بسيك دوت نت الى فيجول بسيك 6

كود :

بسم الله الرحمن الرحيم

 السلام عليكم ورحمة الله وبركاته

   اريد تحويل هذاالكود من فيجول بسيك دوت نت الى فيجول بسيك 6 وشكرا 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

     ' تحديد اسم الملف

     Dim filename As String = "C:\Users\Admin\Desktop\tmp.exe"

     ' قراءة الملف على شكل مصفوفة بايتات

     Dim bytes() As Byte = IO.File.ReadAllBytes(filename)

     ' تغيير قيمة موقع معين في المصفوفة

     bytes(Val("&h103")) = Val("&hDD") ' بتحديد الموقع مباشرة

     'bytes(Val("&h100") + Val("&h3")) = Val("&hDD") ' بتحديد الموقع بطريقة صف + عمود

     ' حفظ المصفوفة بعد تغييرها في الملف مرة أخرى

     IO.File.WriteAllBytes(filename, bytes)

 End Sub

هذا الكود محول إلى فيجول بيسك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

جزاك الله كل خيرا

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

kalach

Ahmed_Mansoor

kalach