why the xmlhttp.send 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 ! 

    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
        While xmlHTTP1.readyState <> 4
        WebCode = xmlHTTP1.responseText
        MsgBox xmlHTTP1.responseText
        Set xmlHTTP1 = Nothing
        MsgBox " error ....."
    End Sub
    • Moved by litdev Monday, August 24, 2015 11:49 AM
    Saturday, August 22, 2015 4:20 PM


All replies

  • This doen't look like the Small Basic programming language.  Try to find a forum dedicated to the language you are using.

    Jan [ WhTurner ] The Netherlands

    Saturday, August 22, 2015 4:35 PM
  • Hello,

    You might ask in the Visual Basic .Net Language forum on MSDN.


    When you see answers and helpful posts, please click Vote As Helpful, Propose As Answer, and/or Mark As Answer.
    My Blog: Unlock PowerShell
    My Book: Windows PowerShell 2.0 Bible
    My E-mail: -join('6D73646E5F6B61726C406F75746C6F6F6B2E636F6D'-split'(?<=\G.{2})'|%{if($_){[char][int]"0x$_"}})

    Thursday, August 27, 2015 8:44 PM