- Imports System.Net.Sockets
- Imports System.IO
-
- Public Function RecupHTTP(ByVal URL As String) As String
- ' Déclaration des variables
- Dim LeDomaine As Integer
- Dim LeURL As String = ""
- Dim LeHost As String = ""
- Dim LeChemin As String = ""
- Dim Resultat As String = ""
- Dim RecupHTTPChaine As String = ""
- Dim WebClient As New TcpClient()
- Dim WebStream As NetworkStream
- Dim WebWriter As StreamWriter
- Dim WebReader As StreamReader
- ' On découpe l'url envoyée en paramètre à la fonction
- LeDomaine = InStr(UCase(URL), "HTTP://")
- If LeDomaine > 0 Then
- LeURL = Mid(URL, LeDomaine + 7)
- Else
- LeURL = URL
- End If
- LeDomaine = InStr(LeURL, "/")
- If LeDomaine > 0 Then
- LeHost = Mid(LeURL, 1, LeDomaine - 1)
- LeChemin = Mid(LeURL, LeDomaine)
- Else
- LeHost = LeURL
- LeChemin = "/"
- End If
-
- ' On construit notre requete HTTP
- RecupHTTPChaine = "GET " & LeChemin & " HTTP/1.1" & vbCrLf & "Host: " & LeHost & vbCrLf & "Connection: Close" & vbCrLf & vbCrLf
-
- ' On ouvre une socket sur le port 80
- WebClient.Connect(LeHost, 80)
- WebStream = WebClient.GetStream
- WebWriter = New StreamWriter(WebStream)
- WebWriter.Write(RecupHTTPChaine)
- WebWriter.Flush()
- WebReader = New StreamReader(WebStream)
-
- ' On stock la page html dans notre variable "Resultat"
- Resultat = WebReader.ReadToEnd()
-
- ' On ferme la socket
- WebStream.Close()
- WebClient.Close()
-
- ' On renvoi ce que l'on a récupéré
- RecupHTTP = Resultat
- End Function
-
Imports System.Net.Sockets
Imports System.IO
Public Function RecupHTTP(ByVal URL As String) As String
' Déclaration des variables
Dim LeDomaine As Integer
Dim LeURL As String = ""
Dim LeHost As String = ""
Dim LeChemin As String = ""
Dim Resultat As String = ""
Dim RecupHTTPChaine As String = ""
Dim WebClient As New TcpClient()
Dim WebStream As NetworkStream
Dim WebWriter As StreamWriter
Dim WebReader As StreamReader
' On découpe l'url envoyée en paramètre à la fonction
LeDomaine = InStr(UCase(URL), "HTTP://")
If LeDomaine > 0 Then
LeURL = Mid(URL, LeDomaine + 7)
Else
LeURL = URL
End If
LeDomaine = InStr(LeURL, "/")
If LeDomaine > 0 Then
LeHost = Mid(LeURL, 1, LeDomaine - 1)
LeChemin = Mid(LeURL, LeDomaine)
Else
LeHost = LeURL
LeChemin = "/"
End If
' On construit notre requete HTTP
RecupHTTPChaine = "GET " & LeChemin & " HTTP/1.1" & vbCrLf & "Host: " & LeHost & vbCrLf & "Connection: Close" & vbCrLf & vbCrLf
' On ouvre une socket sur le port 80
WebClient.Connect(LeHost, 80)
WebStream = WebClient.GetStream
WebWriter = New StreamWriter(WebStream)
WebWriter.Write(RecupHTTPChaine)
WebWriter.Flush()
WebReader = New StreamReader(WebStream)
' On stock la page html dans notre variable "Resultat"
Resultat = WebReader.ReadToEnd()
' On ferme la socket
WebStream.Close()
WebClient.Close()
' On renvoi ce que l'on a récupéré
RecupHTTP = Resultat
End Function