Amelasar 19.04.2011 14:44
Predmet:Re: Zastita aplikacije

Hvala Vam.

To mi je bilo potrebno.
Moze li se ovaj reg fajl dodati u instalaciju da se automatski pokrene? I moze li se u instalaciju dodati da mi kreira na c folder temp i ili neki drugi, jer mi je potreban za rad programa.

Unaprijed hvala.

Pozdrav

zxz 19.04.2011 15:48
Predmet:Re: Zastita aplikacije

Pa to mozes napraviti pri prvom pokkretanju programa.
Ima niz nacina prvi je da provjerava dali postoji fajl. pa ako ne postoji da ga napravi.
Drugi nacin je da u nekoj tabeli u nekom polju napr. imas upisano 0 pa ako je nula da ovo odradi ako nije da ne radi a pri odradjivanju u ovo polje upises neki drugi broj.
Ako ne uspijes pomoci cemo detaljno.

Gjoreski 20.04.2011 02:26
Predmet:Re: Zastita aplikacije

jas ne koristam nekakvi posebni naici za istalacija na programite i sve sto e potrebno za niv.
Vo eden folder gi cuvam site raboti potrebni za rabota na programot i od tamu gi rasporeduvam na potrebnite mesta so eden .BAT fajl (Stariot dobar dos)

zxz 20.04.2011 10:13
Predmet:Re: Zastita aplikacije

Da moze i tako. Ja se toga nisam ni sjetio.

Gjoreski 21.04.2011 03:46
Predmet:Re: Zastita aplikacije

tuka sme za da gi spodelime iskustvata so kolegite.
pozdrav

carobnjak 31.07.2011 00:34
Predmet:Re: Zastita aplikacije

Pokusao sam da uradim zastitu sve je ok osim sto mi ne otvara poslije registracije zeljenu formu to jest poslije provjere da li je reg kljuc ispravan, radio sam po ovom primjeru od zxz kljuc a primjetio sam takodje i u ovom primjeru od zxz da poslije registracije ne dize formu? Kako prepraviti kod?

carobnjak 31.07.2011 00:43
Predmet:Re: Zastita aplikacije

Uspio rijeseno ipak je po obicaju greska do mene Smiling

carobnjak 31.07.2011 00:54
Predmet:Re: Zastita aplikacije

Ipak nisam uspio promjenio sam kod bio ali pogresno
Function main()
Dim Db As Database
Dim Rs As Recordset
Dim Kljuc As String
Dim Provjera As Boolean

Set Db = CurrentDb

Set Rs = Db.OpenRecordset("RegisterProgram")
Kljuc = Rs!Reg
Rs.Close
Provjera = ProvjeraKljuca(Kljuc)
If Provjera = True Then
'Ako je uredu onda podizes startnu formu ovdje
Else
DoCmd.OpenForm "RegisterProgram" ovo sam mislio da se mjenja na ime moje forme
End If
End Function

tad mi otvaralo moju formu ali nije registraciju

carobnjak 31.07.2011 01:44
Predmet:Re: Zastita aplikacije

Function main()
Dim Db As Database
Dim Rs As Recordset
Dim Kljuc As String
Dim Provjera As Boolean

Set Db = CurrentDb

Set Rs = Db.OpenRecordset("RegisterProgram")
Kljuc = Rs!Reg
Rs.Close
Provjera = ProvjeraKljuca(Kljuc)
If Provjera = True Then
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Form1" 'naziv moje forme
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
DoCmd.OpenForm "RegisterProgram"
End If
End Function

Sa ovim dobijam dobar rezultat ako sam gdje pogrijsio ne zamjerite nov samm

zxz 31.07.2011 01:46
Predmet:Re: Zastita aplikacije

Kompletan kod i opis zastite programa imas ovdje:
http://www.icentar.ba/showtopic.php?id=501