1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Public Function ScanSourceHtml(ByVal pUrl As String) As String
Dim vSR As IO.StreamReader ' Objet StreamReader
Try
' Objet Http Request
Dim vWebRequest As System.Net.WebRequest
vWebRequest = System.Net.WebRequest.Create(pUrl) ' Requete vers l'url
vWebRequest.Method = "POST"
vWebRequest.Timeout = 60000
' Objet Http Response
Dim vWebResponse As System.Net.WebResponse ' Instanciation
vWebResponse = vWebRequest.GetResponse ' Response
' StreamReader avec la reponse http
vSR = New IO.StreamReader(vWebResponse.GetResponseStream) ' Instanciation
Return vSR.ReadToEnd() ' On retourne le resultat
vSR.Close() ' Fermer StreamReader
Catch ex As Exception
Return ex.Message.ToString ' en cas d'erreur, on renvoie la description de l'erreur
vSR.Close()
End Try
End Function |
Partager