Centar za edukaciju-BiH

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

---

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 :))

---

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.

---

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.

---

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:

---

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

---

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.

---

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
Nista javim se kasnije kad pokusam i vidim kako i sta.

---

Predmet:Re: Zastita aplikacije gdje grijesim

---

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

Pozz

---

Predmet:Re: Zastita aplikacije gdje grijesim

---

Amelasar svaka cast to je to hvala puno puno

---