用webb提交了表单，用inet来获取源码，但是不完整

用webbrower提交了表单，用inet来获取源码，但是不完整，请问可以直接从webbrower里面来提取表单内容吗？

Private Sub Command1_Click()
With WebBrowser1_DownloadComplete
Dim vDoc, vTag
Dim i As Integer
Dim z As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1 '检测所有标签
  If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
  Set vTag = vDoc.All(i)
  If vTag.Type = "text" Then '检测类型
  If vTag.Name = "team1s" Then
  vTag.Value = "FC Barcelona"
  End If
   
  If vTag.Name = "team2s" Then
  vTag.Value = "FC Barcelona"
  End If

  End If
  End If
Next i

   
  If vTag.Type = "submit" And vTag.Value = "Search" Then '登陆按钮
  vTag.Click
  End If



End With
  Text1.Text = Inet1.OpenURL("http://www.soccer-rating.com/calculator.php?team1=&team2=&team1s=FC+Barcelona&team2s=FC+Barcelona", icString)
  Open "C:\网页源码.txt" For Output As #1
  Print #1, Text1.Text
  Close #1

End Sub

这样text1显示的源码和实际源码不同，不完整，请问为什么呢？

没人回答。。。哭。。。