تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] تحويل الصوت الى نص داخل textbox maro 2 777 13-04-16, 11:12 AM
آخر رد: MicroDoha
  الى محبي VB6 تحويل التاريخ الى الهجري مباشرة وصحيح بإذن الله Top GreaT 0 455 23-02-15, 11:37 PM
آخر رد: Top GreaT
  سؤال حول تحويل الى ملف تنفيذي الوفا 1 633 21-04-14, 06:34 PM
آخر رد: Sniper.ps

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


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