Leia o HTML de uma página Web com MSHTML e VB6

O objeto MSHTML em Visual Basic 6 permite realizar uma série de operações relacionadas à Internet e páginas web.

Vemos neste artigo como, através de um formulário VB6 cuidadosamente construída, leia o código HTML remotamente em uma página da Web

Abrimos nossa cópia de Visual Basic 6 e criar um novo EXE. Nós criamos um formulário e disegnamolo como na imagem abaixo, que representa o último artigo em questão:

Os principais elementos, cujas propriedades são geridas directamente a partir do IDE do VB6, é a caixa de texto, o textarea e controles de botão.

A caixa de texto será chamado txtUrl e atribuir como o texto padrão "http://".

O textarea será chamado txtCodiceHTML, exclua o texto, vamos definir a propriedade Multiline para True e permitir horizontal e vertical da barra de rolagem.

O controle de botão é chamado cmdCodiceHTML.

Antes de prosseguir, temos de importar a referência para a biblioteca MSHTML cujo nome completo é o Microsoft HTML Object Library.

Entre no menu:

 



 Projeto / References ...

 

localizar a entrada, selecione-o e confirme a seleção, como documentado na imagem a seguir:

Nós duplo clique sobre o botão, o acesso que o código de rotina sub e inserir o seguinte código:

 Private Sub cmdCodiceHTML_Click ()



    



 Item de Dim mshtml.HTMLDocument Nova



    



 Documento Dim mshtml.HTMLDocument



    



 Setembro documento oggetto.createDocumentFromUrl = (txtUrl.Text, vbNullString)



    



 Do While documento.readyState <> "completo"



        



 DoEvents



    



 Laço



    



 txtCodiceHTML.Text = documento.documentElement.outerHTML



    



 Documento setembro = Nothing



    



 Objeto setembro = Nothing







 End Sub

O código é simples: declarar o objeto duas vezes, servindo de cruzamento de dados, abra a página Web através do createDocumentFromUrl método.

Effetuiamo um ciclo até atingir o estado de "completo", então até o final do documento.

Inserir o texto na textarea o código HTML através da propriedade read-only (é claro) outerHTML.