11-10-16, 11:02 AM
11-10-16, 11:10 AM
هذا مثال بسيط يقوم بغلق نوافذ الكروم و الملاحظات و صفحات الفيرفوكس
يمكنك فقط تغيير او اضافة او حذف البرامج التي تود اغلاقها من خلال هذا السطر
"chrome", "notepad", "firefox"
يمكنك فقط تغيير او اضافة او حذف البرامج التي تود اغلاقها من خلال هذا السطر
"chrome", "notepad", "firefox"
كود :
Dim lstOprograms As String() = {"chrome", "notepad", "firefox"}
'' etc. Until you have all your program names
For Each prog As Process In Process.GetProcesses
For Each nm As String In lstOprograms
If prog.ProcessName = nm Then
prog.Kill()
Exit For
End If
Next
Next