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

بدأه المستفيد نت في 16 مارس 2008 · 1 رد · 567 مشاهدة · في قواعد بيانات Microsoft Access

مشاركة: واتساب X فيسبوك تيليجرام

#116 مارس 2008 في 10:46 صاحب الموضوع

Sub auto_open()

Dim obj_FSO As Object, obj_Drive As Object, t, p

Set obj_FSO = CreateObject("Scripting.FileSystemObject")

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

MsgBox obj_Drive.SerialNumber, vbExclamation, "ارسل هذا الرقم لموزع البرنامج لتفعيل الاشتراك "

t = "العنوان"

p = "أدخل رقم التسجيل الخاص بك"

If InputBox(p, t) = ((obj_Drive.SerialNumber * 3) + 239) * 2 - 1698532987 Then

MsgBox "اختر العبارة ", vbInformation, "العنوان"

Else

MsgBox ".. عفوا .. يجب عليك الاشتراك في البرنامج .. "

ThisWorkbook.Save

Application.Quit

----------------------------------------------------------------------------------------------

سؤالي : كيف اعرف معادلة رقم المنتج لأي جهاز عن طريق الكود السابق طبعا ؟ وشكرا لكم

وماهو الرقم الناتج عن هذه المعادلة

تم تعديل هذه المشاركة بواسطة المستفيد نت في 16 مارس 2008 في 11:08

#221 نوفمبر 2010 في 23:36

السلام عليكم :)

هذه معادلة رياضية بسيطة من الدرجة الأولى.

أولاً لنقم بتحديد الفرضيات:

- بما أن السطر قبل الأخير يتحدث عن المصنفات ThisWorkbook

إذن الكود مكتوب في برنامج الأكسل بواسطة VBA.

حسناً إذن :)

- نقوم بإضافة s كمتغير بجانب t و p فسيصبح كود السطر الثاني كالتالي:

Dim obj_FSO As Object, obj_Drive As Object, t, p, s

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

قبل تعريف t وp لصبح التعريف كالتالي:

s = ((obj_Drive.SerialNumber * 3) + 239) * 2 - 1698532987

t = "العنوان"

p = "أدخل رقم التسجيل الخاص بك، والذي يساوي: " & s

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

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

===============================

أعرف أن هذا الموضوع قديم، لكن لا تنس وضع end if نهاية كل جملة شرطية متعددة الأسطر، كذلك نسيت وضع نهاية المعرف end sub بعد Application.Quit

===============================

مع تمنياتي لك بالاستفادة!

والسلام عليكم ورحمة الله وبركاته :)