خالد الشاعر قام بنشر أكتوبر 5, 2012 مشاركة قام بنشر أكتوبر 5, 2012 السادة الخبراء مرفق ملف استخراج السريال نبر للهارد الحقيقيى عن طريق معادلة مرفوع من النت للاستفادة للجميع GetPhysical.rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أكتوبر 5, 2012 مشاركة قام بنشر أكتوبر 5, 2012 السلام عليكم عندي تطلع خطا هل عندك تطلع خطا؟؟؟ رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر أكتوبر 5, 2012 الكاتب مشاركة قام بنشر أكتوبر 5, 2012 استاذى عبد الله باقشير يسعدني وجدك و يشرفنى المعادلة عندى سليمة تعطى رقم الهارد رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 5, 2012 مشاركة قام بنشر أكتوبر 5, 2012 (معدل) السلام عليكم عندي تظهر خطأ الويندوز عندي Windows 7 تم تعديل أكتوبر 9, 2012 بواسطه دغيدى رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر أكتوبر 5, 2012 مشاركة قام بنشر أكتوبر 5, 2012 رجاء الإفادة عن نفس الموضوع بخصوص ويندوز 7 رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أكتوبر 5, 2012 مشاركة قام بنشر أكتوبر 5, 2012 ويسعدني ايضا قد يختلف استخدامها من جهاز وآخر والله اعلم رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر أكتوبر 5, 2012 مشاركة قام بنشر أكتوبر 5, 2012 اخوانى المعادلة تقرأ بطريقة صحيحة اعمل على ويندز 7 رابط هذا التعليق شارك More sharing options...
sami salem قام بنشر أكتوبر 6, 2012 مشاركة قام بنشر أكتوبر 6, 2012 بارك الله فيك والمعادلة تعمل عندي على ويندوز 7 واكسل 2007 والشكر لكل من ساهم فى هذا العمل رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر أكتوبر 6, 2012 مشاركة قام بنشر أكتوبر 6, 2012 (معدل) يظهر لى رسالة الإرور دى Uploaded with ImageShack.us تم تعديل أكتوبر 30, 2012 بواسطه دغيدى رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أكتوبر 6, 2012 مشاركة قام بنشر أكتوبر 6, 2012 (معدل) قمت بتجربة الملف على اوفيس 2003 و وندوز XP لكن يظهر خطأ تم تعديل أكتوبر 9, 2012 بواسطه دغيدى رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر أكتوبر 7, 2012 الكاتب مشاركة قام بنشر أكتوبر 7, 2012 اعتقد ان المشكلة مع اوفس 2003 و المعادلة الذى عندة هذه المشكلة يحمل الملف التحويل الخاص ب 2007 انا عندى اوفس 2003 و الملف التحويل ل 2007 ولا يوجد مشكلة مرفق رابط الملف للتجربة و اخبارنا بالناتج http://www.4shared.com/rar/91NqGVIA/FileFormatConverters.html رابط هذا التعليق شارك More sharing options...
أبو ردينة قام بنشر أكتوبر 7, 2012 مشاركة قام بنشر أكتوبر 7, 2012 ماشاء الله تبارك الله اشتغلت عندي تمام على ويندوز 7 - أوفيس 2010 عربي بارك الله فيك أخي الكريم ملحوظة لأساتذتنا الكرام نأمل التكرم بشرح ما هو جديد بهذا الكود و لكم الفضل بعد الله عز و جل مثلا صادفت هنا ReDim و هي من الأشياء الجديدة علي رابط هذا التعليق شارك More sharing options...
أم عبد الله قام بنشر أكتوبر 29, 2012 مشاركة قام بنشر أكتوبر 29, 2012 جميل جداً واشتغل الكود وأعطاني رقم الهارد. بارك الله فيكم وزادكم علما. رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر أكتوبر 29, 2012 مشاركة قام بنشر أكتوبر 29, 2012 الأخـــــــوة الأفـــــــاضل =============================== سلام الله عليكم وكل عــــام وحضراتكم بخير الكود أعطانى هذا الرقم WD-WCANKA323797 علما أن الجهاز به ووندوز 8 وأوفيس 2013 والنظام bit 64 والكود به Win32_PhysicalMedia رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر أكتوبر 30, 2012 مشاركة قام بنشر أكتوبر 30, 2012 أخى دغيدى أعمل كذلك على ويندوز 8 حالياً وأوفيس 2003 و 2010 وكلاهما عربى ولكنها تعطى خطأ ماذا أفعل رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر أكتوبر 30, 2012 مشاركة قام بنشر أكتوبر 30, 2012 بعد عدة تجارب أعطانى هذا الرقم هل هذا هو رقم الهارد وكيف أتأكد من الرقم ؟؟ WD-WMAVU2718655 رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر أكتوبر 30, 2012 مشاركة قام بنشر أكتوبر 30, 2012 إخوتى الأعزاء يجب عمل التالى 1. نسخ الكود المرفق فى موديول Function GetPhysicalSerial() As Variant Dim obj As Object Dim WMI As Object Dim SNList() As String, i As Long, Count As Long Set WMI = GetObject("WinMgmts:") For Each obj In WMI.InstancesOf("Win32_PhysicalMedia") If obj.SerialNumber <> "" Then Count = Count + 1 Next ReDim SNList(1 To Count, 1 To 1) i = 1 For Each obj In WMI.InstancesOf("Win32_PhysicalMedia") SNList(i, 1) = obj.SerialNumber i = i + 1 If i > Count Then Exit For Next GetPhysicalSerial = SNList End Function 2. كتابة المعادلة التالية فى الخلية المراد إظهار رقم الهارد ديسك فيها =GetPhysicalSerial() ستجد رقم الهارد ديسك فى كل خلية تكتب فيها هذه المعادلة والسؤال الآن كيف نتأكد من أن هذا الرقم هو رقم الهارد نفسه الثابت الذى لا يتغير وليس رقم الهارد أو البارتشن المتغير مع كل فورمات يجب أن يقوم أحد بتجربة الكود والإحتفاظ بالرقم ثم مقارنته بعد الفورمات ولكن من الصعب أن نقوم بعملية فورمات لمجرد التأكد من صحة كود لذلك فلنترك الأمر للزمن ومن تجبره الظروف أن يقوم بالفورمات ربما سيكون هو من يؤكد لنا مدى صحة الرقم المستخرج من الكود لكم تحياتى رابط هذا التعليق شارك More sharing options...
حامد يونس قام بنشر أكتوبر 30, 2012 مشاركة قام بنشر أكتوبر 30, 2012 استاذ يوسف جرب هذا الكود و ابلغني باالنتيجة Sub test() Dim s As String With GetObject("winmgmts:\\.\root\CIMV2") For Each itm In .ExecQuery("SELECT * FROM Win32_DiskDrive", , 48) s = s & "SerialNumber: " & itm.SerialNumber & vbCrLf s = s & "Model: " & itm.Model Next itm End With MsgBox s End Sub رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر أكتوبر 30, 2012 مشاركة قام بنشر أكتوبر 30, 2012 (معدل) أحى الكريم / حامد يونس ظهرت لى هذه الرسالة نفس الرقم فى المشاركات السابقةعلما أن الاعدادات 64bit تم تعديل أكتوبر 30, 2012 بواسطه دغيدى رابط هذا التعليق شارك More sharing options...
حامد يونس قام بنشر أكتوبر 30, 2012 مشاركة قام بنشر أكتوبر 30, 2012 الاستاذ دغيدي ما المشكلة اذن رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر أكتوبر 30, 2012 مشاركة قام بنشر أكتوبر 30, 2012 أحى الكريم / حامد يونس شكرا لكم نريد التأكيد قبل وبعد الفورمات رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر أكتوبر 30, 2012 مشاركة قام بنشر أكتوبر 30, 2012 بالفعل إستخرج الكود الأخير نفس رقم الكود السابق وليس فقط سيريال الهارد بل ايضاً سعته وموديله ونوع كابل الربط مع البوردة مشكور حامد بك يونس وهذا يعود بنا يا أستاذ دغيدى للموضوع الآخر بخصوص إستخدام رقم الهارد فى كود لعدم فتح الملف إلا على جهاز أو أجهزة معينة فالرجاء من سيادتكم ضم هذا الموضوع مع ذلك ومرفق لينك الموضوع الآخر ليكون الموضوع متكامل http://www.officena.net/ib/index.php?showtopic=43800 وسواء دمج هذا بذال أو ذاك بهذا فالأمر سيان خاصة وأن معظم الردود بالموضوعين لنفس الأعضاء رابط هذا التعليق شارك More sharing options...
Akram Galal قام بنشر يناير 19, 2013 مشاركة قام بنشر يناير 19, 2013 السادة الأفاضل أريد أن يظهر السريال في textbox وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
ابن بنها قام بنشر يناير 19, 2013 مشاركة قام بنشر يناير 19, 2013 (معدل) استاذ يوسف جرب هذا الكود و ابلغني باالنتيجة Sub test() Dim s As String With GetObject("winmgmts:\\.\root\CIMV2") For Each itm In .ExecQuery("SELECT * FROM Win32_DiskDrive", , 48) s = s & "SerialNumber: " & itm.SerialNumber & vbCrLf s = s & "Model: " & itm.Model Next itm End With MsgBox s End Sub نسخته في موديول ماذا افعل بعد ذلك حتى يظهر السريال تم تعديل يناير 19, 2013 بواسطه ابن بنها رابط هذا التعليق شارك More sharing options...
ابن بنها قام بنشر يناير 23, 2013 مشاركة قام بنشر يناير 23, 2013 للرفع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان