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

 > 

  • 问题

  • Question
    登录进行投票
    0
    登录进行投票

    一直正常运行的程序突然出现问题，无响应。经过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
    |

答案