1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Dim clsW As Object
Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0 'Const HTTPREQUEST_SETCREDENTIALS_FOR_PROXY = 1
Set clsW = CreateObject("WinHttp.WinHttpRequest.5.1")
If TypeName(clsW) <> "Nothing" Then
With clsW
.Open "POST", "http://www.developpez.net/forums/forumdisplay.php", False ' 0 Sync - 1 Async
.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.Send ("MES_DATAS=...")
If .Status = 200 Then Debug.Print .ResponseText
End With
Set clsW = Nothing
End If |
Partager