شرح هذا الكود

[محمد الورفلي1]

السلام عليكم

ممكن توضح اكبر لهذا الكود

وهذا رابط الكود

http://www.officena.net/ib/topic/39789/#entry222281

 

سلام عليكم

في الملف المرفق

عد الكود ليصبح هكذا


Sub GetMe()

Dim MySer As String * 99

Call GetSerialNumber(0, MySer)

[E5] = MySer

If [E5] <> "ضع هنا رقم القرص الصلب" Then

MsgBox "عفواً البرنامج غير مسجل", vbCritical, "تنبيه": Application.Quit

End If

End Sub

طبعاً لا تنسى ان تضع رقم القرص الصلب في المكان المحدد ثم ضع في حدث فتح الملف ThisWorkbook


Private Sub Workbook_Open()

RunMe

End Sub

 

[محمد الورفلي1]

للرفع

[أنس دروبي]

السلام عليكم أخي محمد الخازمي 

الكود هذا هو اظهار الرقم التسلسلي الحقيقي الذي لايتغير للقرص الصلب في جهاز الكمبيوتر

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

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

إذا كان هذا طلبك فيرجى مراجعة الملف المرفق فيه أسهل اساليب الحماية وهي إظهار الرقم التسلسلي للوحة الام (motherboard) في جهاز الكمبيوتر 

قم بفتح الملف وبعدها قم بفتحه مرة أخرى على جهاز كمبيوتر أخر سوف يغلق تلقائياً نظراً لعدم التطابق

أتمنى أن أكون قد فهمت المقصود من طلبك 

تقبل مروري وتحياتي

 

 

get motherboard in excel.rar

[محمد الورفلي1]

السلام عليكم

استاذ انس كيف استخرج  رقم اللوحة الام  فكرة ممتازة ممكن الطريقة والشرح بالتفصيل بارك الله فيك

تم تعديل أكتوبر 24, 2015 بواسطه محمد الخازمي

[أنس دروبي]

اخي الكريم محمد الخازمي

الطريقة موجودة في الملف 

افتح محرر الاكواد ولاحظ الكود وقم بنسخه الى ملفك المطلوب

نرجو ان تكون الفكرة قد وصلت

 

[محمد الورفلي1]

السلام عليكم

الفكرة جميلة وشكلها اقوى من حماية الهارد ....

لكن اين اضع رقم اللوحة الام التي اريد المف ان يعمل عليها ياريت لو تضع فيديو للطريقة او صور للشرح

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

وشكراً مقدما

تم تعديل أكتوبر 25, 2015 بواسطه محمد الخازمي

[أنس دروبي]

أخي محمد الخازمي 

كما شرحت وتفضلت هذه طريقة تنفيذ الكود 

أن تقوم بخفض مستوى الحماية عن الملف وتقوم بعمل تحديث للخلية a1  بحيث يجلبلك سريال (لوحة الام)

وبعدها قم بإغلاق الملف وافتحه مرة أخرى إذا كان مطابق يفتح مباشرة 

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

"يعطيك رسالة مفادها أن البرنامج نسخة للعرض فقط كمثال"

طبعاً أنت في ملفك تسطيع إضافة ماتريد في حال عدم التطابق مثلا (اغلاق الملف مع الحفظ أو بدون الحفظ)

وفي هذه الحالة لاتسطيع ابدأ فتح الملف مرة أخرى 

أتمنى أن تكون فكرتي وصلت اليك بشكل صحيح

تقبل تحياتي 

[محمد الورفلي1]

السلام عليكم

استاذ انس تمام نحجت الفكرة

ولكن ظهر لي امر غريب وهو .......... بعد تفعيل الملف على مظر بورد FOX CONN لم يظهر لي رقم بل ظهر   لي علامة    '   وذهبت الي مظر بور نفس الموديل اشتغل الملف ... هنا خطا ان الملف اعتقد انها نفس المظر لقد وضعت لك رقم المظر بود في الخلية A2 لترى بنفسك  ..مع العلم حصلت معي فقط في موديل FOX CONN فقط

 

حماية باللوحة الام.rar

تم تعديل أكتوبر 26, 2015 بواسطه محمد الخازمي