VB NET Suspend Coding

[Matr4k3]

Module Kodları




Module Module1
    Public Enum ThreadAccess As Integer
        TERMINATE = (&H1)
        SUSPEND_RESUME = (&H2)
        GET_CONTEXT = (&H8)
        SET_CONTEXT = (&H10)
        SET_INFORMATION = (&H20)
        QUERY_INFORMATION = (&H40)
        SET_THREAD_TOKEN = (&H80)
        IMPERSONATE = (&H100)
        DIRECT_IMPERSONATION = (&H200)
    End Enum

    Public Declare Function OpenThread Lib "kernel32.dll" (ByVal dwDesiredAccess As ThreadAccess, ByVal bInheritHandle As Boolean, ByVal dwThreadId As UInteger) As IntPtr
    Public Declare Function SuspendThread Lib "kernel32.dll" (ByVal hThread As IntPtr) As UInteger
    Public Declare Function ResumeThread Lib "kernel32.dll" (ByVal hThread As IntPtr) As UInteger
    Public Declare Function CloseHandle Lib "kernel32.dll" (ByVal hHandle As IntPtr) As Boolean
End Module



Module Kodları Bitiş

Form1 Üyesi Olarak Yazılacak Kodlar

 Private Sub SuspendProcess(ByVal process As System.Diagnostics.Process)
        For Each t As ProcessThread In process.Threads
            Dim th As IntPtr
            th = OpenThread(ThreadAccess.SUSPEND_RESUME, False, t.Id)
            If th <> IntPtr.Zero Then
                SuspendThread(th)
                CloseHandle(th)
            End If
        Next
    End Sub


    Private Sub ResumeProcess(ByVal process As System.Diagnostics.Process)
        For Each t As ProcessThread In process.Threads
            Dim th As IntPtr
            th = OpenThread(ThreadAccess.SUSPEND_RESUME, False, t.Id)
            If th <> IntPtr.Zero Then
                ResumeThread(th)
                CloseHandle(th)
            End If
        Next
    End Sub

Unutmadan Bir Adette TextBox Ekleyin Process[Suspend Edilecek EXE]Adını Girmek İçin.


Button 1 Kodları


Dim game As Process() = Process.GetProcessesByName(TextBox1.Text)
        If Button1.Text = "Suspend" Then
            SuspendProcess(game(0))
            Button1.Text = "Resume"
        Else
            ResumeProcess(game(0))
            Button1.Text = "Suspend"
        End If
    End Sub

Konu Alıntı Değildir Kendim Yazdım.

 

[JeaxyJoker]

Teşekkürler.

 

[Matr4k3]

Teşekkürler.

like at bare