منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
إنهاء عملية بواسطة مسارها - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : إنهاء عملية بواسطة مسارها (/showthread.php?tid=4792)

إنهاء عملية بواسطة مسارها - RaggiTech - 02-10-12

كاتب الموضوع : 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
و بالنهاية أتمنى أن تستفيدوا