Przeczytaj HTML strony sieci Web z MSHTML i VB6

Obiekt MSHTML w Visual Basic 6 pozwala na wykonanie szeregu czynności związanych z Internetem i stron WWW.

Widzimy w tym artykule, jak poprzez starannie skonstruowane postaci VB6, odczytać kod HTML zdalnie na stronie sieci Web

Otwieramy kopię Visual Basic 6 i utworzyć nowy plik EXE. Tworzymy formularz i disegnamolo jak na obrazku poniżej, co stanowi ostatni artykuł w pytanie:

Główne elementy, których właściwości są zarządzane bezpośrednio z IDE VB6, jest pole tekstowe, pola tekstowego i przycisków sterujących.

Pole tekstowe, będzie nazwane txtUrl i przypisać jako domyślną tekst "http://".

Textarea będzie nazwany txtCodiceHTML, usunąć tekst, będziemy Ustaw właściwość MultiLine na True i umożliwić poziomego i pionowego paska przewijania.

Przycisku sterowania nazywa cmdCodiceHTML.

Zanim przejdziemy dalej, musimy zaimportować odwołanie do biblioteki MSHTML, którego pełna nazwa to Microsoft Object Library HTML.

Wpisz w menu:

 



 Project / References ...

 

zlokalizować wpis, zaznacz go i potwierdź wybór, co zostało udokumentowane w następujący obraz:

Mamy podwójne kliknięcie na przycisk, kod dostępu, który pod rutynowych i wstawić następujący kod:

 Private Sub cmdCodiceHTML_Click ()



    



 Dim element jako nową MSHTML.HTMLDocument



    



 Dim dokumentu jako MSHTML.HTMLDocument



    



 Września oggetto.createDocumentFromUrl dokument = (txtUrl.Text, vbNullString)



    



 While documento.readyState <> "kompletna"



        



 DoEvents



    



 Pętla



    



 txtCodiceHTML.Text = documento.documentElement.outerHTML



    



 Dokument września = Nothing



    



 Obiekt września = Nothing







 End Sub

Kod jest prosty: zadeklarować obiekt dwukrotnie, służąc w kontroli krzyżowej, otwórz stronę sieci Web poprzez createDocumentFromUrl metody.

Effetuiamo cyklu, aż do osiągnięcia stanu "kompletna", a następnie do końca dokumentu.

Wstawić tekst do textarea kod HTML za pośrednictwem właściwości tylko do odczytu (oczywiście) outerHTML.