منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] منع عمليه (برنامج في ال process) من العمل مرتين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] منع عمليه (برنامج في ال process) من العمل مرتين (/showthread.php?tid=12642)



منع عمليه (برنامج في ال process) من العمل مرتين - mohgam - 01-07-15

السلام عليكم ورحمة الله وبركاته
اخواني الكرام
اطلب منكم كود لمنع عمليه من العمل مرتين في ال procesess
بحيث يبحث البرنامج فأذا كانت العمليه شغاله منعها من ان تعمل مره اخرى
.......ب أختصار Angry
البرنامج يقوم بتشغيل برنامج اخر
عند تشغيل البرنامج مرتين...راح البرنامج الاخر يشتغل مره اخرى
اريد البرنامج الاخر ميشتغل بس مره واحده فقط Confused

تقريبا مثل هذا الشرح
http://www.dev-point.com/vb/t480663.html
لكن
اريد منع البرنامج الثاني من العمل مرتين وليس البرنامج الرئيسي

وجزاكم الله خير الجزاء


RE: منع عمليه (برنامج في ال process) من العمل مرتين - mohamed haroon - 01-07-15

هذا كود لقفل عملية فى ال process

كود :
For Each p As Process In Process.GetProcesses
           If p.ProcessName = "هنا اسم العملية" Then
               p.Kill()
           End If
       Next

ارجو ان اكون قد افدتك  Smile


RE: منع عمليه (برنامج في ال process) من العمل مرتين - hassan - 01-07-15

(01-07-15, 07:25 PM)mohamed haroon كتب :
هذا كود لقفل عملية فى ال process

كود :
For Each p As Process In Process.GetProcesses
           If p.ProcessName = "هنا اسم العملية" Then
               p.Kill()
           End If
       Next

ارجو ان اكون قد افدتك  Smile

هو يبغا كود لي اطفاء العملية الثناية من البرنامج يعني ما يصمح يشتغل البرنامج مرتين مش يقفل بس


RE: منع عمليه (برنامج في ال process) من العمل مرتين - ربيع - 01-07-15

نحمده ونصلي على رسوله الكريم

كود :
dim appPath as string = "مسار التطبيق"
dim appName as string = Path.GetFileNameWithoutExtension(appPath)
Process[] p = Process.GetProcessesByName(appName)

if p.Length > 1 then
    messagebox.show("التطبيق قيد التشغل، لا يمكن تشغيله مرة اخرى")
else
    Process.Start(appPath)
end if



RE: منع عمليه (برنامج في ال process) من العمل مرتين - الطالب - 01-07-15

سلام

تروح لخصائص المشروع وتاشر على Make single instance application

موفقين


RE: منع عمليه (برنامج في ال process) من العمل مرتين - mohgam - 02-07-15

(01-07-15, 07:25 PM)mohamed haroon كتب :
هذا كود لقفل عملية فى ال process

كود :
For Each p As Process In Process.GetProcesses
           If p.ProcessName = "هنا اسم العملية" Then
               p.Kill()
           End If
       Next

ارجو ان اكون قد افدتك  Smile

شكرا لمرورك
لكن اريد كود قتل العمليه الثانيه بحيث لاتعمل العمليه مرتين
علعموم جزاك الله خيرا

(01-07-15, 10:33 PM)ربيع كتب : نحمده ونصلي على رسوله الكريم

كود :
dim appPath as string = "مسار التطبيق"
dim appName as string = Path.GetFileNameWithoutExtension(appPath)
Process[] p = Process.GetProcessesByName(appName)

if p.Length > 1 then
    messagebox.show("التطبيق قيد التشغل، لا يمكن تشغيله مرة اخرى")
else
    Process.Start(appPath)
end if

جزاك الله خيرا اخي الكريم....كفيت ووفيت---لكن هل يوجد كود بدون ان اذكر مسار التطبيق بحيث يقتل العمليه عل الاسم

(01-07-15, 03:27 PM)mohgam كتب : السلام عليكم ورحمة الله وبركاته
اخواني الكرام
اطلب منكم كود لمنع عمليه من العمل مرتين في ال procesess
بحيث يبحث البرنامج فأذا كانت العمليه شغاله منعها من ان تعمل مره اخرى
.......ب أختصار  Angry
البرنامج يقوم بتشغيل برنامج اخر
عند تشغيل البرنامج مرتين...راح البرنامج الاخر يشتغل مره اخرى
اريد البرنامج الاخر ميشتغل بس مره واحده فقط  Confused

تقريبا مثل هذا الشرح
http://www.dev-point.com/vb/t480663.html
لكن
اريد منع البرنامج الثاني من العمل مرتين وليس البرنامج الرئيسي

وجزاكم الله خير الجزاء

شكرا لكم وجزاكم الله خير الجزاء....تم الحل من خلال اوامر الدوس بارك الله فيكم اخواني الكرام