搬家第59天-citect2018citectVBA获取系统进程ID和Name，放入Listbox

接着前面的练习。新建一个citectVBA过程

Sub GetAllSysIDAndFillInListbox()

'获取系统进程，然后添加到listbox控件中

Dim strComputer

Dim objWMIServices As Object

Dim colSWbemObjectSet As Object

Dim SWbemObject As Object

strComputer="."

Set objWMIServices=GetObject("winmgmts:\" & strComputer & "\root\CIMV2")

Set colSWbemObjectSet=objWMIServices.InstancesOf("Win32_Process")

main_AN6.clear

For Each SWbemObject In colSWbemObjectSet

   main_AN6.additem SWbemObject.processid & "  " & SWbemObject.Name

Next

set colSWbemObjectSet=Nothing

set objWMIServices=Nothing

End Sub

画面上新建一个按钮，按钮的鼠标点击事件添加以下代码

civba call GetAllSysIDAndFillInListbox()

保存编译运行，点击按钮，列表框就会显示当前所有的系统进程ID和名字了。

 

如果希望过滤掉一部分进程不显示，比如只显示citect运行管理器中那几项，那么可以将前面加粗的几行修改成下面的代码

For Each SWbemObject In colSWbemObjectSet

 If SWbemObject.Description="citect32.exe" Then

 main_AN6.additem SWbemObject.processid & "  " & SWbemObject.Name

 End If

Next

保存编译运行，点击按钮就只显示citect运行管理器中那几个进程了。