vb中如何在任务管理器里面隐藏应用程序进程.docxVIP

vb中如何在任务管理器里面隐藏应用程序进程 ?该模块用于在任务管理器中隐藏进程 Private Const STATUS_INFO_LENGTH_MISMATCH = HC0000004 Private Const STATUS ACCESS DENIED = HC0000022 Private Const STATUS_INVALID_HANDLE = HC0000008 Private Const ERROR_SUCCESS = 0 Private Const SECTION_MAP_WRITE = H2 Private Const SECTION_MAP_READ = H4 Private Const READ_CONTROL = H20000 Private Const WRITE_DAC = H40000 Private Const NO_INHERITANCE = 0 Private Const DACL_SECURITY_INFORMATION = H4 Private Type IO_STATUS_BLOCK Status As Long Information As Long End Type Private Type UNICODE_STRING Length As Integer MaximumLength As Integer Buffer As Long End Type Private Const OBJ_INHERIT = H2 Private Const OBJ_ PERMANENT = H10 Private Const OBJ EXCLUSIVE = H20 Private Const OBJ CASE INSENSITIVE = H40 Private Const OBJ_OPENIF = H80 Private Const OBJ_OPENLINK = H100 Private Const OBJ_KERNEL_HANDLE = H200 Private Const OBJ_VALI D_ATTRIBUTES = H3F2 Private Type OBJECT_ATTRIBUTES Length As Long RootDirectory As Long ObjectName As Long Attributes As Long SecurityDeor As Long SecurityQualityOfService As Long End Type Private Type ACL AcIRevision As Byte Sbz1 As Byte AcISize As Integer AceCount As Integer Sbz2 As Integer End Type Private Enum ACCESS_MODE NOT_USED_ACCESS GRANT_ACCESS SET_ACCESS DENY_ACCESS REVOKE ACCESS SET_AUDIT_SUCCESS SET_AUDIT_FAILURE End Enum Private Enum MULTIPLE_TRUSTEE_OPERATION NO_MULTIPLE_TRUSTEE TRUSTEE_IS_IMPERSONATE End Enum Private Enum TRUSTEE_FORM TRUSTEE_IS_SID TRUSTEE_IS_NAME End Enum Private Enum TRUSTEE_TYPE TRUSTEE_IS_UNKNOWN TRUSTEE_IS_USER TRUSTEE_IS_GROUP End Enum Private Type TRUSTEE pMultipleTrustee As Long MultipleTrusteeOperation As MULTIPLE_TRUSTEE_OPERATION TrusteeForm As TRUSTEE_FORM TrusteeType As TRUSTEE_TYPE ptstrName As String End Type Private Type EXPLICIT_ACCESS grfAccessPermissions As Long grfAccessMode As ACCESS_MODE grflnheritance As Long TRUSTEE As TRUSTEE End Type Private Type AceArray List() As EXPLICIT_ACCESS End Type Private Enum SE_OBJECT_TYPE SE_UNKNOWN_OBJECT_TYPE = 0 SE