sweter
onlyao
采纳率0%
2015-08-22 03:19 阅读 2.9k

xmlhttp send超时无响应,该如何解决!

之前的程序一直适用正常,昨天开始对应功能无法正常使用,后来发现是在 xmlHTTP1.send这一步出现问题,一直得不到回馈!造成程序卡死 ; 改用True 异步会一直在while循环,也得不到想要的结果。请谁帮忙看看这段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", "http://www.baidu.com", false
xmlHTTP1.send 
While xmlHTTP1.readyState <> 4
DoEvents
Wend
WebCode = xmlHTTP1.responseText
MsgBox WebCode
Set xmlHTTP1 = Nothing 
ERR:

MsgBox "未知错误"

end sub


  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 复制链接分享

1条回答 默认 最新

  • u011054682 「已注销」 2016-02-03 00:38

    sleep 1
    xmlhttp1.send
    这样行不行?=_=

    点赞 评论 复制链接分享

相关推荐