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

أريد كود : للتأكد من أن البرنامج يعمل بالفعل ولا يتشغيل البرنامج مرة أخرى بنفس الوقت

حيث إذا كان البرنامج يعمل بالفعل  لا يتم تشغيله مرة اخرى
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته 

تفضل :
كود :
Function AnotherInstance() As Integer
   Dim AppTitle$
   If App.PrevInstance Then
       ' Hold the title of the application (title bar caption)
       AppTitle$ = App.Title
       ' Change our application title
       App.Title = "No longer want this app running..."
       ' Activate the previous instance
       AppActivate AppTitle$
       ' Let calling procedure know another instance was detected
       AnotherInstance = True
   Else
       ' Let calling procedure know another instance was NOT detected
       AnotherInstance = False
   End If
End Function

Sub Form_Load()
   ' Don't want two copies of the program running at the same time
   If AnotherInstance() Then End
   ' Note: that this routine will not work if the application's title changes
   ' (showing file names in the title bar for example).
End Sub
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة: hamada salah90
#3
(27-12-21, 06:01 PM)hamada salah90 كتب : السلام عليكم ورحمة الله وبركاته

أريد كود : للتأكد من أن البرنامج يعمل بالفعل ولا يتشغيل البرنامج مرة أخرى بنفس الوقت

حيث إذا كان البرنامج يعمل بالفعل  لا يتم تشغيله مرة اخرى

و عليكم السلام 

PHP كود :
 If App.PrevInstance True Then
  End
  End 
If 
الرد }}}
تم الشكر بواسطة: hamada salah90
#4
(27-12-21, 08:46 PM)Amir_Alzubidy كتب :
(27-12-21, 06:01 PM)hamada salah90 كتب : السلام عليكم ورحمة الله وبركاته

أريد كود : للتأكد من أن البرنامج يعمل بالفعل ولا يتشغيل البرنامج مرة أخرى بنفس الوقت

حيث إذا كان البرنامج يعمل بالفعل  لا يتم تشغيله مرة اخرى

و عليكم السلام 

PHP كود :
 If App.PrevInstance True Then
  End
  End 
If 


هذا الكود رغم بساطته وصغره إلا أنه فعال جدا ما شاء الله !
مشكور على هذا الكود يا أستاذ Amir_Alzubidy

ولكني أريد كود للغة VB.net بهذي البساطة ؟
ولكم خالص الشكر والتقدير
الرد }}}
تم الشكر بواسطة: سعود , hamada salah90 , hamada salah90
#5
(28-12-21, 08:56 AM)أبو خالد الشكري كتب :
(27-12-21, 08:46 PM)Amir_Alzubidy كتب :
(27-12-21, 06:01 PM)hamada salah90 كتب : السلام عليكم ورحمة الله وبركاته

أريد كود : للتأكد من أن البرنامج يعمل بالفعل ولا يتشغيل البرنامج مرة أخرى بنفس الوقت

حيث إذا كان البرنامج يعمل بالفعل  لا يتم تشغيله مرة اخرى

و عليكم السلام 

PHP كود :
 If App.PrevInstance True Then
  End
  End 
If 


هذا الكود رغم بساطته وصغره إلا أنه فعال جدا ما شاء الله !
مشكور على هذا الكود يا أستاذ Amir_Alzubidy

ولكني أريد كود للغة VB.net بهذي البساطة ؟
ولكم خالص الشكر والتقدير

تقصد مثل هذا؟
منع تشغيل اكثر من نسخة للتطبيق (السهل اللذي كنت اظنه صعبا)
الرد }}}
تم الشكر بواسطة: hamada salah90
#6
(28-12-21, 09:26 AM)سعود كتب :
(28-12-21, 08:56 AM)أبو خالد الشكري كتب :
(27-12-21, 08:46 PM)Amir_Alzubidy كتب :
(27-12-21, 06:01 PM)hamada salah90 كتب : السلام عليكم ورحمة الله وبركاته

أريد كود : للتأكد من أن البرنامج يعمل بالفعل ولا يتشغيل البرنامج مرة أخرى بنفس الوقت

حيث إذا كان البرنامج يعمل بالفعل  لا يتم تشغيله مرة اخرى

و عليكم السلام 

PHP كود :
 If App.PrevInstance True Then
  End
  End 
If 


هذا الكود رغم بساطته وصغره إلا أنه فعال جدا ما شاء الله !
مشكور على هذا الكود يا أستاذ Amir_Alzubidy

ولكني أريد كود للغة VB.net بهذي البساطة ؟
ولكم خالص الشكر والتقدير

تقصد مثل هذا؟
منع تشغيل اكثر من نسخة للتطبيق (السهل اللذي كنت اظنه صعبا)


صبحك الله بالخير أستاذ سعود
نعم بالضبط مثل ذلك .
أشكر لك سرعة ردك الكريم على الموضوع .
في أمان الله أستاذي .
الرد }}}
تم الشكر بواسطة: hamada salah90 , سعود , سعود
#7
لكم جميعا جزيل الشكر والتقدير      وبارك الله فيكم
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}
تم الشكر بواسطة:
#8
(28-12-21, 09:08 PM)hamada salah90 كتب : لكم جميعا جزيل الشكر والتقدير      وبارك الله فيكم
فى ال form load لاول شاشة بالبرنامج :


If App.PrevInstance = True Then
N = MsgBox("البرنامج يعمل", vbRetryCancel + vbCritical, "M.Ezzat")
Unload Me
Exit Sub
End If
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
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
Question [vb6.0] الماذا يظهر البرنامج عن تشغيل بعض الشاشات الكمبيوتر بشكل مصغر ؟ Microformt 5 656 23-07-23, 12:27 PM
آخر رد: ahmedabdelaliem
  [سؤال] كود تشغيل استعلامين معمولين في قاعدة بيانات اكسس من واجهة البرنامج من خلال زر امر وادي العوضي 16 1,449 04-07-23, 03:26 PM
آخر رد: وادي العوضي
  عدد مرات استخدام البرنامج اسلام الكبابى 4 682 22-06-23, 10:02 PM
آخر رد: اسلام الكبابى
  كود يعمل امر انتر دخال تكست allobaed 4 616 20-06-23, 05:27 PM
آخر رد: سعود
  طريقة حماية البرنامج برقم المعالج layan2000 76 99,426 09-06-23, 09:20 PM
آخر رد: fouadhdfouad
Photo [vb6.0] هل يوجد كود يجعل البرنامج يعمل بحجمه الطبيعي؟ Microformt 2 536 20-01-23, 03:48 PM
آخر رد: Microformt
Question ريد كود يجعل واجهة برنامجي فوف نوافذ البرامج عند التشغيل البرنامج ؟؟ Microformt 2 699 03-10-22, 11:26 PM
آخر رد: Microformt
  البرنامج بيهنج(AppCrash) عند الطباعة عبدالله الصافي 6 893 26-09-22, 07:25 PM
آخر رد: عبدالله الصافي

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


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