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
Partager