如何發送POST到遠程URL？

2010-11-02 KJW

還有使用VB6的人嗎？：o – ThiefMaster 2010-11-02 21:23:16

@ThiefMaster，絕對。 – KJW 2010-11-02 23:56:52

很多方法可以解決這個。您可以使用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。你可以在這裏上的XMLHTTPRequest檢查出微軟官方文檔：http://msdn.microsoft.com/en-us/library/ms759148%28VS.85%29.aspx

來源

2010-11-02 21:21:21 LostInTheCode

1到張貼在代碼[這個問題]（http://stackoverflow.com/questions/749491/soap-post-failure），這是一個好現象類似。 – MarkJ 2010-11-03 11:57:42

我們能做到這樣也

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

來源

2014-07-10 12:03:49

如何發送POST到遠程URL？

回答

相關問題