网页加载完毕，自动跳转，如何获取跳转后页面的源码？？？

研究出来了，贡献一下代码
Private Sub Form_Load()
    WebBrowser1.navigate "http://222.184.97.27/vod/dingshi.htm"
    Do
        DoEvents
        If Not WebBrowser1.Busy And WebBrowser1.LocationURL <> "http://222.184.97.27/vod/dingshi.htm" Then
            MsgBox "OK"
            Exit Do
        End If
    Loop
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, Url As Variant)
   
    If (pDisp Is WebBrowser1.Object) Then
        MsgBox WebBrowser1.LocationURL
    End If
End Sub