السيريل نمبر لبعض العتاد

للبيوس

http://www.freevbcode.com/source/BiosInfo.zip

للدرايف

Option Explicit



Private Declare Function GetVolumeInformation Lib _

   "kernel32.dll" Alias "GetVolumeInformationA" _

   (ByVal lpRootPathName As String, _

   ByVal lpVolumeNameBuffer As String, _

   ByVal nVolumeNameSize As Integer, _

   lpVolumeSerialNumber As Long, _

   lpMaximumComponentLength As Long, _

   lpFileSystemFlags As Long, _

   ByVal lpFileSystemNameBuffer As String, _

   ByVal nFileSystemNameSize As Long) As Long



Public Function DriveSerialNumber(ByVal Drive As String) As Long

    

    'usage: SN = DriveSerialNumber("C:")



    Dim lAns As Long

    Dim lRet As Long

    Dim sVolumeName As String, sDriveType As String

    Dim sDrive As String



    'Deal with one and two character input values

    sDrive = Drive

    If Len(sDrive) = 1 Then

        sDrive = sDrive & ":"

    ElseIf Len(sDrive) = 2 And Right(sDrive, 1) = ":" Then

        sDrive = sDrive & ""

    End If

  

    sVolumeName = String$(255, Chr$(0))

    sDriveType = String$(255, Chr$(0))

    

    lRet = GetVolumeInformation(sDrive, sVolumeName, _

    255, lAns, 0, 0, sDriveType, 255)



DriveSerialNumber = lAns

End Function

المعالج

http://www.freevbcode.com/source/Memory_Processor.zip

شكرا لك

ألف شكر

شكرا لك أخ hamohd70

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

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

شكرا لك مرة أخرى

كود السيريال للهارد ديسك

شغال عالويندوز 2000 XP NT

عالويندوز ME او 98 :

يجب نسخ الملف

smartvsd.vxd من دليل SYSTEM الى

system/iosubsys

بالتوفيق

hdser.zip

شكرا لك سأقوم بتحميله وتجربته

اية الحلاوة دية

مشكور

شكرا لك أخ aboshakeeb

الكود يعمل جيدا لكنني احتجت إلى إعادة إقلاع الجهاز بعد نسخ الملف حتى عمل البرنامج

شكرا لك × 1000

(f)لا شكر على واجب .

أرجو الافادة و التوفيق للجميع .

(f)