使用VB.NET關(guān)閉指定WindowsName的頁面可以通過使用System.Diagnostics.Process類的Kill方法來完成。
目前成都創(chuàng)新互聯(lián)已為超過千家的企業(yè)提供了網(wǎng)站建設(shè)、域名、虛擬主機、網(wǎng)站托管維護、企業(yè)網(wǎng)站設(shè)計、婁煩網(wǎng)站維護等服務(wù),公司將堅持客戶導(dǎo)向、應(yīng)用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協(xié)力一起成長,共同發(fā)展。
Kill方法接受一個參數(shù),即要關(guān)閉的進程的窗口名稱,該窗口名稱可以通過Process.GetProcessesByName函數(shù)獲得,這樣就可以遍歷找到任何一個指定的窗口名稱并將其關(guān)閉。例如:
Dim process As Process = Process.GetProcessesByName(“MyApplication.exe”)
process.Kill()
可以參考下面的兩種參考方法:
第一種:用cmd中的taskkill結(jié)束程序
shell ”cmd/c taskkill /f /im 你的進程名.exe“
第二種:(WIN7)以下的電腦可以使用,用ntsd結(jié)束程序
shell ”cmd/c ntsd -c q -pn 用戶的進程名.exe“
擴展資料:
參考語句
For Each...Next 語句: 對于數(shù)組或集合中的每一個元素,重復(fù)一組語句。?
FormatDateTime 函數(shù): 返回格式化為日期或時間的表達式。
FormatNumber 函數(shù): 返回格式化為數(shù)的表達式。
Function 語句: 聲明形成 Function 過程體的名稱、參數(shù)和代碼。
GetObject 函數(shù): 從文件返回對“自動”對象的訪問。
參考資料來源:百度百科-Visual Basic
好像不難吧?
我放進了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" '存儲進程名為文本型,注:進程名不加擴展名
Dim TargetKill() As Process = Process.GetProcessesByName(TargetName) '從進程名獲取進程
Dim TargetPath As String '存儲進程路徑為文本型
If TargetKill.Length 1 Then '判斷進程名的數(shù)量,如果同名進程數(shù)量在2個以上,用For循環(huán)關(guān)閉進程。
For i = 0 To TargetKill.Length - 1
TargetPath = TargetKill(i).MainModule.FileName
TargetKill(i).Kill()
Next
ElseIf TargetKill.Length = 0 Then '判斷進程名的數(shù)量,沒有發(fā)現(xiàn)進程直接彈窗。不需要的,可直接刪掉該If子句
MsgBox("沒有發(fā)現(xiàn)進程!")
Exit Sub
ElseIf TargetKill.Length = 1 Then '判斷進程名的數(shù)量,如果只有一個,就不用For循環(huán)
TargetKill(0).Kill()
End If
MsgBox("已終止" TargetKill.Length "個進程") '彈窗提示已終止多少個進程
Errmessages: ‘定義排錯標(biāo)簽
If Err.Description Nothing Then ’判斷有無錯誤,如果有,則 ↓
MsgBox(Err.Description) '當(dāng)出現(xiàn)錯誤時,彈窗提示
End If
End Sub
可根據(jù)需要自行修改,這個備注夠完善了吧?不會的再Hi我。
軟糖來回答羅:通過System.Diagnostics命名空間下的Process類來關(guān)閉程序的進程
Dim?進程集合?=?Process.GetProcessesByName("進程名稱")
For?Each?進程?In?進程集合
進程.Kill()
'進程.Close()?'或者使用關(guān)閉
Next
也可以先獲取所有進程,再來判斷這些進程的名稱ProcessName
Dim?獲取本地所有進程?=?Process.GetProcesses()
For?Each?進程?In?獲取本地所有進程
If?進程.ProcessName?=?"explorer.exe"?Then?進程.Kill()
Next