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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : تحويل هذاالكود من فيجول بسيك دوت نت الى فيجول بسيك 6 (/showthread.php?tid=10864)



تحويل هذاالكود من فيجول بسيك دوت نت الى فيجول بسيك 6 - kalach - 06-12-14

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

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



RE: تحويل هذاالكود من فيجول بسيك دوت نت الى فيجول بسيك 6 - Ahmed_Mansoor - 06-12-14

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



RE: تحويل هذاالكود من فيجول بسيك دوت نت الى فيجول بسيك 6 - kalach - 07-12-14

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