carobnjak 03.02.2012 01:14
Predmet:Re: Zastita aplikacije gdje grijesim

nasao sam gdje mi je taj kod ali sad ne znam dalje gdje da ocitam to iz memorijske lokacije

zxz 03.02.2012 11:48
Predmet:Re: Zastita aplikacije gdje grijesim

Aha nije problem.
Ovako:
Me.InstBroj = Kodiranje(SerBrDiska)
Lijevo od ovog Koda Klikni na vertiklanu traku i naj njoj ce se pojaviti kruzic a red ce biti obiljezen crveno smedjom bojom.
Sada pokreni formu ividjet ces da ce kod pri izvrsenju stati na to mjesto.
prelaskom misem preko memorijskih koje se nalaze prije mjesta zaustavljanja koda citas njihove vrijednosti.
znaci samo dodjed misem na memorijsku SerBrDiska i vidjet sec ima li kakva vrijednost.
Za nastavak izvrsenja mozes pritisnuti F8 i ides samo jedan korak tj. jedan red izvrsenja koda a sa F5 izvrsva se cio kod.

Ako opet bude nejasno samo reci.
Ima i drugih nacina za objasnjenje.

carobnjak 03.02.2012 17:28
Predmet:Re: Zastita aplikacije gdje grijesim

Ako sam dobro uradio meni poakze slijedece: SerBrDiska ="" ovo samo sa navodnicima znaci kad predjem misem preko SerBrDiska pokaze mi naziv samo sa navodnicima i znakom jednako.

zxz 03.02.2012 17:38
Predmet:Re: Zastita aplikacije gdje grijesim

Dobro si ti to uradio.
Sad zaustavi ovdje:
erBrDiska = GetDiskData(vbDriveSerialNumber)
I vidi sta ti pokazuje u ovome:
vbDriveSerialNumber

Mislim da ovo nemoze procitati tj. broj diska.
Ako im u ovoj variabli neki broj od 0 do 2 onda kreni sa F8 korak po korak u ovu proceduru koja se zove:
GetDisk i prati variable.
Vjerujem ja da ces ti to naci.
Ima i drugih procedura za ser. br. diska.

carobnjak 03.02.2012 19:40
Predmet:Re: Zastita aplikacije gdje grijesim

Posto stvarno ne znam sta trazim moras mi pomoci na sta da se baziram stvarno ne znam a ako ima druga procedura za registraciju ako mozes da mi prikacis da probam s njom jer sumnjam da je do sistema mi, na kompjuteru mi je XP cita normalno, dok sam na laptopu imo Xp radilo je takodje posaljem jednom kolegi na provjeru bazu nije mu citalo kod njega mislim da je vista bila, Sad prije par dana dize sebi win7 na laptopu sad ni kod mene nece da cita, takodje sinoc jednoj prijateljici posaljem ima win 7 na pc isto joj ne cita a kod tebe kazes da normalno

zxz 03.02.2012 20:17
Predmet:Re: Zastita aplikacije gdje grijesim

Da ali i kod mene je XP.
Molim te samo prije svega zaustavi opet kod pa vidi sta pise na:
vbDriveSerialNumber na isti nacin kao sto si uraio prije sa:
SerBrDiska

carobnjak 03.02.2012 20:37
Predmet:Re: Zastita aplikacije gdje grijesim

vbDriveSerialNumber=1 to mi pise drug

zxz 03.02.2012 20:52
Predmet:Re: Zastita aplikacije gdje grijesim

To je dobro i opet mi nista nije jasno.
De mi reci koja je verzija accessa u kojoj to radis.

carobnjak 03.02.2012 20:59
Predmet:Re: Zastita aplikacije gdje grijesim

Kaako rekoh trenutno koristim win7 a ofice 2000

zxz 03.02.2012 23:18
Predmet:Re: Zastita aplikacije gdje grijesim

Hajd probaj ovako
Na on load forme imas proceduru.
Zamijeni je ovom.
Private Sub Form_Load()
Dim SerBrDiska As String
SerBrDiska = GetDiskData(0)
Me.InstBroj = Kodiranje(SerBrDiska)
End Sub

Koliko imas diskova na compu.