Option Explicit
Private WithEvents IE As VBControlExtender
Private Sub Command1_Click()
Dim IE
Set IE = Me.Controls.Add("Shell.Explorer.2", "IE", Me)
IE.Top = 0
IE.Left = 0
IE.Width = 5000
IE.Height = 5000
IE.Width = Me.ScaleWidth
IE.Height = Me.ScaleHeight
IE.Visible = 1
Dim WebBrowser
Set WebBrowser = IE.Object
WebBrowser.Silent = True
WebBrowser.Navigate "http://www.baidu.com"
End Sub
Private Sub IE_ObjectEvent(Info As EventInfo)
Debug.Print Info.Name
End Sub
Private Sub Command2_Click()
Debug.Print IE.object.document.All(0).outerHTML ‘获取真正的网页源码
End Sub