[kon73]

Αγαπητέ φίλε babiniotis,

Στο διαδίκτυο κυκλοφορεί μία λύση για την λήψη του Volume Serial του HD Δηλαδή κάθε φορά που κάποιος κάνει format τον σκληρό δίσκο του, ο αριθμός αυτός αλλάζει. Στον παραθέτω το λοιπόν (http://www.dreamincode.net/code/snippet1415.htm): Ωστόσο για το πραγματικό Serial του HD, Serial Video Card, CPU Serial καθώς και άλλων εξαρτημάτων είναι κάτι που το παρέχω με χρέωση όπως φαίνεται και στο http://eshop.msaccess.gr. Επίσης παρέχω και μία διαφορετική έκδοση της λήψης του Volume Serial HD. Το Volume Serial No του HD (Σκληρού δίσκου) είναι κάτι που υποκλέπτεται (δηλαδή μπορεί κάποιος να ορίζει ίδιο Volume Serial HD) και επομένως να ξεκλειδώσει ένας την βάση σου είναι εύκολο. Για την αυτόματη διαγραφή της βάσης μπορείς να δώσεις εντολές SQL το τύπου ("DELETE * From Table1") και θα διαγράφονται όλες οι εγγραφές τις βάσης. ή αν θέλεις για τους πίνακες

For i=1 to currentdb.TableDefs.Count
   docmd.DeleteObject(acTable),currentdb.TableDefs(i).Name
next

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)
    Serial = Replace(Trim(Str$(Serial)), "-", "")
    MsgBox "Your Serial Number is " & Serial
End Sub