关闭指定进程VB6源代码

按指定的名称关闭相应进程 关键代码如下： 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 函数用来打开一个已存在的进程对象 并返回进程的句柄