Option Explicit
Dim stRichiesta As String
Dim Tentativi As Byte
Dim lTempo As Long
Dim stPassword As String
Private Sub cmdAttivaProtezione_Click()
frmBlocco.Show
txtAutorizzazione.Text = ""
txtPassword.Locked = True
Do
stRichiesta = InputBox$("INSERISCI PASSWORD: ( Default pas ) " _
& vbCrLf & "Tentativi rimasti: " & Tentativi, "PASSWORD")
If stRichiesta <> stPassword Then
If Tentativi <= 0 Then
'Spegne il pc
Shell "c:\windows\system32\shutdown.exe -s -t 1 -f"
End If
Tentativi = Tentativi - 1
Else
Exit Do
End If
Loop
frmBlocco.Hide
frmMain.Show
End Sub
Private Sub cmdRiduci_Click()
Riduci.Enabled = True
End Sub
Private Sub cmdTimer_Click()
Timer.Enabled = False
End Sub
Private Sub Command1_Click()
'Termino il programma
End
End Sub
Private Sub Form_Click()
Riduci.Enabled = False
frmMain.Width = 6540
frmMain.Height = 2835
End Sub
Private Sub Form_Load()
'Imposto la posizione del form
frmMain.Left = 0
frmMain.Top = 0
txtPassword.Enabled = False
'Imposto il valore alle variabili
Tentativi = 3
stPassword = txtPassword.Text
'Richiede la password
Do
stRichiesta = InputBox$("INSERISCI PASSWORD: ( Default pas ) " _
& vbCrLf & "Tentativi rimasti: " & Tentativi, "PASSWORD")
If stRichiesta <> stPassword Then
If Tentativi <= 0 Then
'Spegne il pc
Shell "c:\windows\system32\shutdown.exe -s -t 1 -f"
End If
Tentativi = Tentativi - 1
Else
Exit Do
End If
Loop
frmBlocco.Hide
End Sub
Private Sub lblTempo_DblClick()
On Error GoTo Errore
lTempo = InputBox$("Inserisci fra quanti secondi dovrà partire la protezione automatica", "PROTEZIONE AUTOMATICA")
Timer.Enabled = True
cmdTimer.Enabled = True
Exit Sub
Errore:
MsgBox Err.Description, vbCritical
'Termino il programma
End
End Sub
Private Sub Orario_Timer()
lblOrario.Caption = Time$
End Sub
Private Sub Riduci_Timer()
frmMain.Height = frmMain.Height - 6
frmMain.Width = frmMain.Width - 6
End Sub
Private Sub Timer_Timer()
lTempo = lTempo - 1
lblTempo.Caption = lTempo & " secondi"
If lTempo <= 0 Then
Timer.Enabled = False
cmdAttivaProtezione_Click
End If
End Sub
Private Sub txtAutorizzazione_Change()
If txtAutorizzazione.Text = stPassword Then
txtPassword.Enabled = True
txtPassword.Locked = False
txtPassword.SetFocus
End If
End Sub
Private Sub txtPassword_GotFocus()
txtPassword.Text = ""
End Sub
Private Sub txtPassword_LostFocus()
'Avvisa l'utente che la password è stata cambiata con successo
MsgBox "Password cambiata!", vbInformation + vbOKOnly, "PASSWORD CAMBIATA CON SUCCESSO!"
txtPassword.Locked = True
stPassword = txtPassword.Text
If txtPassword.Text = "" Then
MsgBox "Password non valida", vbCritical, "ERRORE"
End
End If
End Sub
Private Sub txtPassword_Validate(Cancel As Boolean)
If txtPassword.Text = "pas" Then
optPredefinito.Value = True
Else
optPersonalizzato.Value = True
End If
End Sub