why xmlhttp.send is no response!!!

• Question

• 

  

  0

  Sign in to vote

  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