代码之家  ›  专栏  ›  技术社区  ›  KJW

如何将帖子发送到远程url?

vb6
  •  3
  • KJW  · 技术社区  · 14 年前

    如何使用VB6向远程URL发送POST请求?

    2 回复  |  直到 14 年前
        1
  •  4
  •   LostInTheCode    14 年前

    有很多方法可以解决这个问题。您可以使用WinInet API、winhttpapi、WinHTTPRequest或XMLHTTPRequest。我更喜欢低级的Winsock,你可以在这里读到它: http://www.vbforums.com/showthread.php?t=334645 . 在我看来,Winsock有点复杂,但更强大。如果您想简单而甜蜜地完成它,XML HTTP请求是一种方法,我也在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
    

    Dim HttpResponse As String
    
    HttpResponse = myMSXML.responseText
    

    如果你发现我的代码不起作用,或者你有点困惑,对不起,我现在对VB有点生疏了。您可以在此处查看有关XMLHTTPRequest的Microsoft官方文档: http://msdn.microsoft.com/en-us/library/ms759148%28VS.85%29.aspx

        2
  •  5
  •   Palanikumar    10 年前

    我们也可以这样做

    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