|
Dim strData As String Dim strResponse As String Dim objHTTP As Object Dim strpost As String strData = "postparam=postval&postparam2=postval2" Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") objHTTP.Open "post", "http://www.bik-info.ru/api.html?type=xml&bik=046014327", False objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" objHTTP.send strData strResponse = objHTTP.responseText ' strResponse