Boa Tarde Rafael!!!
Obrigado pela ajuda que tens dado, mas não consegui fazer desse jeito que você falou, tenho um codigo aqui que peguei no site do dinossauro do vb.net, marcoratti, segue abaixo, ele le a pagina os links, se que com ele não da para colocar mais uma linha para
ler o atributo ou linha especifica como essa que estou tentando ler e colocar no textbox?
codigo abaixo,
Public Class Web
Public Function RequestDadosWeb(ByVal pstrURL As String) As String
Dim oWebRequest As WebRequest
Dim oWebResponse As WebResponse = Nothing
Dim strBuffer As String = ""
Dim objSR As StreamReader = Nothing
'conecta com o website
Try
oWebRequest = HttpWebRequest.Create(pstrURL)
oWebResponse = oWebRequest.GetResponse()
'Le a resposta do web site e armazena em uma stream
objSR = New StreamReader(oWebResponse.GetResponseStream)
strBuffer = objSR.ReadToEnd
Catch ex As Exception
Throw ex
Finally
objSR.Close()
oWebResponse.Close()
End Try
Return strBuffer
End Function
Public Function ExtrairLinks(ByVal url As String) As DataTable
Dim dt As New DataTable
dt.Columns.Add("LinkTexto")
dt.Columns.Add("LinkUrl")
Dim wc As New WebClient
Dim html As String = wc.DownloadString(url)
Dim links As MatchCollection = Regex.Matches(html, "<a.*?href=""(.*?)"".*?>(.*?)</a>")
For Each match As Match In links
Dim dr As DataRow = dt.NewRow
Dim matchUrl As String = match.Groups(1).Value
'Ignora todos os links âncoras
If matchUrl.StartsWith("#") Then
Continue For
End If
'Ignora todas as chamadas javascript
If matchUrl.ToLower.StartsWith("javascript:") Then
Continue For
End If
'Ignora todos os links de email
If matchUrl.ToLower.StartsWith("mailto:") Then
Continue For
End If
'Para links internos, constroi a url mapeada para o endereço base
If Not matchUrl.StartsWith("http://") And Not matchUrl.StartsWith("https://") Then
matchUrl = MapearUrl(url, matchUrl)
End If
'Inclui o link no datatable
dr("LinkUrl") = matchUrl
dr("LinkTexto") = match.Groups(2).Value
dt.Rows.Add(dr)
Next
Return dt
End Function
Public Function MapearUrl(ByVal enderecoBase As String, ByVal caminhoRelativo As String) As String
Dim u As New System.Uri(enderecoBase)
If caminhoRelativo = "./" Then
caminhoRelativo = "/"
End If
If caminhoRelativo.StartsWith("/") Then
Return u.Scheme + Uri.SchemeDelimiter + u.Authority + caminhoRelativo
Else
Dim Caminho_Consulta As String = u.AbsolutePath
' Se o enderecoBase contem o nome do arquivo como ..../Something.aspx
' ajusta o nome do arquivo
Caminho_Consulta = Caminho_Consulta.Split("?")(0).TrimEnd("/")
If Caminho_Consulta.Split("/")(Caminho_Consulta.Split("/").Count - 1).Contains(".") Then
Caminho_Consulta = Caminho_Consulta.Substring(0, Caminho_Consulta.LastIndexOf("/"))
End If
enderecoBase = u.Scheme + Uri.SchemeDelimiter + u.Authority + Caminho_Consulta
'se o caminhoRelativo contém ../ então
' ajusta o enderecoBase
While caminhoRelativo.StartsWith("../")
caminhoRelativo = caminhoRelativo.Substring(3)
If enderecoBase.LastIndexOf("/") > enderecoBase.IndexOf("//" + 2) Then
enderecoBase = enderecoBase.Substring(0, enderecoBase.LastIndexOf("/")).TrimEnd("/")
End If
End While
Return enderecoBase + "/" + caminhoRelativo
End If
End Function
End Class
Private Sub btnObterPagina_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnObterPagina.Click
Try
Dim wc As New Web
txtDados.Text = wc.RequestDadosWeb(txtUrl.Text.Trim)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Desde já agradeço, muito obrigado.
Pablo Sousa.
PabloSousa
