Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (11):1,2,3,4 ... 10,11
 Prikazi prvu neprocitanu poruku

#11 03.03.2017 09:50
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#12 03.03.2017 09:51
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#13 03.03.2017 10:03
Dado Van mreze
Clan
Registrovan od:27.10.2011
Postovi:276


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.
Pozdrav!
↑  ↓

#14 03.03.2017 10:07
Dado Van mreze
Clan
Registrovan od:27.10.2011
Postovi:276


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 ?
Pozdrav!
↑  ↓

#15 03.03.2017 13:05
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,707


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
zivot je moja domovina.
↑  ↓

#16 03.03.2017 13:38
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#17 03.03.2017 13:41
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#18 03.03.2017 14:03
Dado Van mreze
Clan
Registrovan od:27.10.2011
Postovi:276


Predmet:Re: Zaštita access baze od kopiranja
Ne javlja nikakvu greÅ¡ku, znači sve je ok, možemo nastaviti dalje Happy
Pozdrav!
↑  ↓

#19 04.03.2017 17:17
Dado Van mreze
Clan
Registrovan od:27.10.2011
Postovi:276


Predmet:Re: Zaštita access baze od kopiranja
Možemo li nastaviti ili preko vikenda odmor a u ponedjeljak nastavljamo Smiling
Pozdrav!
↑  ↓

#20 04.03.2017 20:24
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Zaštita access baze od kopiranja
Hehe sinoc sam imao koncert pa nisam stigao.
Evo idemo dalje.
Sada napravimo formu sa dva text polja i jednim komandnim tasterom.
Jedno polje neka ima naziv KorisnickiBroj a drugo AutorskiBroj a na komandnom tasteru registracija.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (11):1,2,3,4 ... 10,11

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 5: 27 pm.