vb.net關(guān)閉指定windowsname的頁(yè)面

使用VB.NET關(guān)閉指定WindowsName的頁(yè)面可以通過(guò)使用System.Diagnostics.Process類的Kill方法來(lái)完成。

目前成都創(chuàng)新互聯(lián)已為超過(guò)千家的企業(yè)提供了網(wǎng)站建設(shè)、域名、虛擬主機(jī)、網(wǎng)站托管維護(hù)、企業(yè)網(wǎng)站設(shè)計(jì)、婁煩網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長(zhǎng)，共同發(fā)展。

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

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

process.Kill()

vb怎樣結(jié)束指定進(jìn)程

可以參考下面的兩種參考方法：

第一種：用cmd中的taskkill結(jié)束程序

shell ”cmd/c taskkill /f /im 你的進(jìn)程名.exe“

第二種：（WIN7）以下的電腦可以使用，用ntsd結(jié)束程序

shell ”cmd/c ntsd -c q -pn 用戶的進(jìn)程名.exe“

擴(kuò)展資料：

參考語(yǔ)句

For Each...Next 語(yǔ)句： 對(duì)于數(shù)組或集合中的每一個(gè)元素，重復(fù)一組語(yǔ)句。?

FormatDateTime 函數(shù)： 返回格式化為日期或時(shí)間的表達(dá)式。

FormatNumber 函數(shù)： 返回格式化為數(shù)的表達(dá)式。

Function 語(yǔ)句： 聲明形成 Function 過(guò)程體的名稱、參數(shù)和代碼。

GetObject 函數(shù)： 從文件返回對(duì)“自動(dòng)”對(duì)象的訪問(wèn)。

參考資料來(lái)源：百度百科-Visual Basic

vb.net 怎么結(jié)束進(jìn)程

好像不難吧？

我放進(jìn)了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)操作時(shí)加排錯(cuò)標(biāo)簽是個(gè)好習(xí)慣

Dim TargetName As String = "ibmdict" '存儲(chǔ)進(jìn)程名為文本型，注：進(jìn)程名不加擴(kuò)展名

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

Dim TargetPath As String '存儲(chǔ)進(jìn)程路徑為文本型

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

For i = 0 To TargetKill.Length - 1

TargetPath = TargetKill(i).MainModule.FileName

TargetKill(i).Kill()

Next

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

MsgBox("沒(méi)有發(fā)現(xiàn)進(jìn)程！")

Exit Sub

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

TargetKill(0).Kill()

End If

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

Errmessages: ‘定義排錯(cuò)標(biāo)簽

If Err.Description Nothing Then ’判斷有無(wú)錯(cuò)誤，如果有，則 ↓

MsgBox(Err.Description) '當(dāng)出現(xiàn)錯(cuò)誤時(shí)，彈窗提示

End If

End Sub

可根據(jù)需要自行修改，這個(gè)備注夠完善了吧？不會(huì)的再Hi我。

怎樣才能用VB.NET的代碼來(lái)關(guān)閉一個(gè)在運(yùn)行的程序

軟糖來(lái)回答羅：通過(guò)System.Diagnostics命名空間下的Process類來(lái)關(guān)閉程序的進(jìn)程

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

For?Each?進(jìn)程?In?進(jìn)程集合

進(jìn)程.Kill()

'進(jìn)程.Close()?'或者使用關(guān)閉

Next

也可以先獲取所有進(jìn)程，再來(lái)判斷這些進(jìn)程的名稱ProcessName

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

For?Each?進(jìn)程?In?獲取本地所有進(jìn)程

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

Next

當(dāng)前文章：用vb.net關(guān)閉進(jìn)程 vb關(guān)閉窗口的代碼
本文網(wǎng)址：http://www.rwnh.cn/article8/doggcip.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供App開發(fā)、云服務(wù)器、用戶體驗(yàn)、網(wǎng)站營(yíng)銷、外貿(mào)建站、

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)