Predmet:Re: Zastita aplikacije gdje grijesim

---

Ako i ovo ne ide odustajemo od toga nego skini moj dll za ser br. diska
http://www.icentar.ba/...nt&id=463
Raspakuj ovaj dll i ucitaj ga kroz reference
Svoju proceduru na on load forme promijeni :
Private Sub Form_Load()
Dim SerBrDiska As String
SerBrDiska = HRDRV.GetSerialNumber
Me.InstBroj = Kodiranje(SerBrDiska)
End Sub

---