Prikazi cijelu temu
03.02.2012 23:27
03.02.2012 23:27
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
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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.