PatchMaker in vb.net-Part 02

[Crazy]

الباتش عباره عن برنامج يقوم بأزلة الملف القديم ووضع ملف جديد بدل منه ( الملف جديد يكون مكرك)

ل نبدأ الشرح

---

أنا استعمل فجوال بيسك 2012












Backgroundimage  لازم  تكون امتداد png  افضل واحسن



ضيف زرين


Project >>CrazyPatch Properties


اسحب ملف سحب اسهلك

---

 

[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]

 

---

حان وقت التحميل

https://up.top4top.net/downloadf-1209fzexl1-rar.html

---

في الدرس القادم ان شاء الله سوف اضيف  بعض الشغلات ان شاء الله:
1-وضع اغنيه او انشوده خلال تشغيل البرنامج
2-جعله في المقدمه دائما
3-تشغيله ك مسؤول
4- وضع كود ان كان البرنامج الذي نريد عمل كراك له يعمل كيفيه اطفائه وتشغيل الكود في الاعلى

---

ملاحظه : لو احد يعرف طريقه ل عمل شرح فلاشي ولكن بحجم صغير لأني عملت شرح فلاشي طلع حجم 50 ميجا