' C:\windows\system32\winhttp.dll
Private Sub Command1_Click()
Dim wnh As Object
Set wnh = CreateObject("WinHttp.WinHttpRequest.5.1")
With wnh
.Open "GET", "http://www.google.fr", False
.Send
Debug.Print .ResponseText
End With
End Sub
Remarque :
' Run-Time Requirements
' WinHTTP 5.1 is a new version that offers improvements over version 5.0; see What's New in WinHTTP 5.1 for a review of the new features.
' WinHTTP 5.1 is now an operating-system component of the following systems:
' Microsoft Windows Server 2003 family
' Microsoft Windows XP, Service Pack 1
' Microsoft Windows 2000, Service Pack 3 (except Datacenter Server)
' The WinHTTP 5.0 redistributable, Winhttp5.dll, runs on Windows XP, Windows 2000, and Windows NT 4.0 with Microsoft Internet Explorer 5.01 or later.
var req = new ActiveXObject("WinHttp.WinHttpRequest.5.1");
req.Open("GET", "http://google.fr/");
req.Send();
WScript.Echo(req.ResponseText);