Практические советы по использованию компонента WebBrowser

Расположите на основной форме CommandButton и впишите в него следующий код:

frmBrowser.Show

Некоторые возможности компонента WebBrowser у вас автоматически добавятся, и вы сами потом можете на досуге в них разобраться. Я а же предлагаю вам добавить в ваш проект возможности, которые автоматически не были добавлены Мастером Создания Приложений.

Процесс, показывающий процесс загрузки веб-страницы

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
PBar.Max = ProgressMax
If Progress = -1 Then
Exit Sub
Else
If Progress <> ProgressMax Then
PBar.Value = Progress
progresslbl.Caption = Str(Round((Progress / ProgressMax) * 100)) & pert
Else
PBar.Value = ProgressMax
progresslbl.Caption = Str(Round((Progress / ProgressMax) * 100)) & pert
Exit Sub
End If
End If
End Sub

или такой вариант.

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
If Progress = -1 Then ProgressBar1.Value = 100
If Progress > 0 And ProgressMax > 0 Then
ProgressBar1.Value = Progress * 100 / ProgressMax
End If
Exit Sub
End Sub

или такой вариант.

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
ProgressBar1.Max = ProgressMax
ProgressBar1.Value = Progress
ProgressBar1.Refresh
End Sub

Просмотр содержимого веб-страницы "В виде HTML"

2 варианта. Загрузите оба варианта, и посмотрите, что каждый код загружает...

Text1 = WebBrowser1.Document.documentelement.innerhtml
Text2 = WebBrowser1.Document.Body.innerhtml

Вызвать окно "Печать"

On Error Resume Next
WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT

Добавить в ComboBox URL после загрузки

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Combo1.Text = URL
End Sub

Навигация на узел в сети

WebBrowser1.Navigate "about:blank" 'пустая страница

WebBrowser1.Navigate "http://sharig.webzone.ru"

Запрет на посещение определенных узлов в Инете

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
If InStr(1, URL, "playboy.com") Then
Cancel = True
MsgBox "Sorry, that site is restricted!"
End If
End Sub

Ожидание загрузки страницы

Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop

Получить данные о загруженной странице

MsgBox WebBrowser1.LocationName 'узнать имя загруженного файла (что-то типа "inet18_webbrowser.htm")

MsgBox WebBrowser1.LocationURL 'получить URL загруженной страницы

Вызвать окно "Сохранить как..."

WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT

Что-то непонятное...

Private Sub WebBrowser1_SetSecureLockIcon(ByVal SecureLockIcon As Long)
If SecureLockIcon <> 0 Then
imgSecure.Picture = "D:\garbage\ICON\2\face00.ico" 'path to secure icon
Else
imgSecure.Picture = "D:\garbage\ICON\2\face01.ico" 'path to unsecure icon
End If
End Sub

Private Sub WebBrowser1_WindowClosing(ByVal IsChildWindow As Boolean, Cancel As Boolean)
If MsgBox("This webpage is trying to close your browser window." & vbCrLf & vbCrLf & "Are you sure you want to close it?", vbYesNo, "BAPNet") = vbYes Then
Unload Me
Cancel = True
ElseIf vbNo Then
Cancel = True
End If
End Sub

Источник: http://www.vbnet.ru/