اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

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

رقم المعالج

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

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

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

....

أترككم معه

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

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

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

SystemInfo.rar

  • Like 4
رابط هذا التعليق
شارك

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

الحمد لله

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

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

Windows 7 Ultimat 64bit

والنتيجة %

جزيت خيرا

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

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

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

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

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

Win32_

بما يناسبك

Win64_

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

  • Like 1
رابط هذا التعليق
شارك

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

post-49409-0-01891800-1324359970_thumb.j

post-49409-0-63345400-1324359984_thumb.j

رابط هذا التعليق
شارك

الحمد لله

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

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

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


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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

الحمد لله

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

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

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


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

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

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

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

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

رابط هذا التعليق
شارك

السلام عليكم

اخي mas123

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

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

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

رابط هذا التعليق
شارك

  • 3 weeks later...

الحمد لله

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

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

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


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

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

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

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

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

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

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

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

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

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

وشكرا

رابط هذا التعليق
شارك

  • 2 years later...

السلام عليكم

اخي mas123

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

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

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

 

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

المرفق 2003

SystemInfo.rar

  • Thanks 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information