一些有用的未公开API的VB声明

Public Declare Function NtSuspendProcess _
Lib "NTDLL.DLL" ( ByVal hProc As Long ) As Long
Public Declare Function NtResumeProcess _
Lib "NTDLL.DLL" ( ByVal hProc As Long ) As Long
Private Declare Function NtSetInformationProcess _
Lib "NTDLL.DLL" ( ByVal ProcessHandle As Long , _
ByVal ProcessInformationClass As SYSTEM_INFORMATION_CLASS, _
ByRef ProcessInformation As Any, _
ByVal lProcessInformationLength As Long ) As Long
Private Declare Function NtQueryInformationProcess _
Lib "NTDLL.DLL" ( ByVal ProcessHandle As Long , _
ByVal ProcessInformationClass As SYSTEM_INFORMATION_CLASS, _
ByRef ProcessInformation As Any, _
ByVal lProcessInformationLength As Long , _
ByRef lReturnLength As Long ) As Long
Private Declare Function NtQuerySystemInformation _
Lib "NTDLL.DLL" ( ByVal dwInfoType As Long , _
ByVal lpStructure As Long , _
ByVal dwSize As Long , _
dwReserved As Long ) As Long
Private Declare Function NtQueryObject _
Lib "NTDLL.DLL" ( ByVal ObjectHandle As Long , _
ByVal ObjectInformationClass As Long , _
ObjectInformation As OBJECT_NAME_PRIVATE, _
ByVal Length As Long , _
ResultLength As Long ) As Long
Private Declare Sub RtlInitUnicodeString _
Lib "NTDLL.DLL" (DestinationString As UNICODE_STRING, _
ByVal SourceString As Long )
Private Declare Function ZwOpenSection _
Lib "NTDLL.DLL" (SectionHandle As Long , _
ByVal DesiredAccess As Long , _
ObjectAttributes As Any) As Long