ضع هذا الكود في الـ Main الدالة الرئيسية للبرنامج حيث يبدأ منها التشغيل أو في الحدث Load للفورم الأول في التشغيل ليتم الاختبار :
كود :
Dim appProc() As Process
Dim strModName, strProcName As String
strModName = Process.GetCurrentProcess.MainModule.ModuleName
strProcName = System.IO.Path.GetFileNameWithoutExtension(strModName)
appProc = Process.GetProcessesByName(strProcName)
If appProc.Length > 1 Then
MessageBox.Show("يوجد نسخة أخرى تعمل من البرنامج")
End
End If
اشتغل البرنامج بهذا الكود ولكنه لم ينفذ المطلوب
قمت بعمل الrun أكثر من 4 مرات واستمر البرنامج دون أن يعترض"لقد نفذت المدة التجريبية"
ان كنت جربت هذا الكود بنفسك فليتك ترفق برنامج بسيط بحيث يمكن تشغيله 4 مرات فقط وبعدها يعترض"لقد نفذت المدة التجريبية"
مثلا برنامج من فورم واحدة يقوم بجمع رقمين
PHP كود :
Private Sub Command1_Click() A = 70: B = 100 X = A + B Text1.Text = X End Sub
لا تأسفن على غدر الزمان لطالما...رقصت على جثث الأسود كلاب
لا تحسبن برقصها تعلو على أسيادها...تبقى الأسود أسودا والكلاب كلاب
تبقى الأسود مخيفة في أسرها...حتى وإن نبحت عليها كلاب
تموت الأسد في الغابات جوعا... ولحم الضأن تأكله الكــلاب
وعبد قد ينام على حريـــر...وذو نسب مفارشه التــراب
05-08-13, 08:46 PM (آخر تعديل لهذه المشاركة : 05-08-13, 09:24 PM {2} بواسطة sippar.)
لك ألف شكر
ولكن ليتك توضح لى خطوات عملك لهذا البرنامج
لأنى فتحت برنامجآ من برامجى وأضفت للفورم Timer1 وأضفت للكود هذا الكود المرفق فى برنامجك فلم يلتزم بأربع مرات فقط كما التزم بها فى برنامجك
حتمال انك لما اضفت الكود الى برنامجك لم تقم بترتيب الكود او حصل معك خطأ ما
فلو تضع لي مثال اقوم بتعديل عليه لكي تتضح لك الصوره
تحياتي
لا تأسفن على غدر الزمان لطالما...رقصت على جثث الأسود كلاب
لا تحسبن برقصها تعلو على أسيادها...تبقى الأسود أسودا والكلاب كلاب
تبقى الأسود مخيفة في أسرها...حتى وإن نبحت عليها كلاب
تموت الأسد في الغابات جوعا... ولحم الضأن تأكله الكــلاب
وعبد قد ينام على حريـــر...وذو نسب مفارشه التــراب