الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تأكيد هذا الكود

بدأه MMA_EG_Cairo في 31 أكتوبر 2008 · 8 رد · 791 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بعد إذن حضراتكم عايز أتأكد أن هذه الأكواد سليمة 100% ، وعايز أعرف كيف يتم جلب رقم الهارد ديسك عن طريق هذه الفكرة :

'microsoft scriptlet library.
Private Sub Command1_Click()
	'جلب رقم اللوحة الأمم.
	Dim r
	Dim y
	Set r = CreateObject("winmgmts:")
	Set y = r.instancesof("win32_baseboard")
	For Each t In y
		MsgBox t.serialnumber
	Next
End Sub

Private Sub Command2_Click()
	'جلب رقم الهارد ديسك.
	Dim y
	Set r = CreateObject("winmgmts:")
	Set y = r.instancesof("win32_processor")
	For Each t In y
		MsgBox t.processorid
	Next
End Sub

عاوز أعرف كيف أحصل علي رقم الهارد ديسك الرئيسي ( وليس رقم القرص الذي يتغير بمجرد عمل Format ) !!!

أعلم جيداً أن هناك فكرة مدرجة في المنتدي ، ولكنني أرغب في إيجاد رقم الهارد بنفس فكرة ( winmgmts: )

شكراً

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook

#2

وما المشكلة في هذا الكود :

Dim Y As Object, R As Object, T As Object
Dim Arr() As Byte

Set R = CreateObject("winmgmts:")
Set Y = R.instancesof("win32_diskdrive")
For Each T In Y
	MsgBox T.SerialNumber
Next

أنا آسف جداً ، بس والله أنا مستعجل جداً علي معرفة حل هذه المشكلة

شكراً

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook

#3

بســم الله الـرحمــن الرحيــم

السلام عليكــم ورحمـة الله وبركاتــة

طريقة الـ BaseBoard فهي للوحة الأم كما قلت لكن ليست كل اللوح تدعم هذه الطريقة

طريقة الـ Win32_Processor فهي للمعالج وليست للهارد كما قولت

ولمعرفة سيريال الهارد والموديل ونوعه إذا كان ساتا أو IDE عدل المشاركة السابقة لتصبح كالتالي


Dim Arr() As Byte

Set R = CreateObject("WinMgmts:")
Set Y = R.InstancesOf("Win32_DiskDrive")
For Each T In Y
MsgBox T.Model
MsgBox T.InterfaceType ' لمعرفة إذا كان ساتا أو IDE
Next


' أما لمعرفة السيريال
Set Y = R.InstancesOf("Win32_PhysicalMedia")
For Each T In Y
MsgBox T.SerialNumber
Next
	Dim Y As Object, R As Object, T As Object

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

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#4

أشكرك أخي الكريم ، وهذا فعلياً ما كنت أريدة ،

ولكنني لاحظت شيء ، حينما أدرج كود رقم المعالج واللوحة الأم علي جهازين لدي في المنزل ، أفوجأ بأنه يرتجع رقم واحد ، فما هو السبب ؟؟؟

شكراً مرة أخري ، وجزاك الله كل خير ،

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook

#5

السبب ان السيريال مش Unique .. لكن هو اتكرر في البورده والبروسيسور والهارد ؟؟؟

عموما الـ Mac Address مبيتكررش نهائي .. ودلوقتي مافيش جهاز في الدنيا مفيهوش Lan

جرب تطلع الـ Mac وشوفه بيتكرر ولا لا ويارتك تقولنا علشان نتأكد

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

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#6

عنوان MAC يمكن تغييره بكل سهولة عن طريق خصائص كرت الشبكة ..

سبحان الله وبحمده ... سبحان الله العظيم

#7

أيوة ، يعني مفيش حل غير أني أتعامل مع الـ HDD فقط لا غير ؟؟؟

أصل من المعروف أن الـ Processor مش بيتلف بسهولة زي الـ HDD !!!

فأحببت أتعامل مع الـ Processor لكي يكون أفضل .. أما الـ HDD فهو جاهز للتغيير بصفة مستمرة

فهل هناك حل لذلك

شكراً

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook

#8

الـ HD بالنسبالك انت ممكن يتغير كتير .. لإنك أحد العاملين في المجال

إنما فئة العملاء .. الأمر يختلف

هناك بعض العملاء يصعب عليهم تغيير الماوس أو الكيبورد

وبالنسبة لموضوع التلف فبرضه احنا ممكن نكون بنستخدمه بشكل يخليه يهلك بسرعه

أما العميل مبيحركش الهارد من مكانه في أغلب الأوقات .. ويا سيدي إن بوظه يبقى ذنبه على جنبه .. هنعمله ايه يعني

زمان كان في حاجه إسمها الدنجل .. كان منفرد وكان مصنوع اساسا علشان يلبيلك رغبتك

وبعدين اكتشف فيه بعض الثغرات ده غير انه غالي الثمن.

دلوقتى في Fingerprint Mouse .. وأعتقد برده ان غالي.

عموما لو استخدمت الهارد كحل مؤقت وبديله في الوقت الحالي انك تستخدم سيريال ما يتكررش طول العمر

يعنى إما كل مالعميل يغير الهارد يتصل بيك أو كل مالعميل ينزل نسخة Windows يتصل بيك.

المبرمج أحمد كتب:
عنوان MAC يمكن تغييره بكل سهولة عن طريق خصائص كرت الشبكة ..

وياريت الأخ المبرمج أحمد يزيدنا توضيح وإفاده في النقطه دي .. انا كنت فاكر ان الـ MAC بيكون تبع الهاردوير

يعنى ينفع نغير السيريال بتاع الهارد وير ؟؟ ولا ايه قصة الـ MAC ده .. فيدنا افادكم الله

وعلى فكره انا كنت اقصد يكون السييريال بتاعنا زي بتاع Maya

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

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#9

السلام عليكــم ورحمـة الله وبركاتــه

أنصحك أخي العزيز أن تبتعد عن الWMI من أجل الحماية

لانك ستواجه عدة مشاكل منها:

الطريقة لن تكون مجدية دائما مع الSATA

في بعض الحالات لا يمكنك استعمال دوال الWMI إلا في حساب Admin

جربها على الفيستا أيضا وأخبرني

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

بالتوفيق ان شاء الله

kuwhost-du3at_06.gif

مواضيع مشابهة