Discussion :

[road-runner]

Bonjour,

Je viens vers vous car j'ai une application en VB.net qui fait des importations de cours de bourses avec l'instruction HttpWebRequest, ça marche bien sinon que je sais pas pour combien de temps car le compilateur m'indique en warning depuis un bout de temps "instruction obsolète", d'après vous dois-je a corriger mon code ou tant que ca va je bouge à rien. merci d'avance pour votre aide

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
Imports System.IO
Imports System.Net
Imports System.Net.Http
Imports System.Security.Policy
 
Public Class Form1
    Dim tag_top As String
    Dim temoin1 As String
    Dim temoin2 As String
    Dim client As HttpClient
    Public reponse As HttpWebResponse
    Public sw_web_ok As Boolean
    Public reponse_fct_status As WebExceptionStatus
    Public reponse_fct_message As String
 
    Public Function GetClient() As HttpClient
 
        Return client
    End Function
    Public Function Fct_GetResponse(ByRef URL As String, client As HttpClient) As HttpWebResponse
 
        'Create a web request
        Me.Refresh()
        Dim web As HttpWebRequest = HttpWebRequest.Create(URL)  'code obsolète  1
 
        web.UserAgent = ".NET Framework Test Client"  ' pour éviter l'erreur 403 forbidden  code obsolète
        web.Timeout = 25000   '25 sec   
        web.Method = "GET"
 
        Try
 
            reponse = web.GetResponse()
 
        Catch ex As System.Net.WebException
 
            If ex.Status <> 0 Then
 
                sw_web_ok = False
                reponse_fct_status = ex.Status
                reponse_fct_message = ex.Message
 
            End If
        End Try
 
        Return Nothing
    End Function
 
 
 
    Public Function Fct_GetNEWResponse(ByRef URL As String, client As HttpClient) As HttpWebResponse
 
    End Function
 
    Private Sub obsolete_Click(sender As Object, e As EventArgs) Handles obsolete.Click
 
        Call Fct_GetResponse("https://www.morningstar.be/be/funds/snapshot/snapshot.aspx?id=F0GBR04SYN&lang=fr-BE;BE0170210729;", GetClient())
        Dim lecteur As New StreamReader(reponse.GetResponseStream())
        Dim code_source_page_web = lecteur.ReadToEnd()
        tag_top = "line heading"
        temoin1 = code_source_page_web.Substring(code_source_page_web.IndexOf(tag_top))
        REM  temoin2 = temoin1.Substring(14, 2)
        MsgBox(temoin1)
    End Sub
 
    Private Sub nouveau_Click(sender As Object, e As EventArgs) Handles nouveau.Click
        Call Fct_GetNEWResponse("https://www.morningstar.be/be/funds/snapshot/snapshot.aspx?id=F0GBR04SYN&lang=fr-BE;BE0170210729;", GetClient())
 
    End Sub
End Class

[umfred]

Rien ne t'empêche de mettre en place la solution basée sur HttpClient en parallèle de HttpWebClient
https://learn.microsoft.com/en-us/do...et-8.0#remarks
https://learn.microsoft.com/en-us/do...t?view=net-8.0

[road-runner]

Rien ne t'empêche de mettre en place la solution basée sur HttpClient en parallèle de HttpWebClient
https://learn.microsoft.com/en-us/do...et-8.0#remarks
https://learn.microsoft.com/en-us/do...t?view=net-8.0

veux bien mais j'y arrive pas !!

[umfred]

tu as regardé l'exemple donné dans la doc de HttpClient ? ça devrait quand même bien te guider

[road-runner]

tu as regardé l'exemple donné dans la doc de HttpClient ? ça devrait quand même bien te guider

les exemples sont écrits en C#

[Pol63]

veux bien mais j'y arrive pas !!

réponse très utile, on peut vraiment t'aider avec ca

les exemples sont écrits en C#

y a un combobox en haut qui permet d'avoir les exemples en vb
y a des sites qui traduisent le c# en vb.net
google a surement des centaines de sites en réponse avec "httpclient vb.net sample" ...

à un moment faut y mettre un peu du tien ...

[edit] je viens de voir que tu avais 61 ans, donc c'est peut etre pas ton métier et plus un passe temps
dans ce cas tu peux aussi conserver le httpwebrequest
les choses obsolètes continuent de fonctionner sans problème, c'est juste que soit une classe remplacante fait mieux, soit elle comble des problèmes de sécurité, dans les 2 cas ca ne t'intéresse pas forcément