Buenas,
Tengo una mini aplicacion que consiste en descargar paginas web de una lista,
El problema esta que se me bloquea en la llamada getchunck,al cabo de un par de llamadas, descarga unas cuantas bien, pero al cabo de un rato se queda bloqueado hasta que el programa no responde en la linea
vtData = i2.GetChunk(lCHUNKSIZE, icString)
os dejo aqui bajo el codigo por si alguien sabe el porque.
Private Sub i2_StateChanged(ByVal State As Integer)
Const lCHUNKSIZE As Long = 1024
Dim vtData As Variant ' Data variable.
Select Case State
Case icError ' 11
MsgBox (i2.ResponseCode & ":" & i2.ResponseInfo)
End
Case icResponseCompleted ' 12
Dim strData As String: strData = ""
Dim bDone As Boolean: bDone = False
' Get first chunk.
vtData = i2.GetChunk(lCHUNKSIZE, icString)
DoEvents
Do While Not bDone
strData = strData & vtData
' Get next chunk.
vtData = i2.GetChunk(lCHUNKSIZE, icString)
DoEvents
If Len(vtData) = 0 Then
bDone = True
End If
Loop
Case icDisconnected
Debug.Print "* Disconnected"
Unload Me
End Select
t2.Text = t2.Text & strData
End Sub
