كيف احصل علي السيريال نمبر الخاص بال bios

أخي الفاضل

إليك الملف المرفق

والله هو الموفق لسواء السبيل

_____________________________.rar

بارك الله فيك هذا الكود اللي موجود في ملفك

هذا الكود لمعرفة رقم البيوس

كود:

Declare Sub GetMem1 Lib "msvbvm60.dll" (ByVal MemAddress As Long,var As Byte)
Public Function GetBIOSDate() As String
Dim p As Byte, MemAddr As Long, sBios As String
Dim i As Integer
'MemAddr = &HFFFF5
MemAddr = &HFEC71
For i = 0 To 25
Call GetMem1(MemAddr + i, p)
sBios = sBios & Chr$(p)
Next i
GetBIOSDate = sBios
End Function

ولكن يجب الانتباه إلى أنه يعمل على win95 - win98 فقط

ويسبب إغلاق الأكسس على ويندوز XP وويندز 2000

مهند عبادي

لكن المشكلة انه ما يقبل على XP و 2000

والمشكلة الثانية انه ما ينفع مع جميع الاجهزة على حد علمي وياليت الاخوان يفيدونا

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

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

وشكراً