Dado 03.03.2017 09:13
Predmet:Re: Zaštita access baze od kopiranja

Hvala Gjoreski, isprobao sam radi. Bez obzira Å¡to ovo radi, voli bih nastaviti sa zxz ovako "korak po korak" da vidim kako to se radi. Međutim nigdje ja ne vidim ovo Å¡to mi zxz sugerira, ovaj prozor list file ty.

Dado 03.03.2017 09:46
Predmet:Re: Zaštita access baze od kopiranja

Kada idem na Tools=>ActivXControl pojavi mi se prozor kao na slici u prilogu. Ne vidim nigdje taj prozor koji spominješ zxz.
Prilozi:
slika1.JPG (Velicina datoteke:26.43 KB)

zxz 03.03.2017 09:50
Predmet:Re: Zaštita access baze od kopiranja

Dobro idemo dalje.
Zaboravi taj prozor.
Otvori novi modul i u njeg kopiraj ovo:
PreuzmiIzvorni kôd (Visual Basic):
  1. Function BrojDiska()
  2. BrojDiska = HRD.GetSerialNumber
  3. End Function

Pokreni ovu proceduru i vidi dali radi.

zxz 03.03.2017 09:51
Predmet:Re: Zaštita access baze od kopiranja

Aha stavio si sliku.
E na tom prozoru kliknes na register pa ce ti se otvoriti jos jedan dialog box i na njemu imas opciju da biras sta ucitati.

Dado 03.03.2017 10:03
Predmet:Re: Zaštita access baze od kopiranja

Registrirao sam, samo mi reci jeli treba sada negdje da vidim taj dll ili je sa registracijom završeno. Evo napravio sam novi modul i iskopirao ovu proceduru.

Dado 03.03.2017 10:07
Predmet:Re: Zaštita access baze od kopiranja

Ništa se ne dešava, uradio sam kako si napisao. Možda nisam pokrenuo procedura kako treba ?

Avko 03.03.2017 13:05
Predmet:Re: Zaštita access baze od kopiranja

ni meni, valjda i ja nesto krivo radim.
ja sam iscackao ovo i probao u accesu
PreuzmiIzvorni kôd (Text):
  1. Option Compare Database
  2. Function HdNum() As String
  3.     Dim fsObj   As Object
  4.     Dim drv     As Object
  5.     Set fsObj = CreateObject("Scripting.FileSystemObject")
  6.     Set drv = fsObj.Drives("C")
  7.     HdNum = Hex(drv.SerialNumber)
  8. End Function
  9.  
  10. Sub HD()
  11.     MsgBox HdNum
  12. End Sub

zxz 03.03.2017 13:38
Predmet:Re: Zaštita access baze od kopiranja

I netreba se nista desiti ako ne javlja gresku onda je dobro.
Pokretanje procedure.
Stanes sa kursorom u red gdje pise BrojDiska = HRD.GetSerialNumber odnosno izmedju function i end function i pritisne F5.
Ako ne javi gresku onda radi dobro i dll je registrovan sigurno.

zxz 03.03.2017 13:41
Predmet:Re: Zaštita access baze od kopiranja

za @avko.
Tvcoj kod radi i msgbox pokazuje broj kada se pokrene sub HD.
Jedino sto ovo nije pravi ser. broj nego broj particije.

Dado 03.03.2017 14:03
Predmet:Re: Zaštita access baze od kopiranja

Ne javlja nikakvu greÅ¡ku, znači sve je ok, možemo nastaviti dalje Happy