Vb.net 代码在第二次尝试时不运行

程序从按钮运行并加载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

---

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

因此，完整的方法是：

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

---

net vba。我已经取下了那个标签。谢谢。我还是不明白。每次单击按钮时，代码都应该执行oXMLHTTP。不止一次：（你关闭oXMLHTTP了吗？

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