Bonjour,
J'ai un message de warning lors de la compilation sur Httwebrequest, c'est obsolète par quoi je pourrais le remplacer?
merci

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
Public Function Fct_GetResponse(ByRef URL As String) As HttpWebResponse
 
    'Create a web request
 
    Me.Refresh()
 
    Dim web As HttpWebRequest = HttpWebRequest.Create(URL)
 
    web.Timeout = 25000   '25 sec
    web.Method = "GET"
 
    Try
        'Return web.GetResponse()
 
        reponse = web.GetResponse()
 
    Catch ex As System.Net.WebException
        REM If ex.Status = WebExceptionStatus.ProtocolError Then
        If ex.Status <> 0 Then
            'Return ex.Response
            'Return ex.Status
            sw_web_ok = False
            reponse_fct_status = ex.Status
            reponse_fct_message = ex.Message
            REM MsgBox(ex.Status & " : " & ex.Message)
        End If
    End Try
 
    Return Nothing
End Function