1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Function Get_request(ByVal url As String, Optional ByVal proxy As String = Nothing, Optional ByVal proxyport As Integer = Nothing) As String
Dim readstr As IO.StreamReader 'on crée un objet streamreader
Try
If proxy <> Nothing And proxyport <> Nothing Then 'on execute ceci que si les deux arguments optionels ont été passés (proxy et port)
Dim hproxy As WebProxy 'on crée l'objet proxy
hproxy = New WebProxy(proxy, proxyport) 'on defini hproxy avec les valeurs données
GlobalProxySelection.Select = hproxy 'on applique le proxy
End If
Dim hwebrequest As System.Net.WebRequest = System.Net.WebRequest.Create(url) 'on crée la requete web
Dim hwebresponse As System.Net.WebResponse = hwebrequest.GetResponse 'on crée un objet de reponse a notre requete
readstr = New IO.StreamReader(hwebresponse.GetResponseStream) 'on redefini notre streamreader avec la reponse à la requete en argument
Return readstr.ReadToEnd() 'on renvoie l'ensemble du resultat
readstr.Close() 'on ferme l'objet
Catch ex As Exception
Return ex.Message.ToString ' en cas d'erreur, on renvoie la description de l'erreur
readstr.Close()
End Try
End Function |
Partager