[اسلام الكبابى]

[SIZE=2]هل توجد أى طريقة أو كود معين أمنع بها أى شخص من نسخ برنامجى

وهل توجد أى طريقة أو كود معين أمنع بها أى شخص أن يستخدم برنامجى أكثر من 4مرات مثلآ

ولكم ألف شكر[/SIZE]

[samee119485r]

اخي الكريم تفضل هاذا الكود

لمنع تشغيل البرنامج اكثر من نسخة

وهوه يعتمد على الرجستري في حفظ قمة المتغير X بحيث يزيد واحد على قيمته عند كل تشغيله للبرنامج الى ان يصل

قيمة المتغير الى العدد الذي تحدده انت وانا هنا حددت الرقم 4
الذي يوجد في الداله IF والتي تحمل ايضا شرط اذا وصل عدد المتغير X الى 4

اضهري رساله للمستخدم تخبره بأنتهاء المده التجريبيه والخروج من البرنامج


ووضعت تايمر لحفظ قيمة المتغير كل ثانيه خوفا من ان المستخدم يغلق البرنامج من غير ما يضغط
على امر الخروج الذي في يطار البرنامج



Dim X As String

Private Sub Form_Load()
On Error Resume Next
X = GetSetting(App.Title, "Settings", "SaveInX")


If X = "" Then

X = "0"

End If

If X >= "4" Then
MsgBox "لقد نفذت المدة التجريبية", , "النهايه"

End

End If
X = X + 1
End Sub


Private Sub Timer1_Timer()
SaveSetting App.Title, "Settings", "SaveInX", Trim(X)
End Sub

[derbaliammar]

ضع هذا الكود في الـ 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

[اسلام الكبابى]

[SIZE=4] ألف شكر لكل منكما
[/SIZE]

[اسلام الكبابى]

إقتباس :ضع هذا الكود في الـ Main الدالة الرئيسية للبرنامج حيث يبدأ منها التشغيل أو في الحدث Load للفورم الأول في التشغيل ليتم الاختبار

لم يعمل هذا الكود لا في الـ Main الدالة الرئيسية للبرنامج ولا في الحدث Load للفورم
اعترض البرنامج عند عمل الRUN وأرسل رسالة خطأ

ان كنت جربت هذا الكود بنفسك فليتك ترفق برنامج بسيط بحيث يمكن تشغيله ولكن لايمكن نسخه
مثلا برنامج من فورم واحدة يقوم بجمع رقمين

PHP كود :

Private Sub Command1_Click()
A = 70: B = 100
X = A + B
Text1.Text = X
End Sub 


[اسلام الكبابى]

إقتباس :اخي الكريم تفضل هاذا الكود

لمنع تشغيل البرنامج اكثر من نسخة

اشتغل البرنامج بهذا الكود ولكنه لم ينفذ المطلوب
قمت بعمل الrun أكثر من 4 مرات واستمر البرنامج دون أن يعترض"لقد نفذت المدة التجريبية"

ان كنت جربت هذا الكود بنفسك فليتك ترفق برنامج بسيط بحيث يمكن تشغيله 4 مرات فقط وبعدها يعترض"لقد نفذت المدة التجريبية"
مثلا برنامج من فورم واحدة يقوم بجمع رقمين

PHP كود :

Private Sub Command1_Click()
A = 70: B = 100
X = A + B
Text1.Text = X
End Sub 


[اسلام الكبابى]

[INDENT] [SIZE=2]أليس لأى من المشكلتين أى حل

لا مشكلة منع نسخ برنامجى
ولا مشكلة منع استخدمه أكثر من 4مرات مثلآ

ولكم ألف شكر[/SIZE]
[/INDENT]

[samee119485r]

اخي الكود شغال ميه الميه

تفضل المشروع

تحياتي

[اسلام الكبابى]

لك ألف شكر

ولكن ليتك توضح لى خطوات عملك لهذا البرنامج
لأنى فتحت برنامجآ من برامجى وأضفت للفورم Timer1 وأضفت للكود هذا الكود المرفق فى برنامجك
فلم يلتزم بأربع مرات فقط كما التزم بها فى برنامجك

ولك ألف شكر

[samee119485r]

اخي الكريم انا شرحت الكود في الأعلى

حتمال انك لما اضفت الكود الى برنامجك لم تقم بترتيب الكود او حصل معك خطأ ما


فلو تضع لي مثال اقوم بتعديل عليه لكي تتضح لك الصوره

تحياتي