Ανοίξτε Visual Basic 6 . 2
Επιλέξτε "Standard EXE " από τη νέα λίστα των έργων .
Εικόνων 3
Πηγαίνετε στην επάνω γραμμή μενού , κάντε κλικ στο " Project" και στη συνέχεια κάντε κλικ στο κουμπί " Προσθήκη Module . " Αυτό θα προσθέσει μια τυπική λειτουργική μονάδα κώδικα στο έργο VB6 σας
Η 4
Πληκτρολογήστε ή αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο Module : .
Sub VBPassword ( )
Dim realpassword Όπως String Dim
getpassword Όπως String
realpassword = " password1 "
getpassword = InputBox ( " ό, τι είναι ο κωδικός ; " )
Αν getpassword = realpassword τότε
MsgBox ( "Right κωδικό . » )
υπόλοιπα
MsgBox ( " Λάθος κωδικός πρόσβασης , προσπαθήστε ξανά." )
End If
End Sub
5
Πατήστε το " F5 " για να εκτελέσετε το πρόγραμμα . Θα πάρετε ένα πλαίσιο εισόδου ζητά έναν κωδικό πρόσβασης . Εάν πληκτρολογήσετε τον σωστό κωδικό πρόσβασης , το οποίο είναι " password1 , " ένα πλαίσιο μηνύματος θα πει "Right κωδικό πρόσβασης. " Αν εισάγετε κάτι άλλο εκτός από password1 , θα πάρετε ένα κουτί μήνυμα που λέει " Λάθος κωδικός πρόσβασης , δοκιμάστε ξανά . "
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα