Bom, abaixo estarei lhe ensinando como fazer...
Primeiramente crie um novo Projeto e adicione à ele:
* 2 TextBoxers
* 1 CommandButton
* Microsoft Internet Transfer Control (Conhecido como o Componente iNET)
Caso desejar montar o seu Projeto com a mesma ESTRUTURA que eu montei, você pode visualizar o link abaixo:
Clique aqui para ver a Imagem
Após você montar o Projeto simplismente adicione o código abaixo à seu Projeto.
Public Function capturar()
On Error GoTo Erros
Dim Fonte, INICIO, FIM, TITULO
Command1.Enabled = False
Fonte = Inet1.OpenURL(Text1.Text)
Fonte = LCase(Fonte)
INICIO = InStr(Fonte, "<title>")
FIM = InStr(Fonte, "</title>")
Fonte = Mid(Fonte, INICIO, INICIO)
FIM = InStr(Fonte, "</title>")
Fonte = Mid(Fonte, 1, FIM)
INICIO = InStr(Fonte, "<title>")
Fonte = Mid(Fonte, 1, 9999)
Fonte = Replace(Fonte, "<title>", "")
Fonte = Replace(Fonte, "<", "")
Text2.Text = Fonte
Command1.Enabled = True
Exit Function
Erros:
Text2.Text = "ERRO: Página não encontrada"
Command1.Enabled = True
End Function
Private Sub Command1_Click()
Text2.Text = "Aguarde..."
capturar
End Sub
Dúvidas ? Favor poste!
Abraços,
Marcus Vinícius
