Aprire Visual Basic 6 .
2
Seleziona " EXE standard " dal nuovo elenco di progetti .
3
Vai alla barra dei menu in alto , clicca su " Progetto" e quindi fare clic su " Aggiungi modulo ". Verrà aggiunto un modulo di codice standard nel progetto VB6
4 Tipo
o copiare e incollare il seguente codice nel modulo: .
Sub VBPassword ( ) per
dim realpassword As String dim
GetPassword As String
realpassword = " password1 "
GetPassword = InputBox ( " Qual è la password ? " ) per
GetPassword = realpassword Poi
MsgBox ( "Password destro . " ) per
Else
MsgBox ( "Password errata , riprovare . " ) per
End If
End Sub
5
Premere " F5 " per eseguire il programma . Si otterrà una casella di input per chiedere una password. Se si immette la password corretta , che è " password1 ", una finestra di messaggio dirà " Proprio la password . " Se si immette un valore diverso da password1 , si otterrà un messaggio che dice "Password errata , riprovare. "
Programmazione © www.354353.com