Hola, este es un ejemplo de estas 2 api's nativas de NTDLL.DLL, la api NtSuspendProcess sirve como dice la palabra para suspender un proceso, es como si lo dejaria trabado, y la otra NtResumeProcess sirve para liberarlo y reestablecerlo a la normalidad, es muy facil el funcionamiento no hay mucha vuelta de tuerca, simplemente se les pasa el handle del proceso abierto con OpenProcess y listo.aca en el ejemplo el PID que usa OpenProcess esta fijo, o sea al PID del proceso que quieran usar como ejempo lo van a tener que averiguar ustedes :P, lo hago asi para no ensuciar el codigo fuente, ya que para obtener el PID hay millones de paginas para ver como hacerlo y por eso se los dejo a ustedes.supongamos entonces que nuestro PID es el 1384 y supongamos pertenece a la calculadora de windows.
'****************************************************************
' Procedure : SuspendProcess
' Author : seba123neo
' Date : 20/10/2009
' Purpose : Suspend/Resume Process
'****************************************************************
Option Explicit
'NTDLL.DLL
Private Declare Function NtSuspendProcess Lib "ntdll.dll" (ByVal hProc As Long) As Long
Private Declare Function NtResumeProcess Lib "ntdll.dll" (ByVal hProc As Long) As Long
Private Enum TYPESUSPEND
Suspend = 0
Release = 1
End Enum
Private Const SYNCHRONIZE = &H100000
Private Const STANDARD_RIGHTS_REQUIRED = &HF0000
Private Const PROCESS_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF)
Private Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Sub Command1_Click()
Call SuspendProcess(1384, Suspend)
End Sub
Private Sub Command2_Click()
Call SuspendProcess(1384, Release)
End Sub
Private Sub SuspendProcess(ByVal pPID As Long, ByVal pTypeSuspend As TYPESUSPEND)
Dim vHandle As Long
vHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pPID)
If vHandle <> 0 Then
Select Case pTypeSuspend
Case 0: NtSuspendProcess vHandle
Case 1: NtResumeProcess vHandle
End Select
End If
CloseHandle vHandle
End Sub
saludos.
Muy bueno Seba ;-), le corta todo los hilos al proceso.
Saludos