eu uso esse codigo aqui, porém não sei onde atribuiro valor
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports System.Diagnostics
Imports System.Runtime.InteropServices
Public Class Form1
<DllImport("Kernel32.dll")> _
Private Shared Function SuspendThread(ByVal hThread As IntPtr) As Int32
End Function
Public Function Thread_Suspend(ByVal ThreadHandle As IntPtr) As Integer
Return SuspendThread(ThreadHandle)
End Function
<DllImport("kernel32.dll")> _
Private Shared Function ResumeThread(ByVal hThread As IntPtr) As Integer
End Function
Public Function Thread_Resume(ByVal ThreadHandle As IntPtr) As Integer
Return ResumeThread(ThreadHandle)
End Function
<DllImport("kernel32.dll")> _
Private Shared Function OpenThread(ByVal dwDesiredAccess As ThreadAccess, ByVal bInheritHandle As Boolean, ByVal dwThreadId As Integer) As IntPtr
End Function
Public Function Thread_GetHandle(ByVal ThreadID As Integer) As IntPtr
Return OpenThread(ThreadAccess.SUSPEND_RESUME, False, ThreadID)
End Function
Public Function Thread_GetHandle(ByVal ThreadID As Integer, ByVal DesiredAccess As ThreadAccess) As IntPtr
Return OpenThread(DesiredAccess, False, ThreadID)
End Function
<DllImport("kernel32.dll", SetLastError:=True)> _
Private Shared Function CloseHandle(ByVal hHandle As IntPtr) As Boolean
End Function
Public Function Handle_Close(ByVal OpenedHandle As IntPtr) As Boolean
Return CloseHandle(OpenedHandle)
End Function
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
For Each thread As ProcessThread In Process.GetProcessesByName("notepad")(0).Threads
Thread_Suspend(Thread_GetHandle(thread.Id))
Next
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
For Each thread As ProcessThread In Process.GetProcessesByName("notepad")(0).Threads
Thread_Resume(Thread_GetHandle(thread.StartAddress))
Next
End Sub
End Class
<Flags()> _
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
Por favor ajude
