Discussion :

[kitcarflo]

Bonjour.



Je viens vers vous pour un petit problème.

Il me faut récupérer les données d'une page web. C'est une page blanche, avec juste quelques mots (un mot par ligne).



J'avais un bout de code me permettant de réaliser le travail, mais depuis le changement de HTTP à HTTPS, ça ne marche plus. Et je ne trouve pas de solution pour récupérer dans mon programme les données.



Quelqu'un a déjà fait cela ?

[popo]

Nous n'avons pas encore la faculté de deviner le code que vous avez écrit.
Mais la technologie progresse...

En attendant, merci de poster le code qui ne fonctionne plus.

[kitcarflo]

Voici le code que j'utilisais.

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
Imports System.IO
Imports System.Net
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim webRequest As WebRequest
        Dim webResponse As WebResponse
        Dim pageHtml As String
 
        webRequest = HttpWebRequest.Create("Adresse de la page du site")
        webResponse = webRequest.GetResponse()
 
        Using stream As StreamReader = New StreamReader(webResponse.GetResponseStream())
            pageHtml = stream.ReadToEnd()
            MsgBox(pageHtml)
        End Using
end sub

[popo]

A première vue, ce code à l'air correct.
Tu obtiens un message d'erreur ?

Edit :
Même si ce n'est probablement pas pour cela que ça ne fonctionne pas, l'objet que tu utilises est déprécié.

Microsoft recommande celui-là à la place :
https://learn.microsoft.com/en-us/dotnet/api/system.net.http.httpclient?view=net-7.0

[popo]

Je viens de faire le test.
Ta méthode et celle que je t'ai suggéré fonctionnent toutes les deux et renvoient rigoureusement le même résultat.

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Module Module1
 
    Const Uri As String = "https://www.json.org/json-fr.html"
 
    Sub Main()
        Dim code1 As String = ExecuteWithHttpWebRequest()
        Dim code2 As String = ExecuteWithHttpClient()
 
        Dim result As String = If(code1.Equals(code2), "OK", "KO")
 
        Console.WriteLine(result)
        Console.ReadKey()
    End Sub
 
    Function ExecuteWithHttpWebRequest() As String
        Dim webRequest As WebRequest
        Dim webResponse As WebResponse
        Dim pageHtml As String
 
        webRequest = HttpWebRequest.Create(Uri)
        webResponse = webRequest.GetResponse()
 
        Using stream As StreamReader = New StreamReader(webResponse.GetResponseStream())
            pageHtml = stream.ReadToEnd()
 
            Return pageHtml
        End Using
    End Function
 
    Function ExecuteWithHttpClient() As String
        Using client As HttpClient = New HttpClient()
            Return client.GetStringAsync(Uri).Result
        End Using
    End Function
End Module

Résultat : OK.

Edit :
A vérifier en priorité.
Est-ce que ton URL fonctionne si tu l'appelle depuis un navigateur ?
Est-ce que tu obtiens un statut différent de 200 ?

[kitcarflo]

Bonjour.

Avec ma méthode, j'ai une erreur sur la ligne :

Code :

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

webResponse = webRequest.GetResponse()

"La demande a été abandonnée : Impossible de créer un canal sécurisé SSL/TLS."

La page que je charge fonctionne bien quand je saisie l'adresse sur mon navigateur.

J'ai essayé en changeant l'adresse de ma page par la tienne : "https://www.json.org/json-fr.html" et j'obtiens la même erreur. Je vais maintenant essayer avec ta méthode pour voir, mais j'ai une erreur sur "httpClient" qui est de type inconnu

[popo]

Le mieux serait d'utiliser .Net 7.0