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

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

成都創(chuàng)新互聯(lián)公司長期為1000+客戶提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊從業(yè)經(jīng)驗10年，關(guān)注不同地域、不同群體，并針對不同對象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為林口企業(yè)提供專業(yè)的成都網(wǎng)站制作、做網(wǎng)站，林口網(wǎng)站改版等技術(shù)服務(wù)。擁有十載豐富建站經(jīng)驗和眾多成功案例,為您定制開發(fā)。

第一種：用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ò)展資料：

參考語句

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

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

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

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

GetObject 函數(shù)： 從文件返回對“自動”對象的訪問。

參考資料來源：百度百科-Visual Basic

vb.net 如何結(jié)束進(jìn)程？

Public?Sub?KillProcessFromMemorry()

'注意進(jìn)程名稱的大小寫

Dim?procName?As?String?=?"EXCEL"

For?Each?proc?In?Process.GetProcesses

If?proc.ProcessName?Like?procName?Then

Console.WriteLine("'{0}'?is?running,?do?you?want?to?quit?(y,?n)",?procName)

If?Console.ReadKey.Key?=?ConsoleKey.Y?Then

proc.Kill()

End?If

End?If

Next

End?Sub

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)操作時加排錯標(biāo)簽是個好習(xí)慣

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

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

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

If TargetKill.Length 1 Then '判斷進(jìn)程名的數(shù)量，如果同名進(jìn)程數(shù)量在2個以上，用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ù)量，沒有發(fā)現(xiàn)進(jìn)程直接彈窗。不需要的，可直接刪掉該If子句

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

Exit Sub

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

TargetKill(0).Kill()

End If

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

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

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

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

End If

End Sub

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