Ler o retorno de url através de stream (VB.NET)
11, fevereiro, 2007
Quase sempre surge a necessidade de capturar o HTML de algum endereço web ou até receber o retorno de uma página para efetuar integrações. Então segue um exemplo rápido de como montar uma pequena função em VB.NET para resolver essas situações.
Em primeiro lugar importe as seguintes API’s:
Imports System.IO Imports System.Net
Agora crie a seguinte Function dentro de sua camada de negócios:
Public Function capturaHtml(ByVal url) As String
Dim retorno As String
'cria uma instancia webRequest com url especificada
Dim webRequisicao As HttpWebRequest = HttpWebRequest.Create(url)
'devolve a resposta do recurso
Dim webResposta As Net.HttpWebResponse = webRequisicao.GetResponse
'recebe o stream de resposta do servidor
Dim receiveStream As IO.Stream = webResposta.GetResponseStream
Dim sr As StreamReader
sr = New StreamReader(receiveStream)
'le o stream até o fim
retorno = sr.ReadToEnd
Return retorno
End Function
Espero ter contribuido!
