Προγραμματισμός

* Γνώση Υπολογιστών >> Προγραμματισμός >> Visual Βασικά Προγραμματισμός

Πώς να δημιουργήσετε έναν κωδικό πρόσβασης Επαναφορά Script στο VB

Visual Basic είναι μια κοινή γλώσσα προγραμματισμού που χρησιμοποιείται για να δημιουργήσετε φόρμες των Windows . Οι εφαρμογές στην επιφάνεια εργασίας των Windows δημιουργούνται με τη Visual Basic έχουν την ικανότητα για την ασφάλεια και τη διαχείριση κωδικού πρόσβασης . Μπορείτε να επιτρέψετε στους χρήστες του λογισμικού σας για να αλλάξετε τον κωδικό πρόσβασής τους , χρησιμοποιώντας εσωτερικές λειτουργίες που είναι διαθέσιμες στη Visual Basic . Αυτό είναι χρήσιμο όταν θέλετε να ενσωματώσετε την εφαρμογή των Windows με τον υπολογιστή και τον κωδικό πρόσβασης του δικτύου ενημερώσεις . Οδηγίες
Η 1

Δημιουργία Visual Basic μεταβλητές σας . Τρεις μεταβλητές επαναφορά του κωδικού πρόσβασης ενός χρήστη : ένα αντικείμενο χρήστη , το παλιό password και το νέο κωδικό πρόσβασης . Ο παρακάτω κώδικας δημιουργεί αυτές τις μεταβλητές :

Dim χρήστης Όπως χρήστη IAD

Dim oldpass Όπως String Dim

newpass Όπως String 2

Ρυθμίστε το χρήστη αντιρρήσεις για τον τρέχοντα χρήστη . Αυτό μπορεί να είναι ο τρέχων χρήστης συνδεθεί, ή μπορείτε να καθορίσετε έναν άλλο χρήστη, εάν δημιουργείτε μια εφαρμογή διαχείρισης . Ο παρακάτω κώδικας ορίζει το αντικείμενο χρήστη :

Set user = GetObject ( " WinNT ://domain /χρήστης " )
εικόνων 3

Ρυθμίστε το παλιό και το νέο κωδικό πρόσβασης . Ο παλιός κωδικός πρόσβασης είναι τον τρέχοντα κωδικό πρόσβασης για το χρήστη που την επαναφορά . Ο νέος κωδικός πρόσβασης είναι η τιμή reset . Ο παρακάτω κώδικας ορίζει τις τιμές κωδικό :

oldpass = " currentpass "

newpass = " newpass "
Η 4

Εφαρμογή της λειτουργίας " ChangePassword " για να αλλάξετε το χρήστη τον κωδικό πρόσβασης . Η συνάρτηση είναι ένα μέρος του αντικειμένου του χρήστη που ορίζεται στο βήμα 1 . Ο κώδικας που ακολουθεί επαναφέρει τον κωδικό πρόσβασης χρήστη :

user.ChangePassword oldpass , newpass
Η
εικόνων

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα