bfdnyj的博客

按指定的名称关闭相应进程 关键代码如下： 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 [更多]