by TheAlas.com (9 Submissions)
Category: Complete Applications
Compatability: Visual Basic 5.0
Difficulty: Advanced
Date Added: Wed 3rd February 2021
Rating: 
(17 Votes)
This program lists all the applications, modules, and threads in tree view and list view. It can also suspend or resume thread, kill process, and gives you detailed informations for each process or module. And it works under Win XP/NT/2000 .... or any other Windows platform. This is finished program, but classes and modules are very easy to use. It is only 64Kb file, and there are many things to learn from it.
API DeclarationsPrivate Declare Function GetFileVersionInfoSize Lib "version.dll" Alias "GetFileVersionInfoSizeA" (ByVal lptstrFilename As String, lpdwHandle As Long) As Long
Private Declare Function GetFileVersionInfo Lib "version.dll" Alias "GetFileVersionInfoA" (ByVal lptstrFilename As String, ByVal dwHandle As Long, ByVal dwLen As Long, lpData As Any) As Long
Private Declare Function VerLanguageName Lib "kernel32" Alias "VerLanguageNameA" (ByVal wLang As Long, ByVal szLang As String, ByVal nSize As Long) As Long
Private Declare Function VerQueryValue Lib "version.dll" Alias "VerQueryValueA" (pBlock As Any, ByVal lpSubBlock As String, lplpBuffer As Long, puLen As Long) As Long
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Public Declare Function CreateToolhelp32Snapshot Lib "kernel32.dll" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
Public Declare Function Heap32First Lib "kernel32.dll" (ByRef lphe As HEAPENTRY32, ByVal th32ProcessID As Long, ByVal th32HeapID As Long) As Boolean
Public Declare Function Heap32ListFirst Lib "kernel32.dll" (ByVal hSnapShot As Long, ByRef lphl As HEAPLIST32) As Boolean
Public Declare Function Heap32ListNext Lib "kernel32.dll" (ByVal hSnapShot As Long, ByRef lphl As HEAPLIST32) As Boolean
Public Declare Function Heap32Next Lib "kernel32.dll" (ByRef lphe As HEAPENTRY32) As Boolean
Public Declare Function Module32First Lib "kernel32.dll" (ByVal hSnapShot As Long, ByRef lpme As MODULEENTRY32) As Boolean
Public Declare Function Module32Next Lib "kernel32.dll" (ByVal hSnapShot As Long, ByRef lpme As MODULEENTRY32) As Boolean
Public Declare Function Process32First Lib "kernel32.dll" (ByVal hSnapShot As Long, ByRef lppe As PROCESSENTRY32) As Boolean
Public Declare Function Process32Next Lib "kernel32.dll" (ByVal hSnapShot As Long, ByRef lppe As PROCESSENTRY32) As Boolean
Public Declare Function Thread32First Lib "kernel32.dll" (ByVal hSnapShot As Long, ByRef lpte As THREADENTRY32) As Boolean
Public Declare Function Thread32Next Lib "kernel32.dll" (ByVal hSnapShot As Long, ByRef lpte As THREADENTRY32) As Boolean
VBcodersUpload