inet控件的问题

Question

inet1.RequestTimeout = 60
  inet1.AccessType = icUseDefaultinet控件是这么设置的，为什么取某些网站的网页时得到的内容总是不完全

Answer 1

up,没问清楚
  inet1.RequestTimeout = 60
  inet1.AccessType = icUseDefault
  Contents = inet1.OpenURL(txtURL)
这样使用时取某些网站的网页时得到的内容总是不完全，缺一部分
请问应该怎么设置，
还有inet1.cancel有什么用，我只在前面用了openurl方法，后面需要加那句吗

Answer 2

Private Function GetHTML(URL$) As String
Dim response$
Dim vData As Variant  Inet1.Cancel
  response = Inet1.OpenURL(URL)
  If response <> "" Then
    Do
      vData = Inet1.GetChunk(1024, icString)
      DoEvents
      If Len(vData) Then
        response = response & vData
       
      End If
    Loop While Len(vData)
  End If  GetHTML = response
End Function