Но если сам начинаешь лазить в это всемя через браузер, то появляется ошибка "Run-time error '35761' - Request timed out", и прога завершает свою работу
- Код: Выделить всё
Sub LoadInform()
Inet1.Execute "http://www.1.ru", "GET" ' имя этой странички постоянно меняется, следующая будет "+1", т.е. www.2.ru
Do While Inet1.StillExecuting: DoEvents: Loop ' кольцо для нескольких постоянно меняющихся страничек запроса
End Sub
- Код: Выделить всё
Private Sub Inet1_StateChanged(ByVal State As Integer)
If State = 12 Then 'если документ полностью получен, то..
Dim res As String, a As String
Do
a = Inet1.GetChunk(1024)
res = res & a
Loop While Len(a) > 0
End If
End Sub
Подскажите, нужно увеличить 1024? сделать скажем 2048 (может этого достаточно)?
И не приведет ли это к замедлению скачивания.
Если да, то нельзя ли сделать, через ошибку:
- Код: Выделить всё
a = Inet1.GetChunk(1024)
' а если ошибка, то:
a = Inet1.GetChunk(2048)
' а если опять, то:
a = Inet1.GetChunk(4096)
Это идея, или просто бред???
Зарание благодарен.
