استخراج معلومات النظام بالفيجوال بيسك للتطبيقات

[أ / محمد صالح]

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

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

أثناء تجولي في الإنترنت وجدت ملفاً يعرض معلومات النظام ومنها مثلا

سيريال الهارد ديسك

رقم المعالج

رقم المازر بورد

وغيرها الكثير

فأحببت مشاركتكم فيه

....

أترككم معه

وأتمنى تجربة الملف على أنظمة تشغيل مختلفة

يعني xp و 7 و vista وسيفن و 8 و 8.1 و 10 وينندوز بالنواة  32 أو 64

وإخباري بالنتيجة

SystemInfo.rar

[أبو آدم]

جزيت خيراً أخي العزيز

ًWindows 7 Ultimate

النتيجة جيدة

.....................

[أ / محمد صالح]

شكرا لمرورك أخي الكريم نارت

ولكن ياريت معلومات تفصيلية

يعني هل ظهر عندك رقم المازر بورد؟ أم لا؟

نسختك 32bit أم 64bit ؟

[ابو ياسر]

كله تمام

وهذه صورة

[أ / محمد صالح]

الحمد لله

ولكن أتمنى أن يجرب الكود أحد الإخوة الذين يملكون أنظمة من نوع 64bit

[ابوخليل]

السلام عليكم

Windows 7 Ultimat 64bit

والنتيجة %

جزيت خيرا

[أ / محمد صالح]

السلام عليكم

Windows 7 Ultimat 64bit

والنتيجة %

جزيت خيرا

سعيد جدا بتواصلك أهي الكريم أبوخليل

إذا كانت النتيجة لديك صفر بالمائة ولم يظهر شيء

فنريد نحن العرب تعديل الكود ليعرض ما يناسب نسخ 64bit

هل تشترك معي فيها؟

حاول أن تعدل في الكود الخاص بالدالة وتستبدل

Win32_

بما يناسبك

Win64_

وجرّب هل ستنفع أو لا؟؟

[ابوخليل]

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

[الصمت المتحدث]

غاية في الروعة أخي صالح

مميز كعادتك بارك الله فيك على كل ما تقدمه من علم ومعرفة

جزاك الله ألف خير

[محمد طاهر عرفه]

السلام عليكم

Windows 7 home premium

64 bit

و يعمل بكفاءة

[محمد طاهر عرفه]

و ايضا يعمل جيدا على الاكس بي

[أ / محمد صالح]

الحمد لله

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

ونحن متأكدون من عمله على كل أنظمة تشغيل ويندوز

للعلم رقم الهارد ديسك الذي يحضره الكود لا يتغير بعد الفورمات كما هو الحال في هذا الكود

CreateObject("Scripting.FileSystemObject").GetDrive("c:\").serialnumber

ولكن عذراً لم أتبين من الإخوة

هل الكود يعمل في ويندوز 64 بت بدون تغيير الكود إلى Win64_

أم احتاج الأمر لتغييرها؟؟!!

[الصمت المتحدث]

للعلم رقم الهارد ديسك الذي يحضره الكود لا يتغير بعد الفورمات كما هو الحال في هذا الكود

هل يعني هذا أنه يمكن استغلاله في تسجيل البرنامج ؟

لو صحيح يا ريث مثال توضيحي وشكرا

[أبو آدم]

أخي محمد

أنا لم أغير شيئاً على الكود

واليك ما لديّ

[محمد طاهر عرفه]

انا ايضا لم أغير شيء

[عبدالله المجرب]

وهذا ما لدي

ويندوز 7 التمت 32

والنتيجة رائعة

[الصمت المتحدث]

شيء جميل ورائع

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

أتمنى أن نصل اليها في ردودكم القادمة

وشكرا

[الصمت المتحدث]

الحمد لله

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

ونحن متأكدون من عمله على كل أنظمة تشغيل ويندوز

للعلم رقم الهارد ديسك الذي يحضره الكود لا يتغير بعد الفورمات كما هو الحال في هذا الكود

CreateObject("Scripting.FileSystemObject").GetDrive("c:\").serialnumber

ولكن عذراً لم أتبين من الإخوة

هل الكود يعمل في ويندوز 64 بت بدون تغيير الكود إلى Win64_

أم احتاج الأمر لتغييرها؟؟!!

ياريث أخي محمد صالح لو مثال وربنا يبارك لنا فيك

[أبو عبد الرحمن سعيد]

ياباشا تسلم الايادى وميت فل و 14

ولكن ماهى الطريقة المثلى لرفع تلك الصورة المصغرة

نرجو الافادة ..... وجزاكم الله خيرا أخى محمد صالح

[nono2011]

السلام عليكم

اخي mas123

اولا العمل رائع وأكثر .... سلمت يداك يا بطل ...

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

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

[الصمت المتحدث]

للرفع

[الصمت المتحدث]

الحمد لله

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

ونحن متأكدون من عمله على كل أنظمة تشغيل ويندوز

للعلم رقم الهارد ديسك الذي يحضره الكود لا يتغير بعد الفورمات كما هو الحال في هذا الكود

CreateObject("Scripting.FileSystemObject").GetDrive("c:\").serialnumber

ولكن عذراً لم أتبين من الإخوة

هل الكود يعمل في ويندوز 64 بت بدون تغيير الكود إلى Win64_

أم احتاج الأمر لتغييرها؟؟!!

رجاء الى الاخوة كل من شارك في الموضوع المرجو الافادة في كيفية استغلال هذا المثال

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

أن رقم القرص الصلب يتغير عند اعادة تنصيب النظام لكن في الرد المقتبس قال أخي محمد صالح أنه لا يمكن أن يتغير حتى بعد الفورمات

بعد هذه العبارة انشددت لهذا الموضوع نظرا للخدمة الرائعة التي يقدمها

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

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

وشكرا

[safwatscc]

للرفع

[عبدالله باقشير]

السلام عليكم

اخي mas123

اولا العمل رائع وأكثر .... سلمت يداك يا بطل ...

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

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

 

نم تحويل الكود على فورم الاكسل

المرفق 2003

SystemInfo.rar

[علي المصري]

Windows 8 Pro