Dim objHTTP As WinHttp.WinHttpRequest
objHTTP = CreateObject("WinHTTP.WinHTTPRequest.5.1")
objHTTP.Open("POST", myURL, False)
objHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
objHTTP.Send(myQueryStrings)
Return objHTTP.ResponseText
|