Question

程序从一个按钮运行并加载XMLHTTP GET请求。

第一次点击按钮时，它可以正常工作。

第一次点击后，没有任何反应。

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim oXMLHTTP
    Dim oStream

    oXMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0")

    oXMLHTTP.Open("GET", "http://test.com/ricky.php", False)
    oXMLHTTP.Send()

End Sub

Answer 1

我相信你需要像这样关闭 oXMLHTTP ：

oXMLHTTP.Close()

所以完整的方法是：

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim oXMLHTTP
    Dim oStream

    oXMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0")

    oXMLHTTP.Open("GET", "http://test.com/ricky.php", False)
    oXMLHTTP.Send()
    oXMLHTTP.Close()
End Sub

代码不会在第二次尝试时运行

1 个答案: