منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] أريد كود : للتأكد من أن البرنامج يعمل بالفعل ولا يتشغيل البرنامج مرة أخرى بنفس الوقت - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] أريد كود : للتأكد من أن البرنامج يعمل بالفعل ولا يتشغيل البرنامج مرة أخرى بنفس الوقت (/showthread.php?tid=40337)

أريد كود : للتأكد من أن البرنامج يعمل بالفعل ولا يتشغيل البرنامج مرة أخرى بنفس الوقت - hamada salah90 - 27-12-21

السلام عليكم ورحمة الله وبركاته

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

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

RE: أريد كود : للتأكد من أن البرنامج يعمل بالفعل ولا يتشغيل البرنامج مرة أخرى بنفس الوقت - Taha Okla - 27-12-21

وعليكم السلام ورحمة الله وبركاته 

تفضل :
كود :
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


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

(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 بهذي البساطة ؟
ولكم خالص الشكر والتقدير

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

(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 بهذي البساطة ؟
ولكم خالص الشكر والتقدير

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

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

(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 بهذي البساطة ؟
ولكم خالص الشكر والتقدير

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


صبحك الله بالخير أستاذ سعود
نعم بالضبط مثل ذلك .
أشكر لك سرعة ردك الكريم على الموضوع .
في أمان الله أستاذي .

RE: أريد كود : للتأكد من أن البرنامج يعمل بالفعل ولا يتشغيل البرنامج مرة أخرى بنفس الوقت - hamada salah90 - 28-12-21

لكم جميعا جزيل الشكر والتقدير      وبارك الله فيكم

RE: أريد كود : للتأكد من أن البرنامج يعمل بالفعل ولا يتشغيل البرنامج مرة أخرى بنفس الوقت - aboezzat84 - 12-02-22

(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