الفريق العربي للهندسة العكسية

---

---

[align=left]Public Class Form1
#Region "لتحريك الفورم بالماوس "
    Const x As Integer = &H84
    Const y As Integer = &H1
    Const z As Integer = &H2

    Protected Overrides Sub WndProc(ByRef m As Message)
        Select Case m.Msg
            Case x
                MyBase.WndProc(m)
                If m.Result.ToInt32 = y Then
                    m.Result = IntPtr.op_Explicit(z)
                End If
            Case Else
                MyBase.WndProc(m)
        End Select



    End Sub

#End Region
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'لجعل الفورم شفاف
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        Me.BackColor = Color.Orange
        Me.TransparencyKey = Color.Orange
        'جعل الزران شفاف
        Button1.FlatStyle = FlatStyle.Flat
        Button1.FlatAppearance.MouseDownBackColor = Color.Transparent
        Button1.FlatAppearance.MouseOverBackColor = Color.Transparent

        Button2.FlatStyle = FlatStyle.Flat
        Button2.FlatAppearance.MouseDownBackColor = Color.Transparent
        Button2.FlatAppearance.MouseOverBackColor = Color.Transparent
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' وتاكد من وجود البرنامج

        If My.Computer.FileSystem.FileExists("C:\Program Files\CCleaner\CCleaner.exe") Then
            'مسح البرنامج القديم
            IO.File.Delete("C:\Program Files\CCleaner\CCleaner.exe")

            'وضع البرنامج المكرك بدل منه
            IO.File.WriteAllBytes("C:\Program Files\CCleaner\CCleaner.exe", My.Resources.pfstudiox)

        End If
        MsgBox("pATCH dONE")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        End
    End Sub
End Class[/align]

---

---

---

حبذا لو تستعمل مواقع الرفع المضمونة كجوجل درايف فورشيرد و Mega.nz

اوك بأذن الله 

اخي الكريم،،،
شكرا لك ولكني أتمنى منك الدخول بمواضيع العمل الفعلي لبرنامج الباتش (مثل ال Address & Memory Patching).