none
why the xmlhttp.send no response!!

    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 ! 

    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
    
    • Moved by litdev Monday, August 24, 2015 11:49 AM
    Saturday, August 22, 2015 4:20 PM

Answers

All replies