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"