كود لمعرفه الرقم التسلسلى للقرص الصلب

اضم صوتي إلى صوتك ..

ابحث في المنتدى عن كلمة System.Management ستجد شرح واااااااافي لها من أحد الإخوة

أخي جينيوس أنت مبرمج ماذا ؟! إذا كنت مبرمج على أي لغة من لغات .net فليس من الصعب عليك فهم هذا المثال

لأن لغات الدوت نيت لا تختلف إلا ببعض الدوال وتركيب الجمل وأنا قمت بوضع موضوع عن System.management

وهو في توقيعي ويمكنك هذا الموضوع من صنع اقوى برامج معلومات الأجهزة لأنه يحتوي على أكثر من 500 classes

ولكنني لم أشرح في هذا الموضوع ويوجد موضوع للأخ Hazzoom قام بشرح هذه الأداة عنوانه لا أذكره أبحث عنه وكان العنوان

باللغة الأنكليزية

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

أولا أشكركم أخوانى على تعاونكم معى

وكما ذكرت فأنا مازلت فى بدايه دراستى للفيجوال بيسك 2005

اما انا فأعمل على فيحوال بيسك 6 وابتديت منذ فتره صغيره التعامل مع Visual basic 2005

لهذا لست على درايه كبيره به وأتمنى اولا انا يكون المثال عجبكم وسوف أبحث عن المواضيع المذكوره

حاولت استخدام الكود في مشروع تدريب بحيث عند النقر على زر تظهر معلومات hard drive في مسج او Textboxوفشلت هل من يعينني على ذلك ..

للرفع

اخيرا اخي GENIUS-IT لقد تمكنت من التعديل على الملف المرفق وتحقيق ما كنا نصبو إليه ...

وفي الأسفل تجد الكود اللازم مع تحياتي ...

Imports System.Management
Public Class Form1
	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim drives As New ArrayList
		Dim ObjReturn As Management.ManagementObjectCollection
		Dim ObjSearch As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
		Dim ObjManage As Management.ManagementObject
		ObjReturn = ObjSearch.Get
		For Each ObjManage In ObjReturn
			Dim info As New DriveInfo
			info.Model = ObjManage("Model")
			info.Type = ObjManage("InterfaceType")
			info.Size = ObjManage("size")
			drives.Add(info)
		Next
		ObjSearch = New Management.ManagementObjectSearcher("Select * from Win32_PhysicalMedia")
		ObjReturn = ObjSearch.Get
		Dim i As Integer = 0
		For Each ObjManage In ObjReturn
			Dim info As DriveInfo = CType(drives(i), DriveInfo)
			info.SerialNumber = ObjManage("SerialNumber")
			i += 1
		Next
		For Each info As DriveInfo In drives
			Dim strOut As String = String.Format("Model : {0}Type : {1}SerialNumber : {2}Size : {3}", info.Model + vbNewLine, info.Type + vbNewLine, Trim(info.SerialNumber) + vbNewLine, info.Size)
			MsgBox(strOut)
		Next
		End
	End Sub
End Class
Class DriveInfo
	Private _model As String
	Private _type As String
	Private _serialNumber As String
	Private _Size As String
	Public Property Model() As String
		Get
			Return _model
		End Get
		Set(ByVal Value As String)
			_model = Value
		End Set
	End Property
	Public Property Type() As String
		Get
			Return _type
		End Get
		Set(ByVal Value As String)
			_type = Value
		End Set
	End Property
	Public Property SerialNumber() As String
		Get
			Return _serialNumber
		End Get
		Set(ByVal Value As String)
			_serialNumber = Value
		End Set
	End Property
	Public Property Size() As String
		Get
			Return _Size
		End Get
		Set(ByVal Value As String)
			_Size = Value
		End Set
	End Property
End Class

السلام عليكم

أشكرك أخى الكربم yaseralshikh

على تفاعلك مع الموضوع

جعله الله لك فى ميزان حسناتك

على الرحب والسعه ..

السلام عليكم

أخى الكريم hazzoom

مشكوووووووووور بشده انا حاولت الاقى الموضوع ده بس معرفتش

مشكور على البرنامج

الأخ الفاضل ...

هذه عدة امثلة للحصول على هذه المعلومات (Serial Numbers) بطريقة أخرى (قد تكون أبسط نوعاً ما)

ويمكن تطبيقه فى أى لغة أو قاعدة بيانات، ولا يقتصر فقط على (NET.) لأنه يحنوى على (DLL) يمكن أستخدام وظائفها، كذلك يحتوى على مكون (COM Object) يمكن أستخدامه (بعد تسجيله) فى حالة عدم القدره على أستخدام وظائف (DLL) مباشرتاً

HWInfoEx.zip ( 173k )

بأستخدام (VC 6.0/VB 6.0/VBS/ASP/MS-Access) - يعطيك بيانات عن (يمكن استخدامها فى أغراض عديدة)

يحتوى على مكتية (DLL) و مكون (COM Object) يمكن أستعمله فى أى تطبيق

1) الرقم المسلسل للهارد ديسك (Harddisk) و معلومات أخرى

2) الرقم المسلسل دريف (Logic drive) و معلومات أخرى

3) رقم الـ(MAC) لكارت الشبكة

4) الرقم المسلسل للمعالج (Processor) و معلومات أخرى

5) حجم الذاكرة (RAM)

6) تاريخ ورقم الـ(BIOS) على اللوحة الأم

7) مفتاح (Product-Key) ورقم (Product-ID) نسخة الويندوز

8) محاولة جمع بعض المعلومات عن كارت العرض (VGA)

/index.php?showtopic=117811

وشكراً