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