ربما يهم البعض

فيأحد المرات قرأت لأحد الاخوة استفسار عن طريقة حماية البرنامج عن طريق رقم القرص الصلب,HD, و أنا أتصفح أحد المنتديات الفرنسية وجدت هذا الكود الذي يفترض أن يفي بالغرض المطلوب, لذوي الخبرة التأكد من صلاحيته و أفادة أعضاء المنتدى بالنتيجة.

و ان كان هذا الكود دون معنى فليعذرني الاخوة عن ذلك:

Code:

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

Private Sub Form_Load()

Dim Serial As Long, VName As String, FSName As String

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

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

GetVolumeInformation "C:\", VName, 255, Serial, 0, 0, FSName, 255

VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)

FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)

MsgBox "The Volume name of C:\ is '" + VName + "', the File system name of C:\ is '" + FSName + "' and the serial number of C:\ is '" + Trim(Str$(Serial)) + "'", vbInformation + vbOKOnly, App.Title

End Sub