الرقم التسلسلي للقرص الصلب

'استخدام المكتبة 
Microsoft Scripting Runtime
Private Sub Command1_Click()
 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
End Sub

شكراً جزيلاً و بارك الله فيك

اهلا وسهلا المهم ان يكون هو المطلوب

مشكور يا أخ HnHn على الكود و جعلك الله نفعا للمسلمين

لكني سمعت أن هذا الرقم التسلسلي يتغير بعد عمل فورمات للقرص الصلب فهل هذا صحيح ؟

وهل يمكن تكرار هذا الرقم ؟

وجزاك الله خيرا

ألف شكر على هذا الكود ولكن لدي بضعة أسئلة إذا تفضلت علينا.

تعطي هذه الطريقة رقم متسلسل مختلف لكل Partition مما يعني أن هذه الأرقام سوف تتغير عند إعادة تجزئة القرص Hard Disk، أليس كذلك؟ وهل تتغير عند الفرمتة؟ وسؤال أخير، هل يوجد طريقة للحصول على رقم تسلسلي للهارد ذاته وليس للـ Partition؟

في انتظار التكرم بالإجابه على أسئلتنا

وإلى أن تتم الإجابة إليكم هذا الكود البسيط الذي حصلت عليه من أحد الإخوة لأيجاد

الرقم التسلسلي للبروسيسور وبدون API لعله يفي بالغرض أيضا في الحماية وعلى الله قصد السبيل

Processor_test.zip

اشكر بن حسن على ما بذل من جهد للتواصل في اتمام المعلومة

والله يوفق الجميع

كل الشكر للأخ بن حسن

أرجو السؤال عن مكتبة SWbemObjectSet أو مرجعه

مع كل الشكر

و بنفس الوقت أرجو من الأخوة طريقة معرفة رقم التسلسلي للهارد ديسك

أخي بن الحسن

أرجو معرفة المكتبة SWbemObjectSet المذكورة في شيفرة معرفة رقم المعالج

بن حسن كتب:

في انتظار التكرم بالإجابه على أسئلتنا

وإلى أن تتم الإجابة إليكم هذا الكود البسيط الذي حصلت عليه من أحد الإخوة لأيجاد

الرقم التسلسلي للبروسيسور وبدون API لعله يفي بالغرض أيضا في الحماية وعلى الله قصد السبيل

نشكرك اخى الكريم بن حسن على المثال ونرجو منك كيفية توليد السريال نمبر لدخول البرنامج

اخوانى اليكم هذا الكود الذى يحضر الرقم

التسلسلى للمازربورد

Dim objs
	Dim obj
	Dim WMI

	Set WMI = GetObject("WinMgmts:")
	Set objs = WMI.InstancesOf("Win32_BaseBoard")
	For Each obj In objs
		Text1.Text = obj.SerialNumber
	Next

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

جزاك الله ياأخ بن حسن أن ووالديك كل خير

معذرة يأخ asdsuez الكود لا يعمل

أرجوا أن يضع أحدهم كود لأحضار السريال نمبر بتاع الهارد ديسك يعمل من خلال win98

هذه المشاركة لمعرفة السريال بتاع الهارد ولكن تعمل في win xpفقط إضغط هنا

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

الكود يعمل معى بدقه حاول مره اخرى

ارسل لك مثال

sn.rar

جرب هذا الكود

'Hard Serial

Private Const MAX_FILENAME_LEN = 256

Private Declare Function GetVolumeInformation& Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long)

Public Function GetSerialNumber(sDrive As String) As Long

Dim ser As Long

Dim s As String * MAX_FILENAME_LEN

Dim s2 As String * MAX_FILENAME_LEN

Dim i As Long

Dim j As Long

Call GetVolumeInformation(sDrive + ":\" & Chr$(0), s, MAX_FILENAME_LEN, ser, i, j, s2, MAX_FILENAME_LEN)

GetSerialNumber = ser

End Function

'Hard Serial

Private Sub Form_Load()

Text1 = GetSerialNumber(InputBox("ÇßÊÈ ÇÓã ÇáåÇÑÏ", , "c"))

End Sub

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

يا أخ mjxp7 جزاك الله كل خير على اهتمامك ولكني أريد السريال بتاع الهارد نفسه وليس الدرايف

فالسريال بتاع الدرياف ينتهي مفعوله بعد الفرمته

معذرة يأخ asdsuez الكود لا يعطي نتائج الtextbox فارغة

جزاك الله كل خير على كل حال وشكراً لأهتمام.

أكرر شكري لكل مهتم

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

الأخوة الأفاضل ...

توضيح كيفية الحصول على الرقم المسلسل (S/N) ومعلومات أخرى للقرص الصلب واستعمالها في برنامج آخر

باستخدام (MS-VB 6.0 / MS-VC 6.0)

HDInfo.zip ( 159.01k )

/index.php?showtopic=117146

وشكراً

الأخوة الأفاضل ...

HWInfo.zip ( 77.33k )

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

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

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

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

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

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

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

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

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

/index.php?showtopic=117811

للحصول على أخر إصدار : http://www.geocities.com/mokadem2000/hwinfo.zip

وشكراً

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

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

أنظروا إلى الموضوع الدرج في توقيعي الذي يتكلم عن

معرفة الأجهزة المتصلة بالـIDE ورقم السريال الخاص لكل جهاز

من خلال الرجستري

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

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

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

أنظروا إلى الموضوع الدرج في توقيعي الذي يتكلم عن

معرفة الأجهزة المتصلة بالـIDE ورقم السريال الخاص لكل جهاز

من خلال الرجستري

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

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

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

وشكراً

voici un code source pour afficher le numéro de HDD:

on error resume next

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colDiskDrives = objWMIService.ExecQuery _

("SELECT * FROM Win32_PhysicalMedia")

For Each objDiskDrive In colDiskDrives

MsgBox objDiskDrive.SerialNumber

Next