求助，，急，有关webbrowser控件
帮忙解决 一下此问题：
我想下载所有17773到17778的所有网页HTML源文件，但下载下来，里面的内容跟网页上的内容不同
private sub command1_click()
For i = 17772 To 17778
WebBrowser1.Navigate "http://www.dy.com.cn/modules/FilmInfo_" & i & ".htm"
Do While WebBrowser1.Busy
DoEvents
Loop
Call getinfo
Next i
end sub
Private Function getinfo()
con_moviepage = WebBrowser1.Document.body.outerHTML
Text1.Text = Text1.Text & con_moviepage
End Function
