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