02-10-12, 01:19 AM
كاتب الموضوع : kosay
السلام عليكمكنت قد طرحت سؤالا عن كيفية إنهاء عملية بواسطة مسارها مثلا أريد إنهاء العملية
C:\svchost.exe لأن العملية هذه مشبوهة كون الملف السليم في C:\windows\system32\svchost.exe
لم أحصل للأسف على إجابة و لكن بعد البحث وجدت الحل فقلت أن أشارككم به
كود :
Private Sub KillByPath(ByVal path As String)
On Error Resume Next
Dim matchingProcesses = New List(Of Process)
For Each process As Process In process.GetProcesses()
For Each m As ProcessModule In process.Modules
If String.Compare(m.FileName, path, StringComparison.InvariantCultureIgnoreCase) = 0 Then
process.Kill()
End If
Next
Next
End Sub
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
KillByPath("D:\notepad.exe")
End Sub