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

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

قام بنشر (معدل)

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

تم تجربه الكود الذى بمشاركتك وذلك بعد نسخ الملف الذى اشرتم اليه فى فولدر 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...
  • 4 weeks later...
قام بنشر

 

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

 

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

 

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

 

 

شكرا جزاك الله خير

 

شكرا جزيلا وتم به فض  موضوع  الهارد

قام بنشر

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

 

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

 

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

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

 

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

 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information