- Option Compare Database
- Function HdNum() As String
- Dim fsObj As Object
- Dim drv As Object
- Set fsObj = CreateObject("Scripting.FileSystemObject")
- Set drv = fsObj.Drives("C")
- HdNum = Hex(drv.SerialNumber)
- End Function
- Sub HD()
- MsgBox HdNum
- End Sub
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):
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):
|
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 ![]() |