Ovako napravio sam progrrma pomocu knjige i malo ga doradio samo mi treba jos malo pa sam sve rijesio!
Pa vas molim dali mi mozete pomoci oko koda koji gasi PC i kod koji nedopusta da se ista drugo koristi u windowsima ako se neutipka prava lozinka i ne izade iz programa!
Evo dokle sam ja dosao:
Vrlo jednostavno!
I da kazem da bi mi sluzio da nedam nikom da stupi mom PC ako nezna lozinku a to se odnosi na goste od sestre!
Znam da ima dosta drugih progrma cak i win imaju u userima svoje opcije da stavim lozinku ali zelim da napravim nesto sto ce korstit i da se ponosim s tim!!
Hvala lijepa!
Pa vas molim dali mi mozete pomoci oko koda koji gasi PC i kod koji nedopusta da se ista drugo koristi u windowsima ako se neutipka prava lozinka i ne izade iz programa!
Evo dokle sam ja dosao:
Code:
Private Sub cmdIzlaz_Click()
End
End Sub
Sub txtLozinka_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
If UCase$(txtLozinka.Text) = "LOZINKA" Then
cmdIzlaz.Enabled = True
Else
Beep
MsgBox "Lozinka je neispravna!", , "MARŠ ODAVDE"
txtLozinka.Text = ""
End If
End If
End Sub
Private Sub cmdIzlaz_Click()
End
End Sub
Sub txtLozinka_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
If UCase$(txtLozinka.Text) = "LOZINKA" Then
cmdIzlaz.Enabled = True
Else
Beep
MsgBox "Lozinka je neispravna!", , "MARŠ ODAVDE"
txtLozinka.Text = ""
End If
End If
End Sub
Vrlo jednostavno!
I da kazem da bi mi sluzio da nedam nikom da stupi mom PC ako nezna lozinku a to se odnosi na goste od sestre!
Znam da ima dosta drugih progrma cak i win imaju u userima svoje opcije da stavim lozinku ali zelim da napravim nesto sto ce korstit i da se ponosim s tim!!
Hvala lijepa!
Potpis
Step into the place that isn't true,
Where blue is yellow and yellow is blue.
Step into the place coated red,
Where dead is alive and alive is dead.
Where blue is yellow and yellow is blue.
Step into the place coated red,
Where dead is alive and alive is dead.