Centar za edukaciju-BiH

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

---

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.

---

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.

---

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.

---

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

---

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

---

Predmet:Re: Zastita aplikacije gdje grijesim

---

vbDriveSerialNumber=1 to mi pise drug

---

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.

---

Predmet:Re: Zastita aplikacije gdje grijesim

---

Kaako rekoh trenutno koristim win7 a ofice 2000

---

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.

---