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

Ako i ovo ne ide odustajemo od toga nego skini moj dll za ser br. diska
http://www.icentar.ba/...nt&id=463
Raspakuj ovaj dll i ucitaj ga kroz reference
Svoju proceduru na on load forme promijeni :
Private Sub Form_Load()
Dim SerBrDiska As String
SerBrDiska = HRDRV.GetSerialNumber
Me.InstBroj = Kodiranje(SerBrDiska)
End Sub

carobnjak 04.02.2012 00:30
Predmet:Re: Zastita aplikacije gdje grijesim

Prva procedura nije uspjela pokusat cu sad drugu vu skinuo sam tvoj dll ali nisam siguran kako kroz reference da ga ucitam

A imam jedan disk saa dvije particije (ali particija ne igra ulogu jelda :))

zxz 04.02.2012 01:41
Predmet:Re: Zastita aplikacije gdje grijesim

Da ne igra zato sam ono i promijenio jer on cita ser br. diska koji ti nemas.
Prvi disk je disk 0. ako je sve namontirano kako valja.
Ide po redu:
primarni kabal masters disk je 0
Primarni kabal slave disk je 1
sekundarni kabal masters disk je 2
Sek. kaba slave disk je 3
Ti imas u ovoj proceduri u modulu modcopy ovo
Public Enum vbDiskDataType
vbDriveModelNumber = 0
vbDriveSerialNumber = 1
vbDriveControllerRevisionNumber = 2
vbControllerBufferSize = 3
vbDriveType = 4
End Enum
vbDriveSerialNumber = 1 ' trbalo bi 0
Jos nesto u nekim verzijama Vb-a ne podrzava enum pa bi trebalo staviti konstante
Elem trebalo bi se poigrati sa ovim konstantama.
Ja nemogu jer kod mene sve radi a imam i 2 diska.

zxz 04.02.2012 01:43
Predmet:Re: Zastita aplikacije gdje grijesim

Reference.
Otvoris neki modul.
Ides na meni
Tools-->Referencec
Kliknes na tater browse i ucitas taj dll.
Ako ne bude radio treba ga regati a i to imas u temi dll i ocx kontrole tamo gdje si ga skinuo.

carobnjak 04.02.2012 02:51
Predmet:Re: Zastita aplikacije gdje grijesim

Drug posto je meni ovo previse previse komplikovano ne znam zato sto je ovako kasno ili zato sto mi u mozak ne ulazi ovako malo sam pregledo ponovo sve nanovo po forumu sto se tice zastite. Na ovoj temi sto je postavila Amelasar: http://www.icentar.ba/...amp;q=zastita

Tvoj kljuc nanovo kad skinem znaci sa ovim kodom u kojem ja radim ponovo ne pokazuje slika prilog

Dok primjer koji je ona postavila zastita_rar ocitava mi
Ako ti moze pomoci da skontamo gdje smo fulali ili ako bi mi mogao objasniti kako da odradim ovu njenu zastitu u svojoj bazi ali sa stringom ili kodom nekim?
Prilozi:
ZxZ.bmp (Velicina datoteke:777.36 KB)
zastita.rar (Velicina datoteke:49.07 KB)

zxz 04.02.2012 03:10
Predmet:Re: Zastita aplikacije gdje grijesim

Pa u ovom primjeru nije pravi ser. broj.
evo procedure:
Function HDDBroj(drvpath)

Dim fs, d
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName _
(fs.GetAbsolutePathName(drvpath)))
HDDBroj = d.SerialNumber

End Function
ako ovu proceduru kopiras negdje u modul
Te na vrhu modula dodas konstantu napr.
const drvpath="C:\"
a u svojoj proceduri napises ovako:
Private Sub Form_Load()
Dim SerBrDiska As String
SerBrDiska = HDDBroj(drvpath)
Me.InstBroj = Kodiranje(SerBrDiska)
End Sub

zxz 04.02.2012 03:11
Predmet:Re: Zastita aplikacije gdje grijesim

Nemoj da si razocaran.
Skoro si poceo i dosta si naucio.
Trebas da budes prezadovoljan.
Sve ce to leci kad odmoris malo.

carobnjak 04.02.2012 14:02
Predmet:Re: Zastita aplikacije gdje grijesim

Ma ne nisam razocaran uopste hehehe novi dan nova nafaka idemo dalje danas cu pokusati sad sa ovi primjerom pa javim kako i dokle sam stigo ako zaskripi gdje pitat cu ako rijesim sta ponovo cu napisat kako sam rjesio, radi drugi koji budu citali a ovako kao i ja zeljni da nauce pa nek ostane trag Smiling
Nista javim se kasnije kad pokusam i vidim kako i sta.

Amelasar 04.02.2012 19:33
Predmet:Re: Zastita aplikacije gdje grijesim

Ako je u pitanju Windows 7 treba iskljuciti user account control.

Pozz

carobnjak 04.02.2012 22:53
Predmet:Re: Zastita aplikacije gdje grijesim

Amelasar svaka cast to je to hvala puno puno