تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف يتم غلق جميع الملفات لبرنامج معين
#1
السلام عليكم ورحمة الله
تشرفت طبعا بوجودى معكم من
كما اشكر كل شخص قائم على هذا الصرح الهائل

كيف يتم غلق جميع الملفات لبرنامج معين
توضيح
عندى مثلا 3 ملفات ورد و4 ملفات اكسل وملف اكسس عايز اقفل كل الملفات المتعلقة بالاكسل والورد مثلا
انا وصلت لكود وهو غلق الملف او البرنامج من خلال اسمه ومش هو ده المطلوب لانه هنا بحدد الملف اللى عايز اقفله لكن معرفش ايه اسم الملف ولكن عايز اقفل كل الملفات
وشكرا
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم و رحمة الله تعالى و بركاته
بخصوص طلبك : فهناكعدة طرق
سأقوم بوضع طريقتان
الأولى عن طريق cmd أعني بذلك من خلال أمر الدوس (Command DOS)
مثال لــ Word :
كود :
Shell "taskkill /im " & Chr(34) & "WINWORD.EXE" & Chr(34) & " /f /t", vbHide

مثال لــ Excel :

كود :
Shell "taskkill /im " & Chr(34) & "EXCEL.EXE" & Chr(34) & " /f /t"
أما الطريقة الثانية فهي من خلال DataBase الخاصة بالجهاز و المعروفة بإسم WMI

كود :
Public Sub Terminate(Process As String, Optional PID As Long = 0)
  StrPID = IIf(Not PID = 0, " AND ProcessId=" & PID, "")
 
  Set Obj = GetObject("winmgmts:\\.\root\CIMV2")
  Set ColItems = Obj.ExecQuery("SELECT * FROM Win32_Process WHERE Name='" & Process & "'" & StrPID, , 48)
 
  For Each Obj In ColItems
      Obj.Terminate
  Next
End Sub

الأن ما عليك سوى أن تضع اسم البرنامج ليكةن الكود كالتالي
بالنسبو لـ Word :

كود :
Terminate("WINWORD.EXE")

بالنسبة لــ Excel :

كود :
Terminate("EXCEL.EXE")

أتمنى أن يكون هذا ما تريده
بالتوفيق أخي
الرد }}}}
تم الشكر بواسطة: VB_Coder , WAEL ABED , السندبااد , مشعل الثبيتي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] تشغيل تقارير الكريستال ريبورت 10 لبرنامج مصمم بالفجول بيسك 6 عند العميل ahmedramzyaish 2 42 08-12-16, 01:35 AM
آخر رد: Ahmed_Mansoor
  [سؤال] طريقة مشاركة الملفات على الشبكة المحلية amer2000 5 247 24-06-16, 04:17 AM
آخر رد: Ahmed_Mansoor
  كيف يتم جمع وقت بترتيب معين ؟ gedo 5 176 04-06-16, 01:54 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] ارجو المساعدة في كود طباعة موظف معين صهيب محمد 5 461 19-12-15, 03:30 AM
آخر رد: awidan76
  [vb6.0] طلب : كود لإضافة عناصر حقل معين من جدول في كومبو بوكس مع عدم اظهار القيم المكررة إلا hamada salah90 2 279 29-10-15, 09:04 PM
آخر رد: hamada salah90
  [vb6.0] طلب : كود حفظ ملف الوورد باسم معين بواسطة الفيجول بيسك hamada salah90 0 268 05-10-15, 11:38 PM
آخر رد: hamada salah90
  [vb6.0] طلب : كود استدعاء module في فورم معين hamada salah90 4 565 23-09-15, 12:42 PM
آخر رد: hamada salah90
Photo [vb6.0] طلب : حل لمشكلة تكرار كود في جميع الفورم في المشروع hamada salah90 2 281 20-09-15, 01:38 AM
آخر رد: hamada salah90
  [vb6.0] طلب : كود للتحقق من وجود ملف بمسار معين app.Path hamada salah90 2 348 06-09-15, 08:35 PM
آخر رد: hamada salah90

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم