要知道正在运行的应用程序名称:
Dim 联众() = {"GLWorld", "ourfriend", "Mahjong"}
Dim i, j
Dim pProcess() As Process
pProcess = Process.GetProcesses()
For i = 0 To pProcess.Length() - 1
For j = 0 To 联众.Length - 1
If (pProcess(i).ProcessName = 联众(j)) Then
pProcess(i).Kill() '关闭联众
End If
Next
Next