ريان أحمد قام بنشر نوفمبر 8, 2012 مشاركة قام بنشر نوفمبر 8, 2012 أخي يوسف جرب الكود الذي قي مشاركتي مضمون 100 ب100 رابط هذا التعليق شارك More sharing options...
عادل ابوزيد قام بنشر نوفمبر 8, 2012 مشاركة قام بنشر نوفمبر 8, 2012 (معدل) الاخ العزيز احمد تم تجربه الكود الذى بمشاركتك وذلك بعد نسخ الملف الذى اشرتم اليه فى فولدر system32 ولم يقرا شئ مع العلم ان جهازى عليه windows7 _32bit والاكسل 2003 وإلى الان لم اصل إلى شئ هل يمكن ان تساعدنى والشرح تفصيلاً ان امكن بعد اذن حضرتك ولكم منى كثير احترامى وتقديرى ودعائى لجميع اعضاء المنتدى العزيز الصحة والستر تم تعديل نوفمبر 8, 2012 بواسطه admbrk رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر نوفمبر 9, 2012 الكاتب مشاركة قام بنشر نوفمبر 9, 2012 أخى الغالى ريان أحمد سيكون لازماً أن أضع الملف المشار إليه فى كل جهاز أريد التعرف على رقم الهارد الحقيقى له تمام ؟ طيب فى حالة التوصل للكود الذى سيقوم بالسماح بفتح ملف ما فى أجهزة معينة دون غيرها هل لابد كذلك من وضع الملف المشار إليه فى كل من هذه الأجهزة ؟؟ أم أن الكود الجديد لن يعمل إلا فى وجود هذا الملف ؟؟ فى الواقع المسألة اصبحت محيرة أكثر مما قبل رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر نوفمبر 9, 2012 مشاركة قام بنشر نوفمبر 9, 2012 (معدل) بمأنك تضع البرنامج في جهاز معين تأخذ معك الملف وتحصل على الرقم الحقيقي للهارد ديسك وتضعه في الكود ثم تترك البرنامج يعمل عليه المستخدمين في ذلك الجهاز وعند مجاولة نقله لجهاز آخر لا يعمل إلا بحضورك لكي تستبدل الرقم الموجود في الكود تم تعديل نوفمبر 9, 2012 بواسطه ريان أحمد رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر نوفمبر 9, 2012 مشاركة قام بنشر نوفمبر 9, 2012 الاخ العزيز احمد تم تجربه الكود الذى بمشاركتك وذلك بعد نسخ الملف الذى اشرتم اليه فى فولدر system32 ولم يقرا شئ مع العلم ان جهازى عليه windows7 _32bit والاكسل 2003 وإلى الان لم اصل إلى شئ هل يمكن ان تساعدنى والشرح تفصيلاً ان امكن بعد اذن حضرتك ولكم منى كثير احترامى وتقديرى ودعائى لجميع اعضاء المنتدى العزيز الصحة والستر أخي صراحة أنا لم أجربه في وينداوز 07 عندي وينداوز سرفيس باك 02 وعندي يعمل رابط هذا التعليق شارك More sharing options...
عادل ابوزيد قام بنشر نوفمبر 10, 2012 مشاركة قام بنشر نوفمبر 10, 2012 اخى ريان احمد شكراً على ردك السريع والاهتمام مع خالص حبى وتقديرى ودعائى بالصحة العافية والستر لك ولجميع اعضاء المنتدى رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر نوفمبر 10, 2012 مشاركة قام بنشر نوفمبر 10, 2012 شكرا لك هذا من واجبنا كأعضاء في المنتدى نساعد الكل على حسب إستطاعتنا رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر نوفمبر 21, 2012 مشاركة قام بنشر نوفمبر 21, 2012 أخى الغالى ريان أحمد سيكون لازماً أن أضع الملف المشار إليه فى كل جهاز أريد التعرف على رقم الهارد الحقيقى له تمام ؟ طيب فى حالة التوصل للكود الذى سيقوم بالسماح بفتح ملف ما فى أجهزة معينة دون غيرها هل لابد كذلك من وضع الملف المشار إليه فى كل من هذه الأجهزة ؟؟ أم أن الكود الجديد لن يعمل إلا فى وجود هذا الملف ؟؟ فى الواقع المسألة اصبحت محيرة أكثر مما قبل السلام عليكم اخي يوسف جرب هذا الكود قبل الفورمات فان كان الرقم لا يتغير امكننا التحكم في فتح الملف على كمبيوتر محدد Sub Abu_Ahmed() MsgBox CreateObject("Scripting.FileSystemObject").GetDrive("c:\").serialnumber End Sub رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر نوفمبر 22, 2012 مشاركة قام بنشر نوفمبر 22, 2012 للرفع رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر نوفمبر 22, 2012 الكاتب مشاركة قام بنشر نوفمبر 22, 2012 السلام عليكم أخى الغالى عبد الله الكود أعطانى رقم جديد مختلف عن كل الأرقام التى كانت تظهر لى عند محاولة معرفة رقم الهارد من قبل وصراحة لا أعرف هل هو رقم الهارد الحقيقى أم لا رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر نوفمبر 23, 2012 مشاركة قام بنشر نوفمبر 23, 2012 أخي يوسف هل يتغير بالفورمات رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر نوفمبر 23, 2012 الكاتب مشاركة قام بنشر نوفمبر 23, 2012 أخى عبدالله المجرب تحياتى القلبية لك صراحة لقد قمت بعمل فورمات مرتين خلال الشهر الماضى وليس عندى إستعداد لعمل فورمات مرة أخرى فى الوقت الراهن رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر نوفمبر 24, 2012 مشاركة قام بنشر نوفمبر 24, 2012 الكود الذي في مشاركتي رقم لا يتغير بالفورمات لأنه رقم التسلسلي الذي مكتوب على ظهر القرض الصلب عند شراءه لكن المشكل يكمن في ملف من نوع dll رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر نوفمبر 25, 2012 الكاتب مشاركة قام بنشر نوفمبر 25, 2012 هذا الكود لأحد عباقرة المنتدى للعثور على رقم الهارديسك الحقيقي المدون عله ولقد تأكدتم منه وذلك بشرط وضع الملف lمع المرفق في system 32 ------------------------------- الأن أريد أين أصع هذا الكود لكي يمنع دخول الملف في حالة تغيير الجهاز تم وضع الملف المذكور فى مجلد سيستم 32 وعند تشغيل ملف الإيكسيل والكود لم يقرأ شئ علماً بأنى جربت على أوفيس 2003 و أوفيس 2010 على ويندوز 7 علماً بأنى عن طريق برنامج للتعرف على مكونات الحاسب تفصيلياً تم إستخراج رقم الهارد الحقيقى المدون عليه وبمطابقته بالأرقام التى حصلت عليها من محاولات سابقة بالأكواد وجد مطابقاً لما تم الحصول عليه بالكود المرتبط بالمعادلة GetPhysicalSerial() أول نتيجة WD-WMAVU2718655 وهو نفس الرقم الذى إستخرجه برنامج التعرف على مكونات الحاسب ولكن الغريب أن نفس الكود اصبح يعطينى رقم مختلف بعد الفورمات مع أنه أعطانى الرقم المدون على الهارد فى محاولة سابقة رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر نوفمبر 25, 2012 مشاركة قام بنشر نوفمبر 25, 2012 استاذ يوسف هذا الملف يعمل بشكل ممتاز على وندوز XP فقط ولكن فى وندوز 7 لا يعمل نهائى و اشك فى عدم مقدرتة على نسخ الملف dll الى فولدر system32 وهذه هى المشكلة ارجو ان نجد لها حل شكراً رابط هذا التعليق شارك More sharing options...
hanymoaty قام بنشر أبريل 18, 2014 مشاركة قام بنشر أبريل 18, 2014 السلام عليكم جرب هكذا أرقام الأجهزة الفعليه تحطها في المتغيرات الثابته 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 فما الحل اثابكم الله رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر أبريل 20, 2014 مشاركة قام بنشر أبريل 20, 2014 فض لكل هذه المشاكل وجدت هذا الكود على النت يستخرج رقم البروسيسور برجاء التجربة للافادة ProcessorInfo.rar 1 رابط هذا التعليق شارك More sharing options...
hanymoaty قام بنشر أبريل 25, 2014 مشاركة قام بنشر أبريل 25, 2014 فض لكل هذه المشاكل وجدت هذا الكود على النت يستخرج رقم البروسيسور برجاء التجربة للافادة شكرا جزاك الله خير رابط هذا التعليق شارك More sharing options...
زاكي بوشلاغم قام بنشر مايو 2, 2014 مشاركة قام بنشر مايو 2, 2014 كيف اعرف ارقام حاسوبي رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر مايو 2, 2014 مشاركة قام بنشر مايو 2, 2014 استاذ زاكي بوشلاغم هذا ملف من موقع على النت ملف اكسس يعطى كل بيانات الجهاز ارجو ان يكون المطلوب SystemInfo.rar رابط هذا التعليق شارك More sharing options...
المشاغب الصغير قام بنشر مايو 2, 2014 مشاركة قام بنشر مايو 2, 2014 موضوع ممتاز جدا لكن لو حبيت اني افعل البرنامج فعلا علي الجهاز الاخر ؟؟؟ رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يوليو 9, 2014 مشاركة قام بنشر يوليو 9, 2014 استاذ زاكي بوشلاغم هذا ملف من موقع على النت ملف اكسس يعطى كل بيانات الجهاز ارجو ان يكون المطلوب هذا نفس المعلومات على الاكسل SystemInfo.rar رابط هذا التعليق شارك More sharing options...
منير لبيب قام بنشر أغسطس 4, 2014 مشاركة قام بنشر أغسطس 4, 2014 فض لكل هذه المشاكل وجدت هذا الكود على النت يستخرج رقم البروسيسور برجاء التجربة للافادة شكرا جزاك الله خير شكرا جزيلا وتم به فض موضوع الهارد رابط هذا التعليق شارك More sharing options...
منير لبيب قام بنشر أغسطس 5, 2014 مشاركة قام بنشر أغسطس 5, 2014 فض لكل هذه المشاكل وجدت هذا الكود على النت يستخرج رقم البروسيسور برجاء التجربة للافادة عندم استخدمت الملف فى حجرة الكنترول ولدى 5 كمبيوتر وجدت 3 منهم بنفس الرقم فهل هذا طبيعى ام هناك خلل ما رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.