vb.net禁止結(jié)束進程 vb 結(jié)束進程
VB編寫的VBS如何防止別人結(jié)束進程
在你的腳本中加入：strComputer = "."
成都創(chuàng)新互聯(lián)公司是一家以網(wǎng)站建設(shè)公司、網(wǎng)頁設(shè)計、品牌設(shè)計、軟件運維、成都網(wǎng)站推廣、小程序App開發(fā)等移動開發(fā)為一體互聯(lián)網(wǎng)公司。已累計為咖啡廳設(shè)計等眾行業(yè)中小客戶提供優(yōu)質(zhì)的互聯(lián)網(wǎng)建站和軟件開發(fā)服務(wù)。
Set objProcess = GetObject("winmgmts:root\cimv2:Win32_Process")objProcess.Create("wscript.exe C:\PRO.VBS")
Set objWMIService = GetObject("winmgmts:" _
"{impersonationLevel=impersonate}!\\" strComputer "\root\cimv2")
Set colMonitoredProcesses = objWMIService. _
ExecNotificationQuery("select * from __instancedeletionevent " _
"within 1 where TargetInstance isa 'Win32_Process'")
i = 0
Do While i = 0
Set objLatestProcess = colMonitoredProcesses.NextEvent
if instr(ucase(objLatestProcess.TargetInstance.commandline),"C:\PRO.VBS") then
objProcess.Create("wscript.exe C:\PRO.VBS")
end if
Loop
其中C:\PRO.VBS就是起保護作用的腳本路徑，你可以自行建立（C:\PRO.VBS必須要大寫） 現(xiàn)在新建一個保護腳本，路徑和上面的C:\PRO.VBS要一致strComputer = "."
Set objProcess = GetObject("winmgmts:root\cimv2:Win32_Process")Set objWMIService = GetObject("winmgmts:" _
"{impersonationLevel=impersonate}!\\" strComputer "\root\cimv2")
Set colMonitoredProcesses = objWMIService. _
ExecNotificationQuery("select * from __instancedeletionevent " _
"within 1 where TargetInstance isa 'Win32_Process'")
i = 0
Do While i = 0
Set objLatestProcess = colMonitoredProcesses.NextEvent
if instr(ucase(objLatestProcess.TargetInstance.commandline),"C:\TEST.VBS") then
objProcess.Create("wscript.exe C:\TEST.VBS")
end if
Loop其中C:\TEST.VBS，就是你的主腳本路徑，根據(jù)實際情況該寫，但是C:\TEST.VBS需要大寫 直接運行你的主腳本C:\TEST.VBS即可，不需要你手動運行保護腳本
怎樣才能用VB.NET的代碼來關(guān)閉一個在運行的程序
軟糖來回答羅：通過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
vb.net 怎么結(jié)束進程
好像不難吧？
我放進了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)操作時加排錯標簽是個好習(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: ‘定義排錯標簽
If Err.Description Nothing Then ’判斷有無錯誤，如果有，則 ↓
MsgBox(Err.Description) '當(dāng)出現(xiàn)錯誤時，彈窗提示
End If
End Sub
可根據(jù)需要自行修改，這個備注夠完善了吧？不會的再Hi我。
VB怎樣防止被結(jié)束進程
遠程注入，通過注入的DLL監(jiān)視進程的結(jié)束 如果結(jié)束就重新調(diào)回來。
或者HOOK OpenProcess與TerminateProcess這兩個函數(shù)來防止任務(wù)管理器結(jié)束進程
名稱欄目：vb.net禁止結(jié)束進程 vb 結(jié)束進程
本文網(wǎng)址：http://m.jiaotiyi.com/article/hijhhj.html