vb點虐 關閉指定windowsname的頁面

使用VB.NET關閉指定WindowsName的頁面可以通過使用System.Diagnostics.Process類的Kill方法來完成。

創(chuàng)新互聯建站為企業(yè)級客戶提高一站式互聯網+設計服務，主要包括網站設計制作、成都網站建設、app軟件開發(fā)、重慶小程序開發(fā)公司、宣傳片制作、LOGO設計等，幫助客戶快速提升營銷能力和企業(yè)形象，創(chuàng)新互聯各部門都有經驗豐富的經驗，可以確保每一個作品的質量和創(chuàng)作周期，同時每年都有很多新員工加入，為我們帶來大量新的創(chuàng)意。 

Kill方法接受一個參數，即要關閉的進程的窗口名稱，該窗口名稱可以通過Process.GetProcessesByName函數獲得，這樣就可以遍歷找到任何一個指定的窗口名稱并將其關閉。例如：

Dim process As Process = Process.GetProcessesByName(“MyApplication.exe”)

process.Kill()

怎樣才能用VB.NET的代碼來關閉一個在運行的程序

軟糖來回答羅：通過System.Diagnostics命名空間下的Process類來關閉程序的進程

Dim?進程集合?=?Process.GetProcessesByName("進程名稱")

For?Each?進程?In?進程集合

進程.Kill()

'進程.Close()?'或者使用關閉

Next

也可以先獲取所有進程，再來判斷這些進程的名稱ProcessName

Dim?獲取本地所有進程?=?Process.GetProcesses()

For?Each?進程?In?獲取本地所有進程

If?進程.ProcessName?=?"explorer.exe"?Then?進程.Kill()

Next

vb點虐 怎么結束進程

好像不難吧？

我放進了Button1的Click事件里。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

On Error GoTo Errmessages '在做系統(tǒng)操作時加排錯標簽是個好習慣

Dim TargetName As String = "ibmdict" '存儲進程名為文本型，注：進程名不加擴展名

Dim TargetKill() As Process = Process.GetProcessesByName(TargetName) '從進程名獲取進程

Dim TargetPath As String '存儲進程路徑為文本型

If TargetKill.Length 1 Then '判斷進程名的數量，如果同名進程數量在2個以上，用For循環(huán)關閉進程。

For i = 0 To TargetKill.Length - 1

TargetPath = TargetKill(i).MainModule.FileName

TargetKill(i).Kill()

Next

ElseIf TargetKill.Length = 0 Then '判斷進程名的數量，沒有發(fā)現進程直接彈窗。不需要的，可直接刪掉該If子句

MsgBox("沒有發(fā)現進程！")

Exit Sub

ElseIf TargetKill.Length = 1 Then '判斷進程名的數量，如果只有一個，就不用For循環(huán)

TargetKill(0).Kill()

End If

MsgBox("已終止" TargetKill.Length "個進程") '彈窗提示已終止多少個進程

Errmessages: ‘定義排錯標簽

If Err.Description Nothing Then ’判斷有無錯誤，如果有，則 ↓

MsgBox(Err.Description) '當出現錯誤時，彈窗提示

End If

End Sub

可根據需要自行修改，這個備注夠完善了吧？不會的再Hi我。