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

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


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

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

تم تجربه الكود الذى بمشاركتك وذلك بعد نسخ الملف الذى اشرتم اليه فى فولدر system32 ولم يقرا شئ

مع العلم ان جهازى عليه windows7 _32bit والاكسل 2003

وإلى الان لم اصل إلى شئ هل يمكن ان تساعدنى والشرح تفصيلاً ان امكن بعد اذن حضرتك

ولكم منى كثير احترامى وتقديرى ودعائى لجميع اعضاء المنتدى العزيز الصحة والستر

تم تعديل بواسطه admbrk
رابط هذا التعليق
شارك

أخى الغالى ريان أحمد

سيكون لازماً أن أضع الملف المشار إليه فى كل جهاز أريد التعرف على رقم الهارد الحقيقى له

تمام ؟

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

هل لابد كذلك من وضع الملف المشار إليه فى كل من هذه الأجهزة ؟؟ أم أن الكود الجديد لن يعمل إلا فى وجود هذا الملف ؟؟

فى الواقع المسألة اصبحت محيرة أكثر مما قبل

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

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

تم تعديل بواسطه ريان أحمد
رابط هذا التعليق
شارك

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

تم تجربه الكود الذى بمشاركتك وذلك بعد نسخ الملف الذى اشرتم اليه فى فولدر system32 ولم يقرا شئ

مع العلم ان جهازى عليه windows7 _32bit والاكسل 2003

وإلى الان لم اصل إلى شئ هل يمكن ان تساعدنى والشرح تفصيلاً ان امكن بعد اذن حضرتك

ولكم منى كثير احترامى وتقديرى ودعائى لجميع اعضاء المنتدى العزيز الصحة والستر

أخي صراحة أنا لم أجربه في وينداوز 07 عندي وينداوز سرفيس باك 02 وعندي يعمل

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

  • 2 weeks later...

أخى الغالى ريان أحمد

سيكون لازماً أن أضع الملف المشار إليه فى كل جهاز أريد التعرف على رقم الهارد الحقيقى له

تمام ؟

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

هل لابد كذلك من وضع الملف المشار إليه فى كل من هذه الأجهزة ؟؟ أم أن الكود الجديد لن يعمل إلا فى وجود هذا الملف ؟؟

فى الواقع المسألة اصبحت محيرة أكثر مما قبل

السلام عليكم

اخي يوسف

جرب هذا الكود قبل الفورمات فان كان الرقم لا يتغير امكننا التحكم في فتح الملف على كمبيوتر محدد


Sub Abu_Ahmed()

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

End Sub

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

السلام عليكم

أخى الغالى عبد الله

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

وصراحة لا أعرف هل هو رقم الهارد الحقيقى أم لا

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

أخى عبدالله المجرب

تحياتى القلبية لك

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

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

هذا الكود لأحد عباقرة المنتدى للعثور على رقم الهارديسك الحقيقي المدون عله ولقد تأكدتم منه

وذلك بشرط وضع الملف lمع المرفق في system 32

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

الأن أريد أين أصع هذا الكود لكي يمنع دخول الملف في حالة تغيير الجهاز

تم وضع الملف المذكور فى مجلد سيستم 32 وعند تشغيل ملف الإيكسيل والكود لم يقرأ شئ

علماً بأنى جربت على أوفيس 2003 و أوفيس 2010

على ويندوز 7

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

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

GetPhysicalSerial()

أول نتيجة

WD-WMAVU2718655 وهو نفس الرقم الذى إستخرجه برنامج التعرف على مكونات الحاسب

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

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

استاذ يوسف

هذا الملف يعمل بشكل ممتاز على وندوز XP فقط

ولكن فى وندوز 7 لا يعمل نهائى

و اشك فى عدم مقدرتة على نسخ الملف dll الى فولدر system32

وهذه هى المشكلة ارجو ان نجد لها حل

شكراً

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

  • 1 year later...

السلام عليكم

جرب هكذا

أرقام الأجهزة الفعليه تحطها في المتغيرات الثابته A,B,C

غيرها لايعمل البرنامج

Private Const A As String = "A12533225"
Private Const B As String = "B15223662"
Private Const C As String = "TOSHIBA MK6476GSX"
Private Sub Workbook_Open()
Dim s As String
With GetObject("winmgmts:\\.\root\CIMV2")
For Each itm In .ExecQuery("SELECT * FROM Win32_DiskDrive", , 48)
	 s = s & itm.Model
Next itm
End With
If s = A Or s = B Or s = C Then
MsgBox "تم مطابقة الهارد بنجاح ", vbInformation, "تفضل بالدخول"
Else
MsgBox "هذا البرنامج يعمل على أجهزة معينه فقط", vbInformation, "سيتم إغلاق البرنامج"
With ActiveWorkbook
.Close
.Saved = True
End With
Exit Sub
End If
End Sub

 

 

الأستاذ الفاضل ،، تحاتي

ِ

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

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

 

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

 

فما الحل اثابكم الله

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

  • 2 months later...

استاذ 

زاكي بوشلاغم

 

هذا ملف من موقع على النت ملف اكسس يعطى كل بيانات الجهاز

 

ارجو ان يكون المطلوب

 

هذا نفس المعلومات على الاكسل

SystemInfo.rar

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

  • 4 weeks later...

فض لكل هذه المشاكل

 

وجدت هذا الكود على النت يستخرج رقم البروسيسور

 

برجاء التجربة للافادة

عندم استخدمت الملف فى حجرة الكنترول ولدى  5 كمبيوتر وجدت 3 منهم  بنفس الرقم  فهل

 

هذا طبيعى ام هناك خلل ما

 

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

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

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



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information