تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
تحويل هذاالكود من فيجول بسيك دوت نت الى فيجول بسيك 6
#1
كود :
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته

  اريد تحويل هذاالكود من فيجول بسيك دوت نت الى فيجول بسيك 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
الرد }}}
تم الشكر بواسطة:
#2
هذا الكود محول إلى فيجول بيسك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
#3
جزاك الله كل خيرا
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم