一些有用的未公开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

文章来自: VBGood
引用通告: 查看所有引用 | 我要引用此文章
Tags: VBVB