بسم الله الرحمن الرحيم

لو تسمحو يا اخواني الاعزاء

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

ولكن اخبرني احد الاصدقاء ان اقوم باحضا رها عن طريق الفيجوال بيسك

فهل يستطيع احدكم ان يفيدنا بشيء

وجزاكم الله كل خير

السلام عليكم ..........


هذه طريقة لحماية برامجك من العمل على أجهزة غير الأجهزة التي تحددها أنت
فكرة البرنامج:
نعلم أن كل هارد له رقم متسلسل خاص به (serial no.)
و نستطيع أن نأخذ هذالرقم من صمن برنامج فجوال بيسك
:ما عليك إلا أن: تختار إحدى الطريقتين التاليتين
1- (مستحسن):
تفتح البرنامج التالي في الجهاز الذي تريد من البرنامج السماح
بالعمل لديه و تضع رقم الهارد الظاهر في الرسالة في الكود أدناه
2- (غير مستحسن):
يمكنك أن تخرج الهارد من الجهاز و تأخذ الرقم المتسلسل من الورقة الملصقة عليه
:وتكون كالتالي
serial no. ???????
:وهذا برنامج لمعرفة الرقم المتسلسل للهارد

:التصريحات
----------------------------------------------------------------------------------------------------------------
Private Const MAX_FILENAME_LEN = 256
Private Declare Function GetVolumeInformation& Lib "kernel32" Alias "GetVolumeInformationA" _
(ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String, _
ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, _
lpMaximumComponentLength As Long, lpFileSystemFlags As Long, _
ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long)

main function

Public Function GetSerialNumber(sDrive As String) As Long
Dim ser As Long
Dim s As String * MAX_FILENAME_LEN
Dim s2 As String * MAX_FILENAME_LEN
Dim i As Long
Dim j As Long
Call GetVolumeInformation(sDrive + ":\" & Chr$(0), s, MAX_FILENAME_LEN, ser, i, j, s2, MAX_FILENAME_LEN)
GetSerialNumber = ser
End Function
----------------------------------------------------------------------------------------------------------------
الآن انتهينا من التصريح عن المتحولات المستخدمة
و هذا الأمر الذي سيعمل على أخذ الرقم المتسلسل للهارد
--------------------------------
GetSerialNumber("c")
--------------------------------
والآن نضع الأمر السابق في الحدث form_load
:كالتالي
--------------------------------
private sub form_load()
msgbox GetSerialNumber("c")
end sub
--------------------------------


:و لاستخدامه في حماية برنامجك يمكنك أن تستخدم هذا الكود

----------------------------------------------------
if GetSerialNumber("c") <> "رقم الهارد الذي سيسمح للبرنامج بالعمل لديه" then
msgbox("هذا البرنامج لا يعمل على هذا الجهاز")
end
end if
----------------------------------------------------

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

و السلام عليكم

اخى الكريم هذا الموضوع منقول ولم اقم بتجربته شخصيا
اتمنى ان يفيدك

بسم الله الرحمن الرحيم

كل الشكر لك اخي وانا اسف على التاخر في الرد لكن اخلينا واحده واحده

انا عندي البرنامج جاهز على الفيجوال بيسك وحطيت البرنامج هذا في القرص D

واول ما افتحه يطلع لي رقم الهادر بشكل طبيعي

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

اما اذا كان مختلف فتضهر رسالة الخطى

ممكن توضحها كيف تكون

وجزاك الله كل خير

اخى الكريم

السلام عليكم ,,,,

فى البدايه لابد ان تحدد طبيعة الحمايه هلى هى عن طريق ٍVolume Serial و لا HDD Serial لان كلاهما مختلف بالنسبه لل ٍVolume Serial فهو يتغير بتغير البارتشن او الفوليوم اما الثانى فهو ثابت على الهرد كله.

لقد قمت بارسال رساله على الخاص من فضلك قم بمراجعة صندوق الوارد لديك

بسم الله الرحمن الرحيم

كل الشكر لك اخي العزيز وانا جدا اسف على التاخير في الرد عليك ولا ادري ما هو السبب عندما ادخل للموقع الاقية مغلق فهل الخلل عندي ولا من الموقع نفسة

المهم

كل الشكر للردود

الطريقة في معرفة رقم الهارد سهله وباكثر من طريقة

لكن كيف اجعل الاوراكل تستطيع ان تقارن بين الرقم المكتوب في التكست الي اكتبه بنفسي وبين رقم الهادر لمعرفة تطابقة اولا

مثلا انا الان عرفت ان رقم الهادر هو 123 اريد الان ان اعمل تكستين التكست الاول ياخذ القيمة من ملف الفيجوال بيسك الذي اضهر رقم الهادر 123

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

واكتب الشرط لو ان التكست رقم 1 يساوي التكست رقم 2 اذن انتقل للشاشة الرئيسية

وفي حالة ان البرنامج انتقل الى جهاز اخر وكان ملف الفيجوال بيسك اخذ رقم الهادر الجديد وهو 456

فيقوم بالمقارنة السابقة ويجدها غير متطابقة فيقوم بالخروج من البرنامج

ارجو اني اوصلت الفكره

ولك خالص الشكر والتقدير

وجزاك الله كل خير