Как отправить POST на удаленный URL?

Question

Как отправить запрос POST на удаленный URL с помощью VB6?

Answer 1

Мы можем сделать это также

Set myMSXML = CreateObject("Microsoft.XmlHttp")
myMSXML.open "POST", "http://....", False
myMSXML.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
myMSXML.setRequestHeader "User-Agent", "Firefox 3.6.4"
myMSXML.send "param1=value2&param2=value2"
MsgBox myMSXML.responseText

Больше ссылок вы можете проверить http://smartreferences.blogspot.in

Answer 2

Много способов подойти к этому. Вы можете использовать WinInet API, WinHTTP API, WinHTTPRequest или XMLHTTPRequest. Я предпочитаю нижний уровень Winsock, и вы можете прочитать об этом здесь: http://www.vbforums.com/showthread.php?t=334645. Winsock немного сложнее, но, на мой взгляд, немного мощнее. Если вы хотите сделать это простым и приятным, XML HTTP Request - это путь, я использую его и в javascript. Попробуйте что-то вроде:

Set myMSXML = New MSXML.XMLHTTPRequest
myMSXML.open "POST", URL, True
myMSXML.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
myMSXML.setRequestHeader "User-Agent", "Firefox 3.6.4"
myMSXML.OnReadyStateChange = (Shown below)
myMSXML.send YourPostDataString

И функция OnReadyStateChange:

Dim HttpResponse As String

HttpResponse = myMSXML.responseText

Если вы обнаружите, что мой код не работает или вы немного запутались, извините, я немного устала от VB в наше время. Вы можете ознакомиться с официальной документацией Microsoft по XMLHTTPRequest здесь: http://msdn.microsoft.com/en-us/library/ms759148%28VS.85%29.aspx