按指定的名称关闭相应进程
关键代码如下:
For Each TName In NameS
If mName LCase TName Then
List1 AddItem TName
pid my th32ProcessID
pname mName
Dim mProcID As Long
mProcID OpenProcess 1& 1& pid "OpenProcess 函数用来打开一个已存在的进程对象 并返回进程的句柄
TerminateProcess mProcID 0& "TerminateProcess函数终止指定进程及其所有线程
End If
Next">按指定的名称关闭相应进程
关键代码如下:
For Each TName In NameS
If mName LCase TName Then
List1 AddItem TName
pid my th32ProcessID
pname mName
Dim mProcID As Long
mProcID OpenProcess 1& 1& pid "O [更多]
评论3
最新资源