Predmet:Re: Zastita aplikacije gdje grijesim

---

Pa u ovom primjeru nije pravi ser. broj.
evo procedure:
Function HDDBroj(drvpath)

Dim fs, d
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName _
(fs.GetAbsolutePathName(drvpath)))
HDDBroj = d.SerialNumber

End Function
ako ovu proceduru kopiras negdje u modul
Te na vrhu modula dodas konstantu napr.
const drvpath="C:\"
a u svojoj proceduri napises ovako:
Private Sub Form_Load()
Dim SerBrDiska As String
SerBrDiska = HDDBroj(drvpath)
Me.InstBroj = Kodiranje(SerBrDiska)
End Sub

---