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

Question

用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 IfEnd 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 #1End Sub这样text1显示的源码和实际源码不同，不完整，请问为什么呢？