[smasak]

Αρχική Δημοσίευση από Meteora

Καλησπέρα

Στο κώδικα που ακολουθεί,...

Private Sub klidoma()
    Dim sernum As Variant, varX As Variant

    Dim Fso As New Scripting.FileSystemObject
    sernum = Fso.GetDrive("c:\").SerialNumber
    
    varX = DLookup("[snum]", "tblsernumber", "[ID] = 1")
    If IsNull(varX) Then
        DoCmd.SetWarnings False
        DoCmd.RunSQL "INSERT INTO tblsernumber ([snum]) VALUES (" & sernum & ")"
        DoCmd.SetWarnings True
    Else
        If sernum <> varX Then
            MsgBox "Δεν έχετε την άδεια χρήσης !", vbCritical, "Έλεγχος"
            DoCmd.Quit
        End If
    End If
End Sub

...Όπως βλέπεις πρέπει να έχεις ένα πίνακα tblsernumber με δυο αριθμητικά πεδία [id] και [snum] . Φρόντισε η ρουτίνα να τρέξει στο on load της πρώτης φόρμας.
Την πρώτη φορά ο πίνακας θα συμπληρωθεί με τον σειριακό αριθμό του σκληρού σου δίσκου και κάθε επόμενη φορά θα διαβάζει τον αποθηκευμένο αριθμό, συγκρίνοντάς τον με αυτόν του υπολογιστή στο οποίο καλείται να "τρέξει".

ΠΡΟΣΟΧΗ : Κράτα αντίγραφο ...μη μείνεις απέξω.

Με εκτίμηση / Νίκος

Σε περίπτωση που "κρασάρει" ο Η/Υ και χρειασθεί εκ νέου format τι γίνεται;Χάνονται τα πάντα ή μπορούμε να κάνουμε κάτι;