, 18 2016 . 10:38
+
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
.
www.bik-info.ru:
XML:
http://www.bik-info.ru/api.html?type=xml&bik=_ ( Windows-1251)
. .
http://www.sql.ru/forum/1195801/pomogite-ochen-srochno