Διαβάστε τον κώδικα HTML μιας ιστοσελίδας με MSHTML και VB6

Το αντικείμενο MSHTML σε Visual Basic 6 επιτρέπει να εκτελέσετε μια σειρά ενεργειών που σχετίζονται με το Διαδίκτυο και ιστοσελίδες.

Βλέπουμε σε αυτό το άρθρο το πώς, μέσα από ένα προσεκτικά κατασκευασμένο μορφή VB6, διαβάστε τον κώδικα HTML από απόσταση σε μια ιστοσελίδα

Ανοίγουμε αντίγραφο μας της Visual Basic 6 και να δημιουργήσετε ένα νέο EXE. Δημιουργούμε μια φόρμα και disegnamolo όπως στην παρακάτω εικόνα, η οποία αντιπροσωπεύει το τελικό εν λόγω άρθρο:

Τα κύρια στοιχεία, των οποίων οι ιδιότητες είναι υπό την άμεση διαχείριση από το IDE της VB6, είναι το πλαίσιο κειμένου, το textarea και πλήκτρα ελέγχου.

Το πλαίσιο κειμένου θα ονομάζεται txtUrl και να ορίσετε ως το προεπιλεγμένο κείμενο "http://".

Η textarea θα ονομάζεται txtCodiceHTML, διαγράψτε το κείμενο, θα ορίσετε την ιδιότητα να Multiline True και επιτρέπουν την οριζόντια και κάθετη Γραμμή κύλισης.

Ο έλεγχος κουμπί ονομάζεται cmdCodiceHTML.

Πριν προχωρήσουμε πρέπει να εισάγουμε την αναφορά στη βιβλιοθήκη MSHTML του οποίου πλήρες όνομα είναι το Microsoft βιβλιοθήκη αντικειμένων HTML.

Πληκτρολογήστε το μενού:

 



 Έργο / αναφορές ...

 

εντοπίσουν τη θέση, επιλέξτε το και επιβεβαιώστε την επιλογή σας, όπως τεκμηριώνεται στην παρακάτω εικόνα:

Έχουμε διπλό κλικ στο κουμπί, η πρόσβαση που υπο τον κωδικό ρουτίνα και να εισάγετε τον ακόλουθο κώδικα:

 Private Sub cmdCodiceHTML_Click ()



    



 Dim στοιχείου ως νέα MSHTML.HTMLDocument



    



 Dim έγγραφο ως MSHTML.HTMLDocument



    



 Σεπτέμβριος oggetto.createDocumentFromUrl έγγραφο = (txtUrl.Text, vbNullString)



    



 Να Ενώ documento.readyState <> "πλήρης"



        



 DoEvents



    



 Βρόχος



    



 txtCodiceHTML.Text = documento.documentElement.outerHTML



    



 Σεπτέμβριος έγγραφο = Τίποτα



    



 Σεπτέμβριος αντικείμενο = Τίποτα







 Sub End

Ο κώδικας είναι απλός: να αναγνωρίσει το αντικείμενο δύο φορές, υπηρετώντας από τη διασταύρωση, ανοίξτε την ιστοσελίδα μέσω της createDocumentFromUrl μέθοδο.

Effetuiamo έναν κύκλο μέχρι να φτάσει η κατάσταση "πλήρης", τότε μέχρι το τέλος του εγγράφου.

Εισάγετε το κείμενο του textarea κώδικα HTML μέσω του μόνο για ανάγνωση ιδιοκτησίας (φυσικά) outerHTML.