Visual Basic 6 - password

Forum - Visual Basic 6 - password

massimo (Normal User)
Expert

Messaggi: 210
Iscritto: 23/08/2009

Postato alle 21:29
Sabato, 29/08/2009

creando un programma con vb6 vorrei proteggerlo inserndo una password come si fà grazie

fusebyte (Normal User)
Expert

Messaggi: 332
Iscritto: 24/12/2008

Postato alle 22:52
Sabato, 29/08/2009

Crei un form,diciamo formlogin
e lo inserisci nel FORM LOAD per aprirlo all'avvio.
Inibisci il FORM1 cosi:

Codice sorgente - presumibilmente VB.NET

private sub FORM_LOAD()
Form1.Visible = False
frmLogin.Show
end sub

quando avvi ti apparira' prima il formlogin e poi il form1

ora devi impostare il formlogin per la password,diciamo che dopo 3 tentativi puoi
indirizzarlo ad una routine che riscrive qualsiasi cosa del soft per rovinarlo definitivamente oppure come preferisci fare.
Cmq inserisci questo nel frmLogin

Codice sorgente - presumibilmente VB.NET

Private Sub cmdLogin_Click()
Dim x
x = 0
If Text1.Text = "user" And Text2.Text = "password" Then
Unload Me
Form1.Visible = True
Else
Form1.Visible = False
x = x + 1
If x = 3 Then
' call destroy routine <--qui puoi inserire la routine killer
x = 0
Exit Sub 'oppure semplicemente dopo 3 tentativi esce dalla sub
Unload Me
End If
End If
End Sub

te l'ho scritto come base ,poi puoi migliorarlo come meglio credi
non è che sia la migliore protezione ma cmq parecchi li ferma.
Ciao