اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


mohamed_th

الردود الموصى بها

1.jpg.f12aa6545990b446d4e0a017fb4c7c43.jpg

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

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

تم تعديل بواسطه 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

تحياتي

  • Like 1
رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information