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

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

在網(wǎng)站建設(shè)、做網(wǎng)站中從網(wǎng)站色彩、結(jié)構(gòu)布局、欄目設(shè)置、關(guān)鍵詞群組等細(xì)微處著手，突出企業(yè)的產(chǎn)品/服務(wù)/品牌，幫助企業(yè)鎖定精準(zhǔn)用戶(hù)，提高在線(xiàn)咨詢(xún)和轉(zhuǎn)化，使成都網(wǎng)站營(yíng)銷(xiāo)成為有效果、有回報(bào)的無(wú)錫營(yíng)銷(xiāo)推廣。成都創(chuàng)新互聯(lián)公司專(zhuān)業(yè)成都網(wǎng)站建設(shè)十年了，客戶(hù)滿(mǎn)意度97.8%，歡迎成都創(chuàng)新互聯(lián)客戶(hù)聯(lián)系。

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

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

進(jìn)程.Kill()

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

Next

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

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

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

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

Next

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如何搞出“關(guān)閉程序”這個(gè)事件，我需要把關(guān)閉時(shí)間寫(xiě)入log

Allocconsle 打開(kāi)一個(gè)控制臺(tái)窗口

Call 調(diào)用DLL文件中的函數(shù)

Freeconsole 關(guān)閉控制臺(tái)窗口

Call 命令調(diào)用DLL文件中函數(shù)后，函數(shù)運(yùn)行時(shí)，如果用戶(hù)關(guān)閉控制臺(tái)，會(huì)彈出錯(cuò)誤對(duì)話(huà)框。

本人想實(shí)現(xiàn)：當(dāng)用戶(hù)點(diǎn)擊控制臺(tái)關(guān)閉按鈕后，彈出一個(gè)確認(rèn)對(duì)話(huà)框，點(diǎn)確定，控制臺(tái)關(guān)閉，并不會(huì)出現(xiàn)錯(cuò)誤對(duì)話(huà)框；點(diǎn)取消，控制臺(tái)繼續(xù)運(yùn)行。

文章題目：vb.net關(guān)閉程序 vb關(guān)閉窗口代碼
轉(zhuǎn)載源于：http://chinadenli.net/article12/hpjedc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供標(biāo)簽優(yōu)化、虛擬主機(jī)、關(guān)鍵詞優(yōu)化、全網(wǎng)營(yíng)銷(xiāo)推廣、營(yíng)銷(xiāo)型網(wǎng)站建設(shè)、微信公眾號(hào)

廣告

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