Prečítajte si HTML webové stránky s MSHTML a VB6

Objekt MSHTML vo Visual Basic 6 umožňuje vykonávať rad činností spojených s internetom a webovými stránkami.

Vidíme, ako v tomto článku, a to prostredníctvom starostlivo vystavaný VB6 formulár, prečítajte si HTML kód na diaľku na webovej stránke

Sme sa otvoriť naše kópiu Visual Basic 6 a vytvoriť nový EXE. Vytvárame formuláre a disegnamolo ako na obrázku nižšie, čo predstavuje posledný článok na otázku:

Hlavnými prvkami, ktorých vlastnosti sú riadené priamo z IDE na VB6, je textové pole, textového poľa a ovládacie tlačidlá.

Textové pole sa bude volať txtUrl a priradiť ako predvolený text "http://".

Textarea sa bude volať txtCodiceHTML, odstráňte text, sa vydáme Viacriadkové vlastnosť na hodnotu true a umožňujú horizontálne i vertikálne posuvník.

Tlačidlové ovládanie sa nazýva cmdCodiceHTML.

Ako budete pokračovať ďalej, musíme dovážať odkaz na knižnicu MSHTML, ktorého plný názov je Microsoft HTML Object Library.

Vstúpte do menu:

 



 Project / Referencie ...

 

lokalizovať vstup, vyberte a potvrďte voľbu, ako to dokazuje nasledujúci obrázok:

Sme dvakrát kliknite na tlačidlo prístup, že čiastkové rutinné kód a vložte nasledujúci kód:

 Private Sub cmdCodiceHTML_Click ()



    



 Dim položku ako novú MSHTML.HTMLDocument



    



 Dim dokumentu MSHTML.HTMLDocument



    



 Septembra oggetto.createDocumentFromUrl dokumentu = (txtUrl.Text, vbNullString)



    



 Robiť, keď documento.readyState <> "kompletný"



        



 DoEvents



    



 Slučka



    



 txtCodiceHTML.Text = documento.documentElement.outerHTML



    



 Septembra dokumentu = Nothing



    



 Septembra objektu = Nothing







 End Sub

Kód je jednoduchý: deklarovať objekt dvakrát, porcie od krížovú kontrolu, otvorte webové stránky pomocou metódy createDocumentFromUrl.

Effetuiamo cyklu, až dosiahne stavu "kompletný", potom až do konca dokumentu.

Vloženie textu do textového poľa HTML kód cez vlastnosť len na čítanie (samozrejme) outerHTML.