06-12-14, 08:21 PM
كود :
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
اريد تحويل هذاالكود من فيجول بسيك دوت نت الى فيجول بسيك 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