获取系统进程
来源:互联网 发布:eve mac欧服 编辑:程序博客网 时间:2024/05/21 19:49
获取系统进程到列表框
exe内包括 一个list1 一个command 一个label1
请复制如下代码到代码窗口中....
'CreateToolhelpSnapshot获取进程快照的API 声明
Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
'ProcessFirst用于获取第一个进程的PROCESSENTRY32结构信息数据
Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
'ProcessNext用于获取下一个进程的PROCESSENTRY32结构信息数据
Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
'TerminateProcess用于关闭进程句柄
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
'OpenProcess 用于打开进程句柄
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Const MAX_PATH As Integer = 260
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 * MAX_PATH
End Type
Const TH32CS_SNAPheaplist = &H1
Const TH32CS_SNAPPROCESS = &H2
Const TH32CS_SNAPthread = &H4
Const TH32CS_SNAPmodule = &H8
Const TH32CS_SNAPall = TH32CS_SNAPPROCESS + TH32CS_SNAPheaplist + TH32CS_SNAPthread + TH32CS_SNAPmodule
Private Sub Command1_Click()
Call getexename
End Sub
Private Sub Form_Load()
Call getexename
Command1.Caption = "刷新"
End Sub
Private Sub getexename()
List1.Clear '清空LIST1
Dim i As Long, lPid As Long
Dim Proc As PROCESSENTRY32
Dim hSnapShot As Long
hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPall, 0) '获得进程“快照”的句柄
Proc.dwSize = Len(Proc)
lPid = ProcessFirst(hSnapShot, Proc) '获取第一个进程的PROCESSENTRY32结构信息数据
i = 0
Do While lPid <> 0 '当返回值非零时继续获取下一个进程
List1.AddItem Proc.szExeFile ' 把所有进程载入LIST框
i = i + 1
lPid = ProcessNext(hSnapShot, Proc) '循环获取下一个进程的PROCESSENTRY32结构信息数据
Loop
Label1.Caption = "进程数: " & List1.ListCount - 1
End Sub
Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
'ProcessFirst用于获取第一个进程的PROCESSENTRY32结构信息数据
Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
'ProcessNext用于获取下一个进程的PROCESSENTRY32结构信息数据
Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
'TerminateProcess用于关闭进程句柄
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
'OpenProcess 用于打开进程句柄
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Const MAX_PATH As Integer = 260
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 * MAX_PATH
End Type
Const TH32CS_SNAPheaplist = &H1
Const TH32CS_SNAPPROCESS = &H2
Const TH32CS_SNAPthread = &H4
Const TH32CS_SNAPmodule = &H8
Const TH32CS_SNAPall = TH32CS_SNAPPROCESS + TH32CS_SNAPheaplist + TH32CS_SNAPthread + TH32CS_SNAPmodule
Private Sub Command1_Click()
Call getexename
End Sub
Private Sub Form_Load()
Call getexename
Command1.Caption = "刷新"
End Sub
Private Sub getexename()
List1.Clear '清空LIST1
Dim i As Long, lPid As Long
Dim Proc As PROCESSENTRY32
Dim hSnapShot As Long
hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPall, 0) '获得进程“快照”的句柄
Proc.dwSize = Len(Proc)
lPid = ProcessFirst(hSnapShot, Proc) '获取第一个进程的PROCESSENTRY32结构信息数据
i = 0
Do While lPid <> 0 '当返回值非零时继续获取下一个进程
List1.AddItem Proc.szExeFile ' 把所有进程载入LIST框
i = i + 1
lPid = ProcessNext(hSnapShot, Proc) '循环获取下一个进程的PROCESSENTRY32结构信息数据
Loop
Label1.Caption = "进程数: " & List1.ListCount - 1
End Sub
- 获取系统进程
- 获取系统进程
- 获取系统进程 CreateToolhelp32Snapshot
- 获取系统进程
- 获取系统进程
- JAVA获取系统进程
- 获取系统所有进程
- CreateToolhelp32Snapshot获取系统进程
- 获取系统进程
- 获取系统进程
- 获取系统进程列表与终止进程
- 获取系统的进程信息
- 获取系统进程模块信息
- 获取系统当前所有进程
- ActivityManager 获取系统进程信息
- VC获取系统进程列表、查找进程、关闭进程
- 获取Windows系统的进程运行信息
- 获取NT中系统进程的路径
- Vi命令一览表
- 男子马云性格与星座关系(转)
- VB 抓屏
- java.util.ArrayList
- 移动无框架窗体
- 获取系统进程
- 弹出"选择文件夹"对话框
- Javascript中Eval函数的使用
- cpu
- c#将datagridview中的数据导入到Excel中(winForm)
- 让窗体透明 控件可见
- 程序置顶
- 剪贴板应用出现难题及解决
- 推荐,调试工具ie webdeveloper.