VB 检查进程

显示全部楼层 · 2012-2-18 11:43:07

调用方法: if checkexeisrun("VB6.EXE") then msgbox "存在"'检查进程是否运行，exeName 参数是要检查的进程 exe 名字，比如 VB6.EXEPrivate Function CheckExeIsRun(exeName As String) As Boolean
On Error GoTo Err
Dim WMI
Dim Obj
Dim Objs
CheckExeIsRun = False
Set WMI = GetObject("WinMgmts:")
Set Objs = WMI.InstancesOf("Win32...

千问 · 2012-2-18 11:43:07

这个太简单了（还是我回答过的）枚举系统进程：代码如下：在属性窗口设置texe1的属性： Text1.MultiLine = True
，Text1.ScrollBars = 3Const TH32CS_SNAPHEAPLIST = &H1Const TH32CS_SNAPPROCESS = &H2Const TH32CS_S...

千问 · 2012-2-18 11:43:07

新建一个模块：Const TH32CS_SNAPHEAPLIST = &H1 Const TH32CS_SNAPPROCESS = &H2 Const TH32CS_SNAPTHREAD = &H4 Const TH32CS_SNAPMODULE = &H8 Const TH32CS_SNAPALL = (TH32CS_SNAPHEA...