1 Ανοίξτε την ιστοσελίδα στην οποία θέλετε να στείλετε έναν κωδικό πρόσβασης . Κάντε κλικ στο πλαίσιο κειμένου για την εισαγωγή του κωδικού πρόσβασης . 2
Ανοίξτε το Excel . Εισάγετε τον VBA περιβάλλον κωδικοποίησης ως εξής : Κάντε δεξί κλικ στην καρτέλα στο κάτω μέρος της οθόνης που λέει " Φύλλο1, " και στη συνέχεια επιλέξτε το "Προβολή κώδικα " στοιχείο. Excel θα εμφανίσει το παράθυρο κώδικα VBA .
Εικόνων 3
Επικολλήστε τον ακόλουθο πρόγραμμα στο παράθυρο κώδικα .
Public Sub automateLogin ( )
AppActivate " type_browser_name > " , True
SendKeys " Application.Wait 900 SendKeys " ~ " , True End υπο Αυτό το πρόγραμμα δημιουργεί το πρόγραμμα περιήγησής σας για να λαμβάνετε εισόδου από το πληκτρολόγιο χρησιμοποιώντας τη δήλωση AppActivate . Η δήλωση SendKeys στέλνει την πληκτρολόγηση του κωδικού πρόσβασης σας στο πρόγραμμα περιήγησης , και η δήλωση Application.Wait σταματά να δοθεί χρόνος browser σας για να επεξεργαστεί τις πληκτρολογήσεις . Η " ~ " χαρακτήρας αντιπροσωπεύει το πλήκτρο "Enter" . Πληκτρολογήστε πάνω από την ετικέτα ( π.χ. " <> "), κείμενο του προγράμματος στο βήμα 3 με το πρόγραμμα περιήγησης και το όνομα του κωδικού πρόσβασης που απαιτείται για την συνδεθείτε στην ιστοσελίδα . Κάντε κλικ σε μια δήλωση στο πρόγραμμα automateLogin πληκτρολογήσατε στο βήμα 3 και, στη συνέχεια κάντε κλικ στο κουμπί "Run sub" το στοιχείο του μενού "Run" για να εκτελέσει το πρόγραμμά σας . Το Excel θα ενεργοποιήσει το πρόγραμμα περιήγησης που καθορίζονται στον κώδικα σας , στη συνέχεια, να στείλετε πληκτρολογήσεις στο πρόγραμμα περιήγησης . Αυτές οι πληκτρολογήσεις διευκρινίσει τον κωδικό πρόσβασης που πληκτρολογήσατε στο βήμα 3 . Τότε το Excel θα εκτελέσει " SendKeys '~' , True" του προγράμματος δήλωση, η οποία θα στείλει την πληκτρολόγηση του πλήκτρου "Enter" στην ιστοσελίδα . Η δράση αυτή θα υποβάλει τη φόρμα σύνδεσης για την επεξεργασία , ακριβώς σαν να πιέζεται το χέρι το πλήκτρο "Enter" . Τύπος στην κορυφή , αριστερά κελί πρώτο φύλλο εργασίας του Excel το όνομα του προγράμματος περιήγησης στο οποίο που μόλις υπέβαλε έναν κωδικό πρόσβασης . Το βήμα αυτό ξεκινά την αναθεώρηση του προγράμματος login . Το αναθεωρημένο πρόγραμμα θα χρησιμοποιεί πληροφορίες που είναι αποθηκευμένες σε ένα φύλλο εργασίας , και όχι πληροφορίες που περιέχονται στον πηγαίο κώδικα του προγράμματος , για να συνδεθείτε με την ιστοσελίδα . Η προσέγγιση αυτή καθιστά ευκολότερο να αλλάξετε τα στοιχεία σύνδεσης . Πληκτρολογήστε το κελί κάτω από το ένα που περιέχει το πρόγραμμα περιήγησης όνομα τον κωδικό σας hard-coded στο Βήμα 3 . Πιέστε το πλήκτρο " Alt - F11 " για να μπει και πάλι σε VBA περιβάλλον κωδικοποίησης . Στη συνέχεια, επικολλήστε τον παρακάτω κώδικα αναθεωρημένο πρόγραμμα κάτω από το πρόγραμμα automateLogin . Public Sub automateLoginWithStoredPassword ( ) Dim κωδικό πρόσβασης, browsername browsername = ActiveSheet.Cells ( 1 , 1 ) . αξία password = ActiveSheet.Cells ( 2 , 1 ) . Value AppActivate browsername , True SendKeys κωδικό πρόσβασης , True Application.Wait 900 SendKeys " ~" , True End Sub Επιστροφή browser σας στη σελίδα σύνδεσης και να τρέξει το αναθεωρημένο πρόγραμμα χρησιμοποιώντας τις οδηγίες Βήμα 5 του . Το Excel θα στείλει τον κωδικό πρόσβασης που αποθηκεύονται στο φύλλο εργασίας στη σελίδα σύνδεσης .
Η 4
5
Η 6
Η 7
8
Η 9
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα