[معلومات العضو nagati]

بسم الله الرحمن الرحيم
اخوتى فى الله
كالعاده موضوع جديد و كالعاده مفيش حد بيرد
لكن اعمل ايه لازم اتكلم ولا هتعب
جاي انهاره بموضوع يمكن الاخوه اللى بيعملوا برامج يهمهم
الموضوع انك اخى المبرمج عملت برنامج لاحد من العملاء لديك و تخاف من هذا العميل ان ينشر البرنامج بدون رخصه
ملحوظه الشرح التالى خاص بالفيجوال بيسك 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


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

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

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


[عزيزي الزائر يتوجب عليك التسجيل لمشاهدة الروابط .. للتسجيل فضلاً اضغط هنا]

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

[عزيزي الزائر يتوجب عليك التسجيل لمشاهدة الروابط .. للتسجيل فضلاً اضغط هنا]

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

و هذا هو رابط طريقه من طرق الخوارزميات المبسطه لتقريب الموضوع للمبتدئين
[عزيزي الزائر يتوجب عليك التسجيل لمشاهدة الروابط .. للتسجيل فضلاً اضغط هنا]

و هذا رابط لبرنامج لايجاد سيريال البورده
البرنامج تمت برمجته
VB6
الكود منقول طبعا
المرفقات تقريبا 2 ك
مرفوعه على الربيد شير
[عزيزي الزائر يتوجب عليك التسجيل لمشاهدة الروابط .. للتسجيل فضلاً اضغط هنا]


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

[عزيزي الزائر يتوجب عليك التسجيل لمشاهدة الروابط .. للتسجيل فضلاً اضغط هنا][عزيزي الزائر يتوجب عليك التسجيل لمشاهدة الروابط .. للتسجيل فضلاً اضغط هنا] لارضاء كل الازواق
البقيه تاتى ان شاء الله افضل
دمتم بود

بناء على طلب الاخوه لشرح الخطوات
الشرح موجود داخل ملف المشروع
و مثال بسيط على العمل
[عزيزي الزائر يتوجب عليك التسجيل لمشاهدة الروابط .. للتسجيل فضلاً اضغط هنا]

و هذا هو المخطط الانسيابى flow chart للبرنامج ارحو ان يكون مفيد فى عمليه الشرح
ملف وورد مرفوع على
file flyer
[عزيزي الزائر يتوجب عليك التسجيل لمشاهدة الروابط .. للتسجيل فضلاً اضغط هنا]

تم اضافه الشرح بمثال حتى تكون الفكره اوضح
للمزيد نرجو [عزيزي الزائر يتوجب عليك التسجيل لمشاهدة الروابط .. للتسجيل فضلاً اضغط هنا]ا
حجم المرفقات 60 ك ب
مرفوعه على
FileFlyer
دمتم بود

منقول للافادة

---

hpln fvkhl[; lk hgkso