怎样用进程关闭程序？

 

怎样用进程关闭程序？

示例一： 

以下是使用Process结束进程:

dim pcs() AS Process
pcs= Process.GetProcessesByName("iExplore");

Dim i as integer
For i=0 to pcs.Length-1
　　pcs(i).Kill
Next

示例二：

ｄｉｍ　ｐｃｓ（）　ａｓ　Ｐｒｏｃｅｓｓ

’不知道为什么不行了？？改用ＧｅｔＰｒｏｃｅｓｓｅｓ
’ｐｃｓ＝Ｐｒｏｃｅｓｓ．ＧｅｔＰｒｏｃｅｓｓｅｓＢｙＮａｍｅ（＂ＴＭ＂）
ｐｃｓ＝Ｐｒｏｃｅｓｓ．ＧｅｔＰｒｏｃｅｓｓｅｓ（）

ｄｉｍ　ｉ　ａｓ　Ｉｎｔｅｇｅｒ＝０
ｆｏｒ　ｉ＝０　Ｔｏ　ｐｃｓ．ＧｅｔＵｐｐｅｒＢｏｕｎｄ（０）－１
Ｉｆ　ｐｃｓ（ｉ）．ＰｒｏｃｅｓｓＮａｍｅ．ＴｏＵｐｐｅｒ＝＂ＴＭ＂．ＴｏＵｐｐｅｒ　Ｔｈｅｎ　ｐｃｓ（ｉ）．Ｋｉｌｌ（）
Ｎｅｘｔ
 示例三：

Private Sub KillProcess(byval processName as String)
Dim myproc as System.Diagnostics.Process = new System.Diagnostics.Process()
//得到所有打开的进程
Try
For Each thisproc as Process in Process.GetProcessesByName(processName)
If(Not thisproc.CloseMainWindow())
thisproc.Kill()
End If
Next
catch(Exc as Exception)
msgbox "杀死 " + processName + " 失败！"
End Try
End Sub

顺便说一下这段代码要在WinApp下才有效!