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:
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!
Where blue is yellow and yellow is blue.
Step into the place coated red,
Where dead is alive and alive is dead.