كود تحديد سريال القرص

مغلق

بدأه khaled_top_com في 16 نوفمبر 2006 · 19 رد · 1,612 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#116 نوفمبر 2006 في 17:38 صاحب الموضوع

ايرد كود تحديد رقم التعريف (Serial Number) لاى قرص سوء هارد او اسطونه بشرط انى اكتب فى التكسيت بوكس نوع الدريف سى او دى او السى دى روم

#216 نوفمبر 2006 في 19:15

ما شاء الله عليك انت قاعد تكتب بشجرة ولا ايش :blink:

sn.zip

ليس كل ما يتمناه المرء يدركه

#316 نوفمبر 2006 في 21:11

العقده كتب:
ما شاء الله عليك انت قاعد تكتب بشجرة ولا ايش :blink:

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

#416 نوفمبر 2006 في 22:03

:lol:

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

براحه يابني على الكيبورد .... وانتبه عن تكرر الموضوع !

تم تعديل هذه المشاركة بواسطة HnHn في 16 نوفمبر 2006 في 22:04

سجل ايميلك هنا

ليصلك كل ما هو مفيد في عالم البرمجة

#516 نوفمبر 2006 في 22:41

غير حرف محرك قرص الاسطوانه في الــ Combobox بالبرنامج بما يتوافق مع حرف محرك قرص الاسطوانه في جهازك .. وبعدين ذيك الساعة قول (بس دا مفهوش رقم الاسطونه كل ده الهارد ديسك)

تم تعديل هذه المشاركة بواسطة العقده في 16 نوفمبر 2006 في 22:46

ليس كل ما يتمناه المرء يدركه

#616 نوفمبر 2006 في 23:16

انا شغلت البرنامج مطلعش غير اربعه برتيشان بس انا عندى اكتر من كده انا عايز البرنامج يحدد مكان السى دى روم ويطللعى السريال اوتوماتيكا معلش انا تعبتك معايا والمره دى انا كتب بجزع شجره اهو

#717 نوفمبر 2006 في 00:16

تفضل حبيبنا ولا يهمك :

sn.zip

ليس كل ما يتمناه المرء يدركه

#817 نوفمبر 2006 في 11:47

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

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

#917 نوفمبر 2006 في 12:05

اخى الفاضل انا لما شغلت البرنامج لقيته بيطلع (Volume Serial) انا اللى محتاجه سريال السى دى

#1017 نوفمبر 2006 في 14:12

من قال لا اعلم فقد افتى ...

ليس كل ما يتمناه المرء يدركه

#1117 نوفمبر 2006 في 15:28

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

Private Sub Command1_Click()

Dim obj_FSO As Object, obj_Drive As Object

Set obj_FSO = CreateObject("Scripting.FileSystemObject")

Set obj_Drive = obj_FSO.GetDrive("c:\")

Text2 = obj_Drive.SerialNumber

'''''''''''

If Text2 <> Text1 Then

End

End If

End Sub

#1217 نوفمبر 2006 في 19:01

اخر ملف وضعته لك في المشاركه يحتوي على اكتشاف محرك الاقراص المضغوطه السيدي روم آليا .

ليس كل ما يتمناه المرء يدركه

#1318 نوفمبر 2006 في 09:30

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

#1418 نوفمبر 2006 في 22:27

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

يكون مطابق تماما .. تماما .. تماما .. لنفس محتويات السيدي الاصلي وبنفس رقم السيريل .

ليس كل ما يتمناه المرء يدركه

#1519 نوفمبر 2006 في 08:49

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

#1619 نوفمبر 2006 في 13:11

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

ليس كل ما يتمناه المرء يدركه

#1722 نوفمبر 2006 في 09:23

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

#1826 نوفمبر 2006 في 18:39

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

ليس كل ما يتمناه المرء يدركه