Přečtěte si HTML webové stránky s MSHTML a VB6

Objekt MSHTML ve Visual Basic 6 umožňuje provádět řadu činností spojených s internetem a webovými stránkami.

Vidíme, jak v tomto článku, a to prostřednictvím pečlivě vystavěný VB6 formulář, přečtěte si HTML kód na dálku na webové stránce

Jsme se otevřít naše kopii Visual Basic 6 a vytvořit nový EXE. Vytváříme formuláře a disegnamolo jako na obrázku níže, což představuje poslední článek na otázku:

Hlavními prvky, jejichž vlastnosti jsou řízeny přímo z IDE na VB6, je textové pole, textového pole a ovládací tlačítka.

Textové pole se bude jmenovat txtUrl a přiřadit jako výchozí text "http://".

Textarea se bude jmenovat txtCodiceHTML, odstraňte text, se vydáme Víceřádkové vlastnost na hodnotu true a umožňují horizontální i vertikální posuvník.

Tlačítkové ovládání se nazývá cmdCodiceHTML.

Než budete pokračovat dále, musíme dovážet odkaz na knihovnu MSHTML, jehož plný název je Microsoft HTML Object Library.

Vstupte do menu:

 



 Project / Reference ...

 

lokalizovat vstup, vyberte a potvrďte volbu, jak dokládá následující obrázek:

Jsme dvakrát klikněte na tlačítko přístup, že dílčí rutinní kód a vložte následující kód:

 Private Sub cmdCodiceHTML_Click ()



    



 Dim položku jako novou MSHTML.HTMLDocument



    



 Dim dokumentu MSHTML.HTMLDocument



    



 Září oggetto.createDocumentFromUrl dokumentu = (txtUrl.Text, vbNullString)



    



 Dělat, když documento.readyState <> "kompletní"



        



 DoEvents



    



 Smyčka



    



 txtCodiceHTML.Text = documento.documentElement.outerHTML



    



 Září dokumentu = Nothing



    



 Září objektu = Nothing







 End Sub

Kód je jednoduchý: deklarovat objekt dvakrát, porce od křížovou kontrolu, otevřete webové stránky pomocí metody createDocumentFromUrl.

Effetuiamo cyklu, až dosáhne stavu "kompletní", pak až do konce dokumentu.

Vložení textu do textového pole HTML kód přes vlastnost jen pro čtení (samozřejmě) outerHTML.