如何达到相当于关闭excel来清除缓存的效果？

renahu · 发表于 2014-11-19 22:33

本帖最后由 renahu 于 2014-11-20 07:43 编辑

我发现个问题，如果我打开文件后，把网打开或断开，当点击登录时都能迅速而正确地判断网络是否有问题，但是如果我开始抓网后，比如抓1到200页，然后中间断开网，这时就按照我设置的超时退出处理，我这里设的10秒没抓到就放弃，进度条继续走，完成后提示部分抓取成功，现在的问题是，如果再点击登录按钮，这时就会假死一段时间才能判断出网断了，而且就算我把网重新连上，假死一阵后也是提示网络故障。我试了网址后加随机数的方法和加 If-Modified-Since 头的方法都不灵，除非重启excel后，才能迅速而正确地判断目前的网络是断开了还是连上了。
附件：http://club.excelhome.net/thread-1162676-14-1.html 137楼

coby001 · 发表于 2014-11-20 10:56

      If http.Status <> 200 Then
         MsgBox "readyState: " & http.readyState & vbCrLf & "Status: " & http.Status
         Set http = Nothing
         MsgBox "请检查网络状况！", 0 + 64, "网络故障！"
         ExitAll = True
         Exit Sub
      End If

renahu · 发表于 2014-11-20 13:11

coby001 发表于 2014-11-20 10:56
If http.Status 200 Then
MsgBox "readyState: " & http.readyState & vbCrLf & "St ...

关键是send之后半天没响应谢老师，我在外面，回去再试

renahu · 发表于 2014-11-20 23:05

coby001 发表于 2014-11-20 10:56
If http.Status 200 Then
MsgBox "readyState: " & http.readyState & vbCrLf & "St ...

老师，这只是加了个msgbox，抓取一半后掐断网，等完成后，点击登录，运行到send，仍然假死，过一阵后才判断出.Status <> 200

coby001 · 发表于 2014-11-20 23:08

msgbox 提示你看网络状态

你自己看Fiddle 监控联网过程，应该能看出原因~~

renahu · 发表于 2014-11-20 23:13

coby001 发表于 2014-11-20 23:08
msgbox 提示你看网络状态

你自己看Fiddle 监控联网过程，应该能看出原因~~

用fiddler监控我还真不知道怎么做，我只是知道关了excel重新再打开可以解决此问题，所以判断还是缓存的问题，但常见的删除缓存的方法对此无效

kangatang · 发表于 2014-11-21 10:09

很多时候跟缓存无关。楼主别再纠结缓存问题。
为了楼主少走冤枉路，提醒一下: :
1) 关Excel，就是关闭xmlhttp对象。
2) post 不会从缓存读取。
3) 建议楼主看一下协议里面的response . status, readystate 等响应代码和理解代码的含义。比如301, 407等

renahu · 发表于 2014-11-21 12:10

kangatang 发表于 2014-11-21 10:09
很多时候跟缓存无关。楼主别再纠结缓存问题。
为了楼主少走冤枉路，提醒一下: :
1) 关Excel，就是关闭xml ...

多谢老师提醒，您说“别再纠结缓存问题” ，又提醒“看一下协议里面的response . status, readystate 等响应代码和理解代码的含义”，老师的意思是撇开缓存问题，从相应代码着手，也就是说这个问题还是可解的是吗？

renahu · 发表于 2014-11-21 15:20

kangatang 发表于 2014-11-21 10:09
很多时候跟缓存无关。楼主别再纠结缓存问题。
为了楼主少走冤枉路，提醒一下: :
1) 关Excel，就是关闭xml ...

发现这个很形象：

readyState表示XMLHttpRequest对象的处理状态：
0:XMLHttpRequest对象还没有完成初始化。(准备司机、车、货物)
1:XMLHttpRequest对象开始发送请求。(需要送十车货物，当前正在送第几车)
2:XMLHttpRequest对象的请求发送完成。(十车货送完毕)
3:XMLHttpRequest对象开始读取服务器的响应。(准备把这十车加工的货拉回来，当前第几车)
4:XMLHttpRequest对象读取服务器响应结束。(十车货全部拉回完毕)

status状态：
1xx:信息响应类，表示接收到请求并且继续处理。(所有拉去的货，工厂还没有加工完毕)
2xx:处理成功响应类，表示动作被成功接收、理解和接受。。(所有拉去的货工厂全部加工完毕)
3xx:重定向响应类，为了完成指定的动作，必须接受进一步处理。(所有拉去的货，工厂设备不够，让其他工厂帮忙加工)
4xx:客户端错误，客户请求包含语法错误或者是不能正确执行。(这十车货有质量问题，工厂不能正常加工)
5xx:服务端错误，服务器不能正确执行一个正确的请求。(工厂在加工到一半过程中断电，不能继续加工)

renahu · 发表于 2014-11-21 17:55

kangatang 发表于 2014-11-21 10:09
很多时候跟缓存无关。楼主别再纠结缓存问题。
为了楼主少走冤枉路，提醒一下: :
1) 关Excel，就是关闭xml ...

Sub loginstatus() '查登陆状态
On Error GoTo msg
Dim ul$, strText$, http
ul = "http://www.apabi.com/cdyxy/?pid=usp.catsearch"
ul = ul & "&db=dlib"
ul = ul & "&dt=EBook"
ul = ul & "&cult=CN"
ul = ul & "&of=PublishDate"
ul = ul & "&om=desc"
ul = ul & "&ct=CYFL2011%24%24"
ul = ul & "&cl=0" '类别级次，0~2
ul = ul & "&il=0" '是否有下级，0有，1无
ul = ul & "&sct=1" '是否只显示可整本阅读的书，4是全部
ul = ul & "&pg=1" '页数
' ul = ul & "&t=" & Int(Rnd() * 10 ^ 8) '缓存中不保留
Set http = CreateObject("MSXML2.XMLHTTP")
With http
.Open "GET", ul, False
' .setRequestHeader "Cache-Control", "no-cache"
.setRequestHeader "If-Modified-Since", "0"
.send
strText = .responsetext
If Split(Split(strText, "<title>")(1), "<")(0) = "中华数字书苑-用户登录" Then
instatus = False
ElseIf Split(Split(strText, "<title>")(1), "<")(0) = "中华数字书苑-中华数字文明精粹" Then
instatus = True
End If
ExitAll = False
End With
Exit Sub
msg:
If Err.Number = -2146697211 Then
MsgBox "请检查网络状况！", 0 + 64, "网络故障！"
ExitAll = True
Exit Sub
End If
End Sub

复制代码

我是在网抓的过程中间故意断网，然后执行这段代码查看登陆状态，执行到send就近十分钟不响应。如果打开文件直接执行这段代码就能很快判断网络状况。
老师我看到网上您提到的两句代码：
.setRequestHeader "Cache-Control", "no-cache"
.setRequestHeader "If-Modified-Since", "0"
但都send后的不响应都不起作用。而status和readystate似乎只有在send相应完后才能看到，不知道还有什么方法

		自动登录	找回密码
密码			免费注册

[求助] 如何达到相当于关闭excel来清除缓存的效果？