1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

[VB.NET]BSOD Kill Process

Тема в разделе "Программирование", создана пользователем F.I.G.H.T.E.R, 22 янв 2014.

  1. TopicStarter Overlay
    F.I.G.H.T.E.R

    F.I.G.H.T.E.R

    Регистрация:
    14 дек 2013
    Сообщения:
    272
    Симпатии:
    822
    BSOD Kill Process

    Код:
    ' >>> Protected Process Killer | By Simon-Benyo  <<<
     
    Imports System.Runtime.InteropServices
     
    Module DPProcessKiller
        <DllImport("ntdll")> _
        Private Function NtSetInformationProcess(ByVal hProcess As IntPtr, ByVal processInformationClass As Integer, ByRef processInformation As Integer, ByVal processInformationLength As Integer) As Integer
        End Function
        Sub Main()
            Try
                Process.EnterDebugMode()
            Catch ex As Exception
                Environment.Exit(0)
            End Try
            Console.WriteLine("Protected Process Killer | By Simon-Benyo")
    a:
            Console.WriteLine()
            Console.Write("Please Enter Process Name (Without .exe) : ")
            Dim s As Integer = 0
            Dim ProcessPriorityClass As Integer = 29
            Dim lpProcessName As String = Console.ReadLine()
            For Each x As Process In Process.GetProcessesByName(lpProcessName)
                If NtSetInformationProcess(x.Handle, ProcessPriorityClass, s, Marshal.SizeOf(s)) = 0 Then
                    x.Kill()
                    Console.WriteLine("Killed :)")
                End If
            Next
            GoTo a
        End Sub
     
    End Module
     
    • Like Like x 1
    Метки:

Поделиться этой страницей

Загрузка...