احمى برنامجك من النسخ

بسم الله الرحمن الرحيم
اخوتى فى الله
كالعاده موضوع جديد و كالعاده مفيش حد بيرد
لكن اعمل ايه لازم اتكلم ولا هتعب
جاي انهاره بموضوع يمكن الاخوه اللى بيعملوا برامج يهمهم
الموضوع انك اخى المبرمج عملت برنامج لاحد من العملاء لديك و تخاف من هذا العميل ان ينشر البرنامج بدون رخصه
ملحوظه الشرح التالى خاص بالفيجوال بيسك 6
1 - سعاتك تعمل ايه تقوم عامل باسوورد للبرنامج
لكن بكل بساطه العميل اللى اشترى منك البرنامج يدى النسخه لزميله و يديله الباسوورد
معملناش حاجه
2 - للناس المتقدمه شويه هتعمل ايه بتستخدم داله اسمها
GetVolumeInformation
و الداله دى موجوده مع الفيجول بيسك
الداله دى تخليك تقدر تجيب السيريال بتاع اى بارتشن على الهارد و تعطيه للعميل على انه اليريال بتاع البرنامج
و تكتب سطرين كود فى البرنامج تخلى البرنامج طول مهو شغال يعمل تست على الهارد و على السيريال بتاع بارتشن معين لو وجد السيريال اللى انت عطيته للعميل = السيريال اللى وجده من التست يشتغل البرنامج غير كده البرنامج يقفل و يبطل يشتغل
طريقه تمام و مضمونه لان العميل مش كل يوم هيغير الهارد
ده كلام عال
لكن ايه عيوب الطريقه دى او بمعنى اصح ايه عيوب الداله دى GetVolumeInformation
ان العميل بمجرد ما يعمل فورمات للبارتيشن اللى سعاتك بتعمل تست على السيريال بتاعه امر الفورمات بمجرد انهائه بيغير السيريال يعنى باظت الحكايه
و تلاقى العميل جايلك تانى يوم يقولك السيريال بتاع البرنامج مش شغال
طب نعمل ايه
هو ده اللى هنشرحه انهارده
داله بسيطه تكتب سطرين فى البرنامج و مهمه الداله دى هى
تجيب السيريال بتاع الهارد نفسه مش بارتشن فيه
لان كل هارد له سيريال خاص بيه و السيريال ده مبيتغيرش حتى لو الهارد اتقسم و اتفرمت من الاول
بكده تضمن انك بتدى للعميل سيريال طول عمر الهارد
السيريال ده مش هيتغير الا اذا العميل غير الهارد
البرنامج 3 اقسام
قسم الاعلان فى موديول

Decleration

Public Declare Function GetSerialNumber Lib "DiskSerial.dll" (ByVal nDrive As Integer, ByVal lpBuffer As String) As Long
Public Declare Function GetModelNumber Lib "DiskSerial.dll" (ByVal nDrive As Integer, ByVal lpBuffer As String) As Long

لاحظ ان كل function فى سطر مش على سطرين

الجزء الخاص بالبرمجه

Private Sub Command1_Click()
Dim HDDserialno As String * 256
Call GetSerialNumber(0, HDDserialno)
Text1 = HDDserialno
End Sub
Private Sub Command2_Click()
Dim HDDModelno As String * 256
Call GetModelNumber(0, HDDModelno)
Text2 = HDDModelno
End Sub

تضع الكود لكل زر

الجزء الخاص بالواجهه

مدرج فى الصوره

احمى برنامجك من النسخ Get-1-2008-alraeq_net_rwk6kc03

احمى برنامجك من النسخ Get-1-2008-alraeq_net_rwk6kc03

و اخيرا ستجدوا فى المرفقات
ملف DiskSerial.dll
من فضلك ضع هذا الملف فى الفولدر
C:\WINDOWS\system32
من مميزات الملفات DL L انه يمكن استدعائها من اى لغه برمجه
و عليه يمكن للغه البرمجه Visual C ان تستدعى هذا ال DLL
و ملف تنفيذى للبرنامج
و طبعا الكود بتاع البرنامج
لتحميل المرفقات

تحميل المرفقات 2

المرفقات مساحتها 40 ك يعنى مش كبيره و مرفوعه على الرابيد شير و fileflyer
تقبلوا تحياتى
احمى برنامجك من النسخ Rolleyes

و هذا هو رابط طريقه من طرق الخوارزميات المبسطه لتقريب الموضوع للمبتدئين
فضلا حمل المرفق من هنا

و هذا رابط لبرنامج لايجاد سيريال البورده
البرنامج تمت برمجته
VB6
الكود منقول طبعا احمى برنامجك من النسخ Biggrin

المرفقات تقريبا 2 ك
مرفوعه على الربيد شير
من فضلك التحميل من هنا

تم تجميع كل الروابط فى رابط واحد
ستجدوا ملف مضغوط به الكود المصدرى لكل من
ايجاد سيريال الهارد و الملفات المرفقه به ملف DLL يرجى و ضعه فى C:\WINDOWS\system32
ايجاد سيريال البورده
طريقه مبسطه من طرق الخوارزميات

zshare
الرابيد شير لارضاء كل الازواق
البقيه تاتى ان شاء الله افضل
دمتم بود

بناء على طلب الاخوه لشرح الخطوات
الشرح موجود داخل ملف المشروع
و مثال بسيط على العمل
للتحميل

و هذا هو المخطط الانسيابى flow chart للبرنامج ارحو ان يكون مفيد فى عمليه الشرح
ملف وورد مرفوع على
file flyer
للتحميل

تم اضافه الشرح بمثال حتى تكون الفكره اوضح
للمزيد نرجو التحميل من هنا
حجم المرفقات 60 ك ب
مرفوعه على
FileFlyer
دمتم بود

زائر

الجوكر كتب:

بس مكان الجوكر دى شلها خالص وياريت تشلها خالص من ام المنتدى

وتحط تلميذك ديفل

تشكر يا المشاغب على الموضوع

والمزيد ان شاء الله من مواضيعك الجديدة

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

موضوع جميل والله يا واد

جارى التجربه تسلم الايادى

» ~*¤®§هنــــا الحل لتحميل جميع برامج + مفاتيح Kaspersky ولجميع النسخ 9-8-7-6 §*)§®-
» حصري البرنامج العملاق فى النسخ الاحتياطي و التصوير Avanquest Perfect Image v12.0.6869 بحجم 148 ميجا