一个自己写的查找进程是否存在的小函数

代码如下：还不是很完善。暂时先放着。有意思的朋友可以跟我完善下。

"q.J(v+O]$UG0Function IfTargetProcess(processToFind)
D#w7I;O;Skh0IfTargetProcess = False51Testing软件测试网Q4ZJ&W~&F

6^5n b qX0strComputer = "."
T`VR Y,{f0Set ōbjWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
)a9Q3HD9LFy-{2^#s0Set colItems = objWMIService.ExecQuery("Select * from Win32_Process",,48)

S{PT0m(MV/H0For Each objItem in colItems
7\N$qNM?o&p0 Dim currentproboj,count51Testing软件测试网[;i ~;b
K
 currentproboj = objItem.Name51Testing软件测试网5m1n3Bt?+v"L
 count = count+1
F"a^2};B8mg uRA0 
!{`6m-LC,w/qh@0 If processToFind = currentproboj Then51Testing软件测试网 U6D5h'W{e
  IfTargetProcess = true51Testing软件测试网4FH
G%|d7C [c F0M2O7z
  Exit For
&`AnP*vOJ B0 End IF
}5lks0T0Next

Set colItems = Nothing

#F8l2DZN+Oaj0End Function51Testing软件测试网MOdA;jKM2d

Dim result51Testing软件测试网BI.gx)ZX:orZc!y
result = IfTargetProcess ("YodaoDict.exe")51Testing软件测试网3ww4P)m
b0o

x2fX._7z1QZC;O0If  result Then
z
N/D,i XSA0 MsgBox "Got it!"
qx xcj-yU9f0End IF51Testing软件测试网L(D-m'?"kio

另外说一点，WMI其实不是很难。用VbsEdit这个工具有类似代码模板的功能。很好用。我就是用这个找出来的！51Testing软件测试网TRqO8aG? P