تقييم الموضوع :
  • 6 أصوات - بمعدل 3.17
  • 1
  • 2
  • 3
  • 4
  • 5
PatchMaker in vb.net-Part 02
#1
[صورة مرفقة: 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
أعضاء أعجبوا بهذه المشاركة : M!X0R
#2
حبذا لو تستعمل مواقع الرفع المضمونة كجوجل درايف فورشيرد و Mega.nz
لَّا إِلَٰهَ إِلَّا أَنتَ سُبْحَانَكَ إِنِّي كُنتُ مِنَ الظَّالِمِينْ.

عن أبي هريرة -رضي الله عنه- أن رسول الله -صلى الله عليه وسلم- كانَ يقولُ في سجودِهِ: «اللَّهُمَّ اغْفِرْ لي ذَنْبِي كُلَّهُ: دِقَّهُ وَجِلَّهُ، وَأَوَّلَهُ وَآخِرَهُ، وَعَلاَنِيَتَهُ وَسِرَّهُ».
(صحيح - رواه مسلم).
أعضاء أعجبوا بهذه المشاركة : Crazy
#3
اوك بأذن الله  nice
أعضاء أعجبوا بهذه المشاركة :
#4
اخي الكريم،،،
شكرا لك ولكني أتمنى منك الدخول بمواضيع العمل الفعلي لبرنامج الباتش (مثل ال Address & Memory Patching).
أعضاء أعجبوا بهذه المشاركة : Venox


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


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