الفريق العربي للهندسة العكسية
PatchMaker in vb.net-Part 02 - نسخة قابلة للطباعة

+- الفريق العربي للهندسة العكسية (https://www.at4re.net/f)
+-- قسم : منتديات البرمجة - Programming Forums (https://www.at4re.net/f/forum-5.html)
+--- قسم : قسم البرمجة العام - General Programming Section (https://www.at4re.net/f/forum-15.html)
+--- الموضوع : PatchMaker in vb.net-Part 02 (/thread-687.html)



PatchMaker in vb.net-Part 02 - Crazy - 24-04-2019

[صورة مرفقة: p_1205z3pqp1.png]

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

ل نبدأ الشرح smoking

[صورة مرفقة: p_1209233as1.png]

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


[صورة مرفقة: p_12091m5032.png]

[صورة مرفقة: p_12096w6ex3.png]


[صورة مرفقة: p_1209wh9vu4.png]


[صورة مرفقة: p_12097abhc5.png]

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

[صورة مرفقة: p_12096cx0e6.png]

ضيف زرين

[صورة مرفقة: p_12090sdbp7.png]
Project >>CrazyPatch Properties
[صورة مرفقة: p_1209jxd9v8.png]

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

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

حان وقت التحميل smoking
https://up.top4top.net/downloadf-1209fzexl1-rar.html

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


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



RE: PatchMaker in vb.net-Part 02 - M!X0R - 24-04-2019

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


RE: PatchMaker in vb.net-Part 02 - Crazy - 24-04-2019

اوك بأذن الله  nice


RE: PatchMaker in vb.net-Part 02 - ROZBUD - 02-07-2023

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