من فضلكم أريد كود يقوم بغلق جميع البرامج ما عدا .......

[mohamed_th]

أريد كود يقوم بغلق جميع البرامج (العمليات في التاسك مانجر) ما عدا قاعدة البيانات اللي انا فاتحها حالياً وبرنامج كذا وكذا .. 

وشكراً ليكم مقدماً

تم تعديل يوليو 5, 2020 بواسطه mohamed_th

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

تفضل اخي الكريم

هذا كود يقوم بجميع برنامج اكسيل وجميع ملفاته المفتوحة

ويمكن تنفيذ الامر لجميع البرامج التي تريد اغلاقها بتكرار الامر مع تغيير اسم البرنامج

نضع الكود التالي في وحدة نمطية

Function TaskKill(ProName)
    TaskKill = CreateObject("WScript.Shell").Run("taskkill /f /im " & ProName, 0, True)
End Function

ثم نستخدمه في زر امر كالتالي

Private Sub Command01_Click()
    If TaskKill("Excel.exe") = 0 Then
        MsgBox "تم اغلاق جميع ملفات Excel المفتوحة"
    Else
        MsgBox "لا توجد ملفات Excel المفتوحة"
    End If
End Sub

تحياتي

[مهند محسن]

mohamed_th

أين الضغط على الإعجاب لهذه الإجابة الرائعة ؟!!!💙

[mohamed_th]

شكرا لاجابتك /// ووقتك /// واجابة ممتازة // لكن انا عايز أغلق كل برامج التاسك مانجر ما عدا /// ييعني اي حاجه AnyProgram.exe في التاسك مانجر الكود يقوم بإغلاقها  /// فالكود هيغلقهم مره واحده مع ترك برامج معينه احددها انا تعمل .

خلاصة الكلام ///////// انا عايز كل حاجه تقفل إلا برنامجي اللي شغال وبرنامج اخر لاسبااااااااااااااااب كتير برمجياً في دماااااااااغي // /وطبعا كل حاجه معناها ان انا مش عارف ايه البرامج اللي ممكن تكون شغالة اصلا علشان احددها واحد واحد وانهيها . /// ارجوا ان اكون وضحت السؤال