none
xmlhttp.send无响应的问题! 求助,已经困扰2天了! RRS feed

  • 问题

  • 一直正常运行的程序突然出现问题,无响应。经过Debug发现是在xmlhttp1.send 这一步出现问题。运行到该行就出导致程序无响应。近2天各网站搜阅,各种尝试也没有用,具体情况我说明下,

      (1)使用XMLHTTP60,XMLSERVERHTTP  出现一样的问题

      (2)重新注册msxml3.dll也没有效果。  

      (3)到其他电脑上运行,能够正常取得xmlHTTP1.ResponseText 。说明代码是没有问题的。应该是本机系统为提供xmlhttp相关服务或者实现xmlhttp各种功能 的控件或者服务处问题了。但是只是猜测,因为一直都只是对其应用,核心内容并不了解 ,所以希望能在这儿得到大家的帮助!!!     重装系统或许能够解决,可是 电脑上的各种配置实在是.....大家懂的! 谢谢 

    (下面是简化出来的代码 VB,现在在我的电脑上运行就会无响应,到其他电脑上一切正常)

    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 WebCode
    	Set xmlHTTP1 = Nothing 
    ERR:
     
    MsgBox "未知错误"
     
     
    End Sub


    2015年8月22日 16:38

答案