1,502
社区成员
发帖
与我相关
我的任务
分享
Dim aPage(6) As String
Dim i As Long
Dim r As Boolean
aPage(0) = getpage("...")
aPage(1) = getpage("...")
aPage(2) = getpage("...")
aPage(3) = getpage("...")
aPage(4) = getpage("...")
aPage(5) = getpage("...")
aPage(6) = getpage("...")
'把Text3..Text9 设计成 Text3 的控件数组
For i = 0 To 6
Text3(i).Text = aPage(i)
Next
'Sleep 会导致程序休眠,这里无用'
r = True
For i = 0 To 6
r = r And CBool(URLDownloadToFile(0&, aPage(i), "...", 0, 0))
DoEvents
Next
If r Then
MsgBox "全部下载完成!"
End If