none
why xmlhttp.send is no response!!! RRS feed

  • Question

  • My Program was running   more than  one years   ,But something goes wrong   today,can't response any website's code . I debug my program ,found it comes from the code :

    "  xmlHTTP1.send"         ,it's will makes program no response

     so i change other method with  XMLHTTP60 or xmlserverhttp  , same  as use  xmlhttp.   I put my program running on other PC, it's ok.  so  i think something wrong about my Windows 7 system, or the system service that connect with MSXML3.dll,[I reinstall Msxml3.dll]   please help me out !    

    I found I can't running any program include POST or Get  in my PC

    Thanks a lot!

    that  Code!

    Private Sub TEST_Click()
    On Error GoTo ERR
        Dim xmlHTTP1 As Object
        Dim WebCode As String
        Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP")
        xmlHTTP1.open "get", "https://www.baidu.com", false
        xmlHTTP1.send
        While xmlHTTP1.readyState <> 4
            DoEvents
        Wend
        WebCode = xmlHTTP1.responseText
        MsgBox xmlHTTP1.responseText
        Set xmlHTTP1 = Nothing
    ERR: 
        MsgBox " error ....."
    End Sub

    • Edited by onlyao Sunday, August 23, 2015 2:36 AM
    Sunday, August 23, 2015 2:35 AM