hosslom قام بنشر مارس 27, 2017 قام بنشر مارس 27, 2017 (معدل) السلام عليكم أعضاء المنتدي الكرام محتاج كود اكسس 2010 لعرض سيريال الهارد الحقيقي الثابت الذي لا يتغير حتي لو عملنا فورمات للهارد جربت برامج كتير موجوده اكسس ولكن دون جدوي لايظهر الرقم الحقيقي جزاكم الله كل خير تم تعديل مارس 29, 2017 بواسطه ابوخليل تعديل العنوان 1
Shivan Rekany قام بنشر مارس 27, 2017 قام بنشر مارس 27, 2017 7 دقائق مضت, hosslom said: السلام عليكم أعضاء المنتدي الكرام محتاج كود اكسس 2010 لعرض سيريال الهارد الحقيقي الثابت الذي لا يتغير حتي لو عملنا فورمات للهارد جربت برامج كتير موجوده اكسس ولكن دون جدوي لايظهر الرقم الحقيقي جزاكم الله كل خير اليك هذا الرابط لعل تستفيد منه 2
hosslom قام بنشر مارس 27, 2017 الكاتب قام بنشر مارس 27, 2017 لقد اطلعت علي المثال الموجود في الرابط ولكنه يعرض السيريال للدرايف وهو يتغير مع الفورمات للهارد
Shivan Rekany قام بنشر مارس 27, 2017 قام بنشر مارس 27, 2017 (معدل) Dim obj_FSO As Object, obj_Drive As Object Set obj_FSO = CreateObject("Scripting.FileSystemObject") Set obj_Drive = obj_FSO.GetDrive("c:\") MsgBox obj_Drive.SerialNumber Set obj_FSO = Nothing Set obj_Drive = Nothing تم تعديل مارس 27, 2017 بواسطه Shivan Rekany 1
hosslom قام بنشر مارس 27, 2017 الكاتب قام بنشر مارس 27, 2017 نعم اخي هذا الكود يعرض السيريال للدرايف وليس السيريال الحقيقي للهارد
Shivan Rekany قام بنشر مارس 27, 2017 قام بنشر مارس 27, 2017 Dim WMI As Object Dim wmiCollection As Object Dim wmiMember As Object Set WMI = GetObject("winmgmts:\\") Set wmiCollection = WMI.InstancesOf("Win32_PhysicalMedia") For Each wmiMember In wmiCollection MsgBox Trim(wmiMember.SerialNumber) Exit For Next Set wmiMember = Nothing Set wmiCollection = Nothing Set WMI = Nothing جرب ان تغيره 5
sandanet قام بنشر مارس 28, 2017 قام بنشر مارس 28, 2017 أخي شفان هل عندك نفس الكود السابق لكن للمعالج واللوحة الأم في الكومبيوتر؟ 2
Ahmed.IQ قام بنشر مارس 28, 2017 قام بنشر مارس 28, 2017 طيب سؤال لو فرضنا ان الهارد تعطب بهذه الحالة كيف راح نتاكد ان العميل صادق والهارد حقيقي تعطب ويحتاج نفعلة برنامج ثاني بدون مقابل؟ 1
Shivan Rekany قام بنشر مارس 28, 2017 قام بنشر مارس 28, 2017 (معدل) 12 ساعات مضت, sandanet said: أخي شفان كود ممتاز 100% تمت تجربته بنجاح للامانه العلميه الكود ليس لي بل لاستاذتنا ( زهرة عبدالله ) في منتدى فريق العربي للبرمجة 51 دقائق مضت, Ahmed.IQ said: طيب سؤال لو فرضنا ان الهارد تعطب بهذه الحالة كيف راح نتاكد ان العميل صادق والهارد حقيقي تعطب ويحتاج نفعلة برنامج ثاني بدون مقابل؟ استخدم هذا الكود مع كود مذبورد او احد من الاقراص الصلبة مثل قرص سي وهذه الموضوع راح تفيدك ويعطيك الجواب على اسألتك تم تعديل مارس 28, 2017 بواسطه Shivan Rekany 2
Shivan Rekany قام بنشر مارس 28, 2017 قام بنشر مارس 28, 2017 12 ساعات مضت, sandanet said: أخي شفان هل عندك نفس الكود السابق لكن للمعالج واللوحة الأم في الكومبيوتر؟ اتفضل هذا الكود بيعطيك سريال نمبر لمزربورد Const Arr = 1 Public Function GetPCInfo() 'You need to have Microsoft WMI Scripting v2.1 library Registered in your references DoCmd.Hourglass True Dim SWbemSet(Arr) As SWbemObjectSet Dim SWbemObj As SWbemObject Dim varObjectToId(Arr) As String Dim varSerial(Arr) As String Dim i, j As Integer Dim fld As String On Error Resume Next varObjectToId(1) = "Win32_BaseBoard,SerialNumber" For i = 0 To Arr Set SWbemSet(i) = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf(Split(varObjectToId(i), ",")(0)) varSerial(i) = "" For Each SWbemObj In SWbemSet(i) varSerial(i) = SWbemObj.Properties_(Split(varObjectToId(i), ",")(1)) 'Property value varSerial(i) = Trim(varSerial(i)) If Len(varSerial(i)) < 1 Then varSerial(i) = "Unknown value" Next fld = "Text" & i Forms("form2")(fld) = varSerial(i) Next DoCmd.Hourglass False End Function خذت من موقع اجنبي وغدا ان شاء الله راح ارفع لك نموذج على ذلك تحياتي 5
sandanet قام بنشر مارس 29, 2017 قام بنشر مارس 29, 2017 شكراً لك أخي شفان انتظر منك مثال وارجو ان يكون عندك كود للمعالج ايضاً تحياتي
Shivan Rekany قام بنشر مارس 29, 2017 قام بنشر مارس 29, 2017 (معدل) 2 ساعات مضت, sandanet said: شكراً لك أخي شفان انتظر منك مثال وارجو ان يكون عندك كود للمعالج ايضاً تحياتي عندي انتظرني سارفق قاعده لكي يعطي كلا من سريال نمبر للمعالج ولوحه الام تم تعديل مارس 29, 2017 بواسطه Shivan Rekany 1
Shivan Rekany قام بنشر مارس 29, 2017 قام بنشر مارس 29, 2017 6 ساعات مضت, sandanet said: شكراً لك أخي شفان انتظر منك مثال وارجو ان يكون عندك كود للمعالج ايضاً تحياتي * ملحوظة : انا خذت الكود في موقع اجنبي في البداية اريد اقول سنحتاج مكتبة Microsoft WMI Scripting v2.1 library الصق هذا الكود في وحدة نمطية Option Compare Database Option Explicit Const Arr = 2 Public Function GetPcSnCpuAndMotherboard() ' Microsoft WMI Scripting v2.1 library ستحتاج مكتبة DoCmd.Hourglass True Dim SWbemSet(Arr) As SWbemObjectSet Dim SWbemObj As SWbemObject Dim varObjectToId(Arr) As String Dim varSerial(Arr) As String Dim i, j As Integer Dim fld As String On Error Resume Next varObjectToId(1) = "Win32_BaseBoard,SerialNumber" varObjectToId(2) = "Win32_Processor,ProcessorId" For i = 1 To Arr Set SWbemSet(i) = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf(Split(varObjectToId(i), ",")(0)) varSerial(i) = "" For Each SWbemObj In SWbemSet(i) varSerial(i) = SWbemObj.Properties_(Split(varObjectToId(i), ",")(1)) 'Property value varSerial(i) = Trim(varSerial(i)) If Len(varSerial(i)) < 1 Then varSerial(i) = "Unknown value" Next fld = "Text" & i Forms("FORM2")(fld) = varSerial(i) ' غير اسم فورم 2 الى اسم الفورم عندك Next DoCmd.Hourglass False End Function وفي النموذج في اي حدث تريد مثلا عند تحميل او عند الضغط على كليك مثلا اكتب في محرر فيجوال هذا Call GetPcSnCpuAndMotherboard ويجب ان يكون عندك مربعين نصيين واسمهما بيكون text1 والاخر بيكون text2 على الرغم اننا نكدر نغيره الى مانريد في وحده نمطية =============== واذا تريد ان توصل الى احد من سريالات وبدون استخدام وحدة النمطية اليك هذا Private Sub Form_Load() ' Microsoft WMI Scripting v2.1 library ستحتاج مكتبة Dim varObjectToId As String Dim varSerial As String On Error Resume Next varObjectToId = "Win32_BaseBoard,SerialNumber" ' اذا تريد ان تبحث عن معالج اكتب الصدر الادناه بدل السطر اعلاه 'varObjectToId = "Win32_Processor,ProcessorId" Set SWbemSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf(Split(varObjectToId, ",")(0)) varSerial = "" For Each SWbemObj In SWbemSet varSerial = SWbemObj.Properties_(Split(varObjectToId, ",")(1)) varSerial = Trim(varSerial) If Len(varSerial) < 1 Then varSerial = "Unknown value" Next Me.Text1 = varSerial End Sub واخيرا اتفضل مع قاعدة بيانات بها الطريقتين لمعرفة سريال نمبر المعالج واللوحة الأم.rar 6
sandanet قام بنشر مارس 31, 2017 قام بنشر مارس 31, 2017 بارك الله فيك اخي شافان والله انك مبدع فقد كفيت ووفيت 1
sandanet قام بنشر مارس 31, 2017 قام بنشر مارس 31, 2017 (معدل) @Shivan Rekany اخي شافان هل ProcessorId يتغير ام ثابت عندما يتفرمت الجهاز ؟؟ لاني في موضوع سابق هنا واجهتني مشكلة في استعمال Id الهارد فوجدته يتغير عند تركيب فلاش ميموري مما اضطرني الى البحث عن سيريال نمبر الهارد (wmiMember.SerialNumber) فوجدته ثابث ولا يتغير تحياتي تم تعديل مارس 31, 2017 بواسطه sandanet
Shivan Rekany قام بنشر مارس 31, 2017 قام بنشر مارس 31, 2017 4 ساعات مضت, sandanet said: @Shivan Rekany اخي شافان هل ProcessorId يتغير ام ثابت عندما يتفرمت الجهاز ؟؟ لاني في موضوع سابق هنا واجهتني مشكلة في استعمال Id الهارد فوجدته يتغير عند تركيب فلاش ميموري مما اضطرني الى البحث عن سيريال نمبر الهارد (wmiMember.SerialNumber) فوجدته ثابث ولا يتغير تحياتي في الحقيقة انا ما جربت لكن انتظرني كم يوم راح اجرب على جهازي تحياتي
Shivan Rekany قام بنشر أبريل 10, 2017 قام بنشر أبريل 10, 2017 (معدل) في ٣١/٣/٢٠١٧ at 19:32, sandanet said: @Shivan Rekany اخي شافان هل ProcessorId يتغير ام ثابت عندما يتفرمت الجهاز ؟؟ لاني في موضوع سابق هنا واجهتني مشكلة في استعمال Id الهارد فوجدته يتغير عند تركيب فلاش ميموري مما اضطرني الى البحث عن سيريال نمبر الهارد (wmiMember.SerialNumber) فوجدته ثابث ولا يتغير تحياتي السلام عليكم ورحمة الله وبركاته تم التجربة عملت فورمات للجهاز ولحسن الحظ لا يتغير اي رقم منهما لا للمزربور ولا للمعالج تحياتي تم تعديل أبريل 10, 2017 بواسطه Shivan Rekany 3
ابوخليل قام بنشر أبريل 10, 2017 قام بنشر أبريل 10, 2017 1 ساعه مضت, Shivan Rekany said: السلام عليكم ورحمة الله وبركاته تم التجربة عملت فورمات للجهاز ولحسن الحظ لا يتغير اي رقم منهما لا للمزربور ولا للمعالج تحياتي هذا مكسب حقيقي ، التجربة خير برهان جزاك الله خير اخونا شفان وحرصك على نفع الناس 1
Shivan Rekany قام بنشر أبريل 10, 2017 قام بنشر أبريل 10, 2017 20 دقائق مضت, ابوخليل said: هذا مكسب حقيقي ، التجربة خير برهان جزاك الله خير اخونا شفان وحرصك على نفع الناس وجزاك الله كل خير استاذي 1
sandanet قام بنشر أبريل 11, 2017 قام بنشر أبريل 11, 2017 (معدل) نعم أخي شافان اتفق معك لكني وجدت ان البرنامج لايظهر رقم اللوحة الأم لبعض الأجهزة لذلك وجدت ان افضل طريقة هي استعمال سيريال المعالج مع سيريال الهارد مع ال UUID ملاحظة: قمت بالتجربة على 3 أجهزة تحياتي تم تعديل أبريل 11, 2017 بواسطه sandanet
Shivan Rekany قام بنشر أبريل 11, 2017 قام بنشر أبريل 11, 2017 وانا جربت على بعض اجهزة اخرى وواحد منها ما طالع الرقم مزربورد وما اعرف السبب لذا يجب ان نبحث عن السبب 26 دقائق مضت, sandanet said: نعم أخي شافان اتفق معك لكني وجدت ان البرنامج لايظهر رقم اللوحة الأم لبعض الأجهزة لذلك وجدت ان افضل طريقة هي استعمال سيريال المعالج مع سيريال الهارد مع ال UUID ملاحظة: قمت بالتجربة على 3 أجهزة تحياتي وانا جربت على بعض اجهزة اخرى وواحد منها ما طالع الرقم مزربورد وما اعرف السبب لذا يجب ان نبحث عن السبب
sandanet قام بنشر أبريل 11, 2017 قام بنشر أبريل 11, 2017 جربت تغيير كود الماذربورد بكود البايوز وحدثت نفس المشكلة فبعض الاجهزة لايظهر فيها رقم البايوز
Aliko قام بنشر يونيو 12, 2017 قام بنشر يونيو 12, 2017 On 3/29/2017 at 5:33 PM, Shivan Rekany said: * ملحوظة : انا خذت الكود في موقع اجنبي في البداية اريد اقول سنحتاج مكتبة Microsoft WMI Scripting v2.1 library الصق هذا الكود في وحدة نمطية Option Compare Database Option Explicit Const Arr = 2 Public Function GetPcSnCpuAndMotherboard() ' Microsoft WMI Scripting v2.1 library ستحتاج مكتبة DoCmd.Hourglass True Dim SWbemSet(Arr) As SWbemObjectSet Dim SWbemObj As SWbemObject Dim varObjectToId(Arr) As String Dim varSerial(Arr) As String Dim i, j As Integer Dim fld As String On Error Resume Next varObjectToId(1) = "Win32_BaseBoard,SerialNumber" varObjectToId(2) = "Win32_Processor,ProcessorId" For i = 1 To Arr Set SWbemSet(i) = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf(Split(varObjectToId(i), ",")(0)) varSerial(i) = "" For Each SWbemObj In SWbemSet(i) varSerial(i) = SWbemObj.Properties_(Split(varObjectToId(i), ",")(1)) 'Property value varSerial(i) = Trim(varSerial(i)) If Len(varSerial(i)) < 1 Then varSerial(i) = "Unknown value" Next fld = "Text" & i Forms("FORM2")(fld) = varSerial(i) ' غير اسم فورم 2 الى اسم الفورم عندك Next DoCmd.Hourglass False End Function وفي النموذج في اي حدث تريد مثلا عند تحميل او عند الضغط على كليك مثلا اكتب في محرر فيجوال هذا Call GetPcSnCpuAndMotherboard ويجب ان يكون عندك مربعين نصيين واسمهما بيكون text1 والاخر بيكون text2 على الرغم اننا نكدر نغيره الى مانريد في وحده نمطية =============== واذا تريد ان توصل الى احد من سريالات وبدون استخدام وحدة النمطية اليك هذا Private Sub Form_Load() ' Microsoft WMI Scripting v2.1 library ستحتاج مكتبة Dim varObjectToId As String Dim varSerial As String On Error Resume Next varObjectToId = "Win32_BaseBoard,SerialNumber" ' اذا تريد ان تبحث عن معالج اكتب الصدر الادناه بدل السطر اعلاه 'varObjectToId = "Win32_Processor,ProcessorId" Set SWbemSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf(Split(varObjectToId, ",")(0)) varSerial = "" For Each SWbemObj In SWbemSet varSerial = SWbemObj.Properties_(Split(varObjectToId, ",")(1)) varSerial = Trim(varSerial) If Len(varSerial) < 1 Then varSerial = "Unknown value" Next Me.Text1 = varSerial End Sub واخيرا اتفضل مع قاعدة بيانات بها الطريقتين لمعرفة سريال نمبر المعالج واللوحة الأم.rar استاذ شفان @Shivan Rekany تحياتي لك والله ابداع الله يحفظك سؤال هل يمكن ان احصل على رقم المذربورد فقط من دون حروف انكليزية ؟
Shivan Rekany قام بنشر سبتمبر 28, 2017 قام بنشر سبتمبر 28, 2017 في ١٢/٦/٢٠١٧ at 04:02, Aliko said: سؤال هل يمكن ان احصل على رقم المذربورد فقط من دون حروف انكليزية ؟ بامكاننا ان نتحول الحروف الى الارقام
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.