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

اخواني استفسار لو تكرمتوا وارجوا منكم الرد وفقكم الله

طريقة منع البرنامج من تشغيل مرتين
مثلا شغلت البرنامج ونزلت الصفحة ورجعت مرة اخرى اشغله وهو نشيط مو معقولة يكون برنامجين بنفس الشي تعمل في ان واحد
ابغى كود يمنع ذلك وتطلع رسالة تفيد بانه توجد نسخة نشطه .. ويتم تنشيط النسخة
هذا وجزاكم الله عنا خير الجزاء
الرد }}}
تم الشكر بواسطة: awidan76
#2
ضع هذا الكود في مديول

كود :
Public Sub IsAppRunning()
 If App.PrevInstance = True Then
   MsgBox "البرنامج قيد التشغيل", vbExclamation + vbMsgBoxRtlReading
 End
 End If
End Sub
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , awidan76 , alfakeehy , alfakeehy , Microformt , Microformt
#3
وعليكم السلام ورحمة الله وبركاته

جرب التالي

PHP كود :
Private Sub Form_Load() 
If 
App.PrevInstance True Then 
MsgBox 
"لا يمكن تشغيل أكثر من نسخة من البرنامج" 
Unload Me 
Exit Sub 
End 
If 
End Sub 

بالتوفيق .
الرد }}}
#4
يعطيكم العافية اخواني وماقصرتم الله يطرح فيكم وفي علمكم الخير والبركة
تم بنجاح
ودي وشكري للجميع
الرد }}}
تم الشكر بواسطة: AL_BRNS , Ahmed_Mansoor
#5
جزاك الله كل خير
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor
#6
عندي نفس المشكلة بلغة سي شارب
الرد }}}
تم الشكر بواسطة:
#7
(30-08-20, 01:17 PM)Wwhw94 كتب : عندي نفس المشكلة بلغة سي شارب

http://vb4arb.com/vb/showthread.php?tid=36272
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#8
(28-02-18, 11:49 PM)مصمم هاوي كتب : ضع هذا الكود في مديول

كود :
Public Sub IsAppRunning()
 If App.PrevInstance = True Then
   MsgBox "البرنامج قيد التشغيل", vbExclamation + vbMsgBoxRtlReading
 End
 End If
End Sub
اخي العزيز
 السلام عليكم ورحمة وبركاته
هل يمكن استعادة النسخة المفتوحة بدل من الرسالة  وجزكم الله خيراً ؟؟
 تحياتي
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف يمكن استدعاء اسم البرنامج من النافدة هذه وضعة في textbox ؟ Microformt 1 161 02-01-24, 10:06 PM
آخر رد: Taha Okla
  كيف يمكن تشغيل برنامجي على اكثر من جهاز بنفس الوقت princeofislam 1 291 14-10-23, 08:18 PM
آخر رد: princeofislam
  [سؤال] ماهو سبب خروج هذه الرسالة كما في الصورة المرفقة عند تشغيل برنامج الفيجوال بيسك6 وادي العوضي 3 498 24-07-23, 11:50 PM
آخر رد: وادي العوضي
Question [vb6.0] الماذا يظهر البرنامج عن تشغيل بعض الشاشات الكمبيوتر بشكل مصغر ؟ Microformt 5 656 23-07-23, 12:27 PM
آخر رد: ahmedabdelaliem
  [vb6.0] المساعدة في تشغيل استعلام الحاقي في تبويب الاستعلامات في قاعدة بيانات اكسيس من واجهة وادي العوضي 6 600 09-07-23, 12:44 AM
آخر رد: وادي العوضي
  [سؤال] كود تشغيل استعلامين معمولين في قاعدة بيانات اكسس من واجهة البرنامج من خلال زر امر وادي العوضي 16 1,449 04-07-23, 03:26 PM
آخر رد: وادي العوضي
  عدد مرات استخدام البرنامج اسلام الكبابى 4 682 22-06-23, 10:02 PM
آخر رد: اسلام الكبابى
  طريقة حماية البرنامج برقم المعالج layan2000 76 99,426 09-06-23, 09:20 PM
آخر رد: fouadhdfouad
Question [vb6.0] اكثر من سؤال حول كريستال ريبورت ؟؟ Microformt 0 477 20-05-23, 09:54 PM
آخر رد: Microformt
Photo [vb6.0] هل يوجد كود يجعل البرنامج يعمل بحجمه الطبيعي؟ Microformt 2 536 20-01-23, 03:48 PM
آخر رد: Microformt

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


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