小白也抓网——分享网抓作品

VBA万岁

VBA万岁 发表于 2014-11-18 15:21
$=%24
是从哪里来的？

这个也可以在160楼的表中找到。

Jick.Ji

强悍！！虽然不是很懂

coby001

renahu   2014-11-19 08:49
终于可以超时退出了，不过我怎么觉得 timer的单位不是毫秒，是秒呀？网上查都说是毫秒，我按秒来设置超时就没问题了

普通的连网是很慢的，没必要用到毫秒，一般设30秒 到 1分钟，如果服务器无应答，就放弃或 重新请求。

renahu

coby001 发表于 2014-11-19 09:07
普通的连网是很慢的，没必要用到毫秒，一般设30秒 到 1分钟，如果服务器无应答，就放弃或 重新请求。

我就是设的30秒，当时间差超过30就提示超时，刚开始我想timer单位是毫秒，所以我把时间差设成30000，结果不起作用，我改成30就OK了，难道这timer单位是秒？网上查 都说是毫秒

coby001

renahu 发表于 2014-11-19 09:14
我就是设的30秒，当时间差超过30就提示超时，刚开始我想timer单位是毫秒，所以我把时间差设成30000，结果 ...

看你的代码是怎么写的？
只要timer相关的就行，别全部贴上来~

renahu

coby001 发表于 2014-11-19 09:16
看你的代码是怎么写的？
只要timer相关的就行，别全部贴上来~

1. Do While iCnt < MaxC
   
2.             For k = 1 To MaxC
   
3.                 DoEvents
   
4.                 If Not xhrArr(k, 1) Is Nothing Then
   
5.                     With xhrArr(k, 1)
   
6.                         If .readyState = cDone Then
   
7.                             iCnt = iCnt + 1
   
8.                             If .Status = cOk Then
   
9.                                 vArrRspText(k) = .Responsetext
   
10.                             End If
    
11.                             Set xhrArr(k, 1) = Nothing
    
12.                         ElseIf Timer - xhrArr(k, 2) > 30 Then
    
13.                             MsgBox "响应时间过长，将退出！"
    
14.                             Set xhrArr(k, 1) = Nothing
    
15.                             Unload 进度条
    
16.                             Exit Sub
    
17.                         End If
    
18.                     End With
    
19.                 End If
    
20.             Next
    
21.         Loop

复制代码

coby001

                        ElseIf Timer - xhrArr(k, 2) > 30 Then
                            MsgBox "响应时间过长，将退出！"

-------------------
xhrArr(k, 2) ，这个是怎么样定义的？

不要用 MsgBox ，它会阻断线程。

renahu

coby001 发表于 2014-11-19 09:23
ElseIf Timer - xhrArr(k, 2) > 30 Then
                            MsgBox "响 ...

ReDim xhrArr(1 To MaxC, 1 To 2)
不用msgbox，那用自定义窗体呢？

renahu

coby001 发表于 2014-11-19 09:23
ElseIf Timer - xhrArr(k, 2) > 30 Then
                            MsgBox "响 ...

我在抓取过程中，故意把网掐断，模拟网断，我想设置检查网络提示，连上网络后继续抓

coby001

renahu 发表于 2014-11-19 09:25
ReDim xhrArr(1 To MaxC, 1 To 2)
不用msgbox，那用自定义窗体呢？

定义 错了
~~~~~~~
你重新想想怎么定义。