Centar za edukaciju-BiH



#21 03.02.2012 22:27
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

#22 03.02.2012 23:30
carobnjak Van mreze
Clan
Registrovan od:25.07.2011
Postovi:381


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 :))
Srdačan pozdrav
↑  ↓

#23 04.02.2012 00:41
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

#24 04.02.2012 00:43
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

#25 04.02.2012 01:51
carobnjak Van mreze
Clan
Registrovan od:25.07.2011
Postovi:381


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:
Informacije o tipu datoteke za:bmp  ZxZ.bmp
Preuzimanja:227
Velicina datoteke:777.36 KB
Informacije o tipu datoteke za:rar  zastita.rar
Preuzimanja:222
Velicina datoteke:49.07 KB


Srdačan pozdrav
↑  ↓

#26 04.02.2012 02:10
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

#27 04.02.2012 02:11
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 04.02.2012 02:12 od strane zxz. ↑  ↓

#28 04.02.2012 13:02
carobnjak Van mreze
Clan
Registrovan od:25.07.2011
Postovi:381


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.
Srdačan pozdrav
↑  ↓

#29 04.02.2012 18:33
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:262


Predmet:Re: Zastita aplikacije gdje grijesim
Ako je u pitanju Windows 7 treba iskljuciti user account control.

Pozz
Pozdrav, Amela
↑  ↓

#30 04.02.2012 21:53
carobnjak Van mreze
Clan
Registrovan od:25.07.2011
Postovi:381


Predmet:Re: Zastita aplikacije gdje grijesim
Amelasar svaka cast to je to hvala puno puno
Srdačan pozdrav
↑  ↓

Stranice (8):1,2,3,4,5,6,7,8


Sva vremena su GMT +01:00. Trenutno vrijeme: 8: 51 am.