migrer l'instruction obsolète HttpWebRequest
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:
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 |
