message warning Httpwebrequest est obsolète
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:
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 |