VB调用webbrowser技巧集1

1、获得浏览器信息：

Private Sub Command1_Click()
    WebBrowser1.Navigate "http://www.applevb.com"
End Sub

Private Sub Command2_Click()
    Dim oWindow
    Dim oNav
   
    Set oWindow = WebBrowser1.Document.parentWindow
    Set oNav = oWindow.navigator
    Debug.Print oNav.userAgent
   
    Set oWindow = Nothing
    Set oNav = Nothing
End Sub

 

点击Command1浏览网页，点击Command2在立即窗口中输出浏览器信息。

 

2、弹出Webbrowser消息窗口

    Dim oWindow
   
    Set oWindow = WebBrowser1.Document.parentWindow
    oWindow.confirm "abcd"