vb6动态创建webbrowser

最新推荐文章于 2015-10-26 19:04:00 发布

转载最新推荐文章于 2015-10-26 19:04:00 发布 · 337 阅读

1 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/nanfei/p/3926567.html

文章标签：

#shell

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