vb中如何在任务管理器里面隐藏应用程序进程
'该模块用于在任务管理器中隐藏进程 Private Const STATUS_INFO_LENGTH_MISMATCH = &H C0000004 Private Const STATUS_ACCESS_DENIED = &H C0000022 Private Const STATUS_INVA LI D_HANDLE = &H C0000008 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 Private Const OBJ_OPENIF = &H80 Private Const OBJ_OPENLINK = &H 100 Private Const OBJ_KERNEL_HANDLE = Private Const OBJ_VALID_ATTRIBUTES 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 AclRevision As Byte Sbz1 As Byte AclSize As Integer AceCount As Integer Sbz2 As Integer End Type Private Enum ACCESS_MODE NOT_USED_ACCESS GRANT_ACCESS SET_ACCESS =&H40 & H200 =&H 3F2 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 EXP LI CIT_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_FILE_OBJECT SE_SERVICE SE_PRINTER SE_REGISTRY_KEY SE_LMSHARE SE_KERNEL_OBJECT SE_WINDOW_OBJECT SE_DS_OBJECT SE_DS_OBJECT_ALL SE_PROVIDER_DEFINED_OBJECT SE_WMIGUID_OBJECT End EnumPrivate Declare Function SetSecuritylnfo Lib "advapi32.dll" (ByVal Handle As Long , ByVal As Long , ppsidGroup As Long , ppDacl As Any , ppSacl As Any ) As Long ObjectType As SE_OBJECT_TYPE , ByVal SecurityInfo As Long , ppsidOwner
cCountOfExplicitEntries As Long EXP LI CIT_ACCESS , ByVal OldAcl As Long , NewAcl As Long ) As Long Private Declare Sub BuildExplicitAccessWithName Lib "advapi32.dll" Alias "BuildExplicitAccessWithNameA" (pExplicitAccess As EXPLICIT_ACCESS , ByVal
pTrusteeName As String , ByVal AccessPermissions As Long ACCESS_MODE , ByVal Inheritance As Long )
UNICODE_STRING , ByVal SourceString As Long )
ObjectType As SE_OBJECT_TYPE ,ByVal SecurityInfo As Long ,ppsidOwner Private Declare Function GetSecurityInfo Lib "advapi32.dll" (ByVal Handle As Long ,ByVal As Long , ppsidGroup As Long ,ppDacl As Any , ppSacl As Any ,ppSecurityDeor As Long )As Long
Private Declare Function SetEntriesInAcl Lib "advapi32.dll" Alias "SetEntriesInAclA" (ByVal ,pListOfExplicitEntries As
,ByVal AccessMode As Private Declare Sub RtlInitUnicodeString Lib "NTDLL.DLL" (DestinationString As Private Declare Function ZwOpenSection Lib "NTDLL.DLL" (SectionHandle As Long ,ByVal DesiredAccess As Long , ObjectAttributes As Any )As Long Private Declare Function LocalFree Lib "kernel32" (ByVal hMem As Any ) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long )As Long Private Declare Function MapViewOfFile Lib "kernel32" (ByVal hFileMappingObject As Long ByVal dwDesiredAccess As Long ,ByVal dwFileOffsetHigh As Long ,ByVal dwFileOffsetLow As Long , ByVai dwNumberOfBytesToMap As Long Private Declare Function UnmapViewOfFile Lib "kernel32" (lpBaseAddress As Any ) As Long Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any Source As Any , ByVal Length As Long ) Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (IpVersionlnformation As OSVERSIONINFO ) As Long
Private Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 End Type
Private verinfo As OSVERSIONINFO Private g_hNtDLL As Long Private g_pMapPhysicalMemory As Long Private g_hMPM As Long Private aByte (3) As Byte Public Sub HideCurrentProcess () '在进程列表中隐藏当前应用程序进程 '转载请注名来自爱软件(isoftcn.cn) 阿江编注。