عندي سؤالين :
1- كيف أستطيع إغلاق كافة البرامج التي هي قيد التنفيذ دون أن أعرف اسم تلك البرامج
2- كيف استطيع أن أمنع المستخدم من الدخول إلى قائمة المهام عن طريق المفاتيح ctrl+alt+delete أثناء تنفيذ برنامجي
أرجوا الرد بسرعة فأنا أحتاجها ضروري .
إغلاق البرامج قيد التنفيذ
تفضل أخي
Dim MyProcess() As Process = Process.GetProcesses
Dim i, Result As Integer
For i = 0 To Process.GetProcesses.Length - 1
Result = MsgBox("هل تريد إغلاق هذا البرنامج : " & Chr(13) & Chr(13) & MyProcess(i).ProcessName, MsgBoxStyle.YesNo + MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.MsgBoxRight)
If Result = 6 Then MyProcess(i).Kill()
Nextضع هذ الكود في الحدث Click للـ Button
ولكن قبل ذلك يجب استدعاء هذا المرجع
Imports System.Diagnostics
تم تعديل هذه المشاركة بواسطة السعوودي في 22 مارس 2008 في 11:32