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

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


ولكم ألف شكر
[/SIZE]
الرد }}}}
تم الشكر بواسطة:
#2
اخي الكريم تفضل هاذا الكود

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

وهوه يعتمد على الرجستري في حفظ قمة المتغير 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
الرد }}}}
تم الشكر بواسطة:
#3
ضع هذا الكود في الـ 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
{وَسَارِعُواْ إِلَى مَغْفِرَةٍ مِّن رَّبِّكُمْ وَجَنَّةٍ عَرْضُهَا السَّمَاوَاتُ وَالأَرْضُ أُعِدَّتْ لِلْمُتَّقِينَ }آل عمران133
الرد }}}}
تم الشكر بواسطة:
#4
[SIZE=4] ألف شكر لكل منكما
[/SIZE]
الرد }}}}
تم الشكر بواسطة:
#5
إقتباس :ضع هذا الكود في الـ Main الدالة الرئيسية للبرنامج حيث يبدأ منها التشغيل أو في الحدث Load للفورم الأول في التشغيل ليتم الاختبار
لم يعمل هذا الكود لا في الـ Main الدالة الرئيسية للبرنامج ولا في الحدث Load للفورم
اعترض البرنامج عند عمل الRUN وأرسل رسالة خطأ

ان كنت جربت هذا الكود بنفسك فليتك ترفق برنامج بسيط بحيث يمكن تشغيله ولكن لايمكن نسخه
مثلا برنامج من فورم واحدة يقوم بجمع رقمين
PHP كود :
Private Sub Command1_Click()
70100
B
Text1
.Text X
End Sub 
الرد }}}}
تم الشكر بواسطة:
#6
إقتباس :اخي الكريم تفضل هاذا الكود

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

ان كنت جربت هذا الكود بنفسك فليتك ترفق برنامج بسيط بحيث يمكن تشغيله 4 مرات فقط وبعدها يعترض"لقد نفذت المدة التجريبية"
مثلا برنامج من فورم واحدة يقوم بجمع رقمين
PHP كود :
Private Sub Command1_Click()
70100
B
Text1
.Text X
End Sub 
الرد }}}}
تم الشكر بواسطة:
#7
[INDENT] [SIZE=2]أليس لأى من المشكلتين أى حل

لا مشكلة منع نسخ برنامجى

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


ولكم ألف شكر
[/SIZE]
[/INDENT]
الرد }}}}
تم الشكر بواسطة:
#8
اخي الكود شغال ميه الميه

تفضل المشروع

تحياتي


الملفات المرفقة
.rar   اسلام الكبابى.rar (الحجم : 1.18 ك ب / التحميلات : 36)


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

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

ولك ألف شكر
الرد }}}}
تم الشكر بواسطة:
#10
اخي الكريم انا شرحت الكود في الأعلى

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


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

تحياتي


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  النسخ واللصق إلى جدول الفليكس جريد kader30 1 370 06-06-13, 03:49 PM
آخر رد: kader30
  أرجوا المساعدة في النسخ واللصق من جدول الى اخر kader30 0 213 21-04-13, 03:22 PM
آخر رد: kader30
  كيفية حماية قاعدة البيانات على الشبكة المحلية من النسخ والحذف abu jana 6 1,588 13-04-13, 10:33 PM
آخر رد: abulayth

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


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