VB调用系统API函数---CreateToolhelp32Snapshot函数.docVIP

VB调用系统API函数---CreateToolhelp32Snapshot函数 hongdingjin 1、程序运行界面 2、程序代码 Private Declare Function CreateToolhelp32Snapshot Lib kernel32 ByVal dwFlags As Long, ByVal th32ProcessID As Long As Long Private Declare Function Process32First Lib kernel32 ByVal hSnapshot As Long, lppe As PROCESSENTRY32 As Boolean Private Declare Function Process32Next Lib kernel32 ByVal hSnapshot As Long, lppe As PROCESSENTRY32 As Boolean Private Declare Function CloseHandle Lib kernel32 ByVal hObject As Long As Long Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long szExeFile As String * 260 End Type Private Const TH32CS_SNAPHEAPLIST H1 Private Const TH32CS_SNAPPROCESS H2 Private Const TH32CS_SNAPTHREAD H4 Private Const TH32CS_SNAPMODULE H8 Private Const TH32CS_SNAPALL TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE Private Sub Command1_Click Dim tSnapShot As Long Dim tProcess As PROCESSENTRY32 Dim tBool As Boolean Dim tStr As String tSnapShot CreateToolhelp32Snapshot TH32CS_SNAPALL, 0 tProcess.dwSize Len tProcess tBool Process32First tSnapShot, tProcess Do While tBool List1.AddItem tProcess.szExeFile tBool Process32Next tSnapShot, tProcess DoEvents Loop Call CloseHandle tSnapShot End Sub