Soyez le premier à donner votre avis sur cette source.
Snippet vu 13 631 fois - Téléchargée 44 fois
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 'en admettant que les textbox existent sur votre form (je vous laisse recupérer vous meme les noms), dans un bouton ou autre : 'htmltxt est un richtextbox, pour eviter une erreur si le fichier distant est trop gros If proxytxt.Text <> "" And porttxt.Text <> "" And urltxt.Text <> "" Then htmltxt.Text = Getrequest(urltxt.Text, proxytxt.Text, porttxt.Text) If urltxt.Text <> "" Then htmltxt.Text = Getrequest(urltxt.Text)
22 juin 2008 à 14:49
Imports System.Net
22 juin 2008 à 14:41
Où on défini WebProxy ???
15 avril 2007 à 14:57
Si tu as une idée je suis preneur.
Merci
Patrice
17 janv. 2006 à 11:20
Tu peux les modifier en fesant hwebrequest.Headers.Item("Le-Nom-Du-Header") = La Valeur"
ou en ajouter en fesant :
hwebrequest.Headers.Add("Test", "hop")
Pour finir, tu peux utiliser aussi les System.Net.HttpWebRequest qui te permettront d'editer les headers en tant que proprietés de l'objet directement... ex :
hwebrequest.UserAgent = "Hb BrowZer"
15 janv. 2006 à 22:04
Par contre, une question : Comment gérer les headers, les variables et les cookies ?
Cela doit être quand même beaucoup plus compliqué qu'avec un socket, non ?
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.