Discussion :

[Ilil0]

Bonjour, j'ai une question a vous poser au sujet de mon logiciel sur vb08

alors voilà j'aimerais savoir comment mon logiciel pourrait savoir ce qu'il y a d'écrit sur une page web exemple :

si il y a écrit

ERROR 404 page not found...

sur la page que l'utilisateur de mon logiciel a entré dans la Textbox, j'aimerais que mon logiciel dise dans une Richtextbox

La page que vous demander n'existe pas ou plus

Je suis bloqué a :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Webbrowser1.Navigate(Textbox1.text)
If ......................("ERROR 404") Then
      Richtextbox1.text = ("La page que vous demandez n'existe pas ou plus")
Enf If

Je compte sur votre aide merci d'avance
Cordialement Stéphane.

[Pol63]

si le but c'est juste de récupérer des choses, le httpwebrequest suffit (ce n'est pas graphique)
et ca te donne le statut directement dans le httpwebresponse (200=Ok 404=not found etc...)

[Ilil0]

Hum non je je n'aimerais pas que savoir le statue mais ce qu'il y a d'écrit sur une page

[Pol63]

le httpwebrequest permet aussi de lire le contenu html, faut juste voir si tu as besoin d'afficher la page ou non

[Ilil0]

Ah oui ? pourrais-je avoir plus d'information sur "httpwebrequest" ? un code d'exemple peut-être ?

[Pol63]

dans msdn surement (touche f1)

[Ilil0]

Je crois que non

[Pol63]

et pourtant si
http://msdn.microsoft.com/fr-fr/libr...8VS.80%29.aspx

[Ilil0]

en effet xD mais j'y comprend rien
il me faudrait un exemple avec la page 404 ca m'aiderais beaucoup

[Pol63]

c'est pourtant pas si compliqué d'essayer
il suffit de créer un httpwebrequest
tu lui donnes l'url
tu déclare un httpwebresponse qui vaut le request.getreponse
et sur le httpwebresponse tu as la propriété statuscode qui peut contenir 404 si la page existe plus
si tu veux le code html c'est via getresponsestream

tu peux meme définir ou obtenir les entetes http

[Ilil0]

Je ne comprend pas ce que tu veux dire je ne suis qu'un débutant, j'ai beau essayer toutes sortes de codes avec httpwebrequest ca ne me mène a rien

un petit exemple serait le bienvenue

[Pol63]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
        Dim rq As System.Net.HttpWebRequest
        rq = DirectCast(System.Net.HttpWebRequest.Create("http://www.google.fr"), System.Net.HttpWebRequest)
 
        Dim rep As System.Net.HttpWebResponse
        rep = DirectCast(rq.GetResponse, System.Net.HttpWebResponse)
 
        Select Case rep.StatusCode
            Case Net.HttpStatusCode.NotFound ' 404
                montextbox.text = "Page inexistante"
                ' etc...
        End Select
 
 
        Dim sr As New System.IO.StreamReader(rep.GetResponseStream)
 
        Dim codeHtml As String = sr.ReadToEnd

[Ilil0]

Merci beaucoup

[Ilil0]

Et pour savoir ce qu'il y a écrit sur la page ?? =)

après sa tu pourras mètre résolu

[Pol63]

codeHtml

[Ilil0]

ok mais le code ? ^^ ou je remplace quoi par rapport au 1er

[Pol63]

dans mon exemple, la variable codeHtml contient tout le code html de la page
regarde dedans avec un espion ...

[Ilil0]

oui mais je ne connais pas les codes...