PEGAR O TITULO DA PAGINA WEB

PEGUDO 13/09/2010 13:16:20
#352878
Como eu faço para retornar o título de uma página Web, que está entre as tags <Title>...</Title>?
RICATOM 13/09/2010 13:35:10
#352879
Utilize o msinet para ler o conteudo da pagina, se não me engado tem exemplo aqui no site
TECLA 13/09/2010 13:41:23
#352880 Resposta escolhida
Citação:

:
Utilize o msinet para ler o conteudo da pagina, se não me engado tem exemplo aqui no site



Dim Web As String, Titulo As Integer
Web = Inet1.OpenURL([Ô]www.terra.com.br[Ô])
Titulo = InStr(1, Web, [Ô]<title>[Ô]) + 7
MsgBox Mid(Web, Titulo, InStr(Titulo, Web, [Ô]</title>[Ô]) - Titulo)
Tópico encerrado , respostas não são mais permitidas
Voltar