vba - 无法让我的脚本运行到底
问题描述
我已经使用ServerXMLHTTP
请求在 vba 中编写了一个脚本,以便能够在其中使用proxy
设置timeout
参数。当我运行脚本时,它似乎正在工作,但问题是 - 它在使用第一个代理后卡住了。我希望它一直运行到没有代理可用为止。我定义这一行While .readyState < 4: DoEvents: Wend
只是为了不让脚本冻结。代理是否工作脚本应该继续,对吗?
这是我尝试过的:
Sub MakeProxiedRequests()
Dim Http As New ServerXMLHTTP60, Html As New HTMLDocument
Dim elem As Object, proxyList As Variant, oProxy As Variant
proxyList = Array( _
"191.96.42.184:3129", _
"138.197.108.5:3128", _
"35.245.145.147:8080", _
"173.46.67.172:58517", _
"191.96.42.82:3129", _
"157.55.201.224:8080", _
"67.205.172.239:3128", _
"191.96.42.106:3129" _
)
For Each oProxy In proxyList
Debug.Print "trying with: " & oProxy
With Http
.Open "GET", "https://stackoverflow.com/questions/tagged/web-scraping", True
.setRequestHeader "User-Agent", "Mozilla/5.0"
.setProxy 2, oProxy
.setTimeouts 600000, 600000, 15000, 15000 'I don't know the ideal timeout parameters
On Error Resume Next
.send
While .readyState < 4: DoEvents: Wend 'to let not freeze the script
Html.body.innerHTML = .responseText
Set elem = Html.querySelectorAll(".summary .question-hyperlink")
On Error GoTo 0
End With
If elem.Length > 0 Then
Debug.Print elem(0).innerText
Else:
Debug.Print "failed with: " & oProxy
End If
Next oProxy
End Sub
- 注意:脚本将始终产生相同的结果。但是,我的目的是让脚本一直运行,直到所有代理都被使用。
如何让我的脚本运行直到所有代理都用尽?
解决方案
可能的方法是控制请求整体经过的时间并限制它。还会检查任何运行时错误。
Sub MakeProxiedRequests()
Const Timeout = "0:00:15"
Dim oHttp As New ServerXMLHTTP60
Dim oHtml As New HTMLDocument
Dim oElem As Object
Dim aProxyList
Dim sProxy
Dim t As Date
Dim bFailed As Boolean
aProxyList = Array( _
"191.96.42.184:3129", _
"138.197.108.5:3128", _
"35.245.145.147:8080", _
"173.46.67.172:58517", _
"191.96.42.82:3129", _
"157.55.201.224:8080", _
"67.205.172.239:3128", _
"191.96.42.106:3129" _
)
For Each sProxy In aProxyList
Debug.Print "Trying with: " & sProxy
With oHttp
.Open "GET", "https://stackoverflow.com/questions/tagged/web-scraping", True
.setRequestHeader "User-Agent", "Mozilla/5.0"
.setProxy 2, sProxy
.setTimeouts 60000, 60000, 60000, 60000
.send
t = Now() + TimeValue(Timeout)
bFailed = False
On Error Resume Next
Do
If .readyState = 4 Then Exit Do
bFailed = (Now() > t) Or (Err.Number <> 0)
If bFailed Then Exit Do
DoEvents
Loop
On Error GoTo 0
If Not bFailed Then
oHtml.body.innerHTML = .responseText
Set oElem = oHtml.querySelectorAll(".summary .question-hyperlink")
bFailed = oElem.Length = 0
End If
End With
If Not bFailed Then
Debug.Print oElem(0).innerText
Else
Debug.Print "Failed with: " & sProxy
End If
Next
End Sub
推荐阅读
- php - 多态关系 - 无法将所有文件存储在数据库中?
- stripe-payments - 从条带中检索“活动订阅”信息
- rust - 为什么在函数内部改变传递的选项不会传播到外部的选项?
- git - GIT 日志图的最佳方法,每个分支都有单独的行
- regex - 提取目录中所有文件的两个关键字之间的字符串
- c - C 分叉进程不断显示在“ps -a”输出中
- html - 垂直居中自定义列表项目符号
- puppeteer - puppeteer:document.querySelector 适用于控制台但不适用于 puppppeteer
- matlab - 如何在MATLAB中循环求解非线性方程
- java - 如何更改spring mockmvc的http端口