Foxtable(狐表)用户栏目专家坐堂 → [求助]检测网页是否能连上,能使用XMLH.open 吗?


  共有2114人关注过本帖平板打印复制链接

主题:[求助]检测网页是否能连上,能使用XMLH.open 吗?

帅哥哟,离线,有人找我吗?
浙江仔
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1316 积分:9484 威望:0 精华:1 注册:2010/7/21 14:20:00
[求助]检测网页是否能连上,能使用XMLH.open 吗?  发帖心情 Post By:2016/7/17 17:12:00 [只看该作者]

Dim XMLH As Object
XMLH = CreateObject("Microsoft.XMLHTTP")
XMLH.open("GET", "http://www.baidu.com", True)
XMLH.send(Nothing)
Do While XMLH.readyState <> 4
    Application.DoEvents
Loop

怎么知道连接网址是的用时吗?如果超时2秒以上,判断网络不通
该怎么做?

 回到顶部