تقييم الموضوع :
  • 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 كيف يمكن تصفير الرسم البياني عند تشغيل البرنامج ؟؟ Microformt 0 139 06-08-22, 05:13 PM
آخر رد: Microformt
  [vb6.0] ادخال الاعدادات من داخل نافذة البرنامج وليس من محرر الاكواد وادي العوضي 4 237 03-07-22, 02:00 PM
آخر رد: وادي العوضي
  [سؤال] رسائل الخطا تخرج لي عند فتح البرنامج في اي حاسبة وادي العوضي 2 175 01-07-22, 12:22 AM
آخر رد: وادي العوضي
  [vb6.0] عدم ثبوت رقم الوزن المنقول من شاشة جهاز قارء الوزن الى شاشة البرنامج وادي العوضي 3 296 04-06-22, 12:50 AM
آخر رد: وادي العوضي
  ممكن البرنامج يبعت رسايل للموبايل عن طريق النت رجل الكهرباء 5 905 12-05-22, 12:52 PM
آخر رد: الاصيله
  [vb6.0] طلب : رسالة أن العنصر مكرر بالليست بوكس ولا يمكن إضافته مرة أخرى hamada salah90 2 726 05-12-21, 12:04 AM
آخر رد: hamada salah90
  [vb6.0] أريد كود [حذف جميع الأصناف] من الطلبية وعودة رصيدها لجدول رصيد المخازن hamada salah90 3 563 27-11-21, 02:53 AM
آخر رد: ahmedabdelaliem
  طلب : أريد المساعدة في الداتا ريبورت hamada salah90 1 552 25-10-21, 06:35 PM
آخر رد: Taha Okla
  [سؤال] أريد النصيحة بخصوص الإتصال بقاعدة البيانات hamada salah90 2 754 16-09-21, 01:13 PM
آخر رد: hamada salah90
  [vb6.0] أريد تنفيذ أمر معين يتم تنفيذه عند الضغط على مفتاح معين من لوحة المفاتيح hamada salah90 0 571 28-07-21, 11:32 PM
آخر رد: hamada salah90

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


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