Как написать свой Web - броузер на Visual Basic 6

При помощи средств, которые имеются в системе проектирования VB6, вы можете любое созданное вами приложение наделить возможностью в любой момент входить в Интернет и обращаться к любой его Web-странице. Это, в свою очередь, дает вашему приложению независимость от свойств броузера пользователя - вы всегда точно будете знать, как отображается ваша любимая страница в вами созданном броузере. В общем, напиши сою "оперу", или хотя бы песню…

Для начала в меню Project на панели Components на странице Controls найдите строку Microsoft Internet Controls. Отметьте эту строку флажком и щелкните Ok. В результате этих манипуляций инструмент WebBrowser появиться на вашей панели Toolbox.Пиктограмма этого инструмента похожа на изображение глобуса.

Теперь WebBrowser нужно разместить на вашей экранной форме. Т.к. его предназначение - отображать содержание Web-страниц, позаботьтесь о том, чтобы это окно в мир Интернет не было бы слишком маленьким, иначе посматривать страницы будет не очень просто, хотя, автоматически появляющиеся полосы прокрутки все равно вам позволят это сделать. Справедливо заметить, что если вы не собираетесь написать броузер, который должен составить конкуренцию, например IE, а всего лишь как средство независимой доставки пользователя вашего приложения к заинтересовавшей его страничке, тогда для его работы понадобиться написать всего одну строчку программного кода:

WebBrowser1.Navigate "http://www.любимая_страница.ru/"

Navigate - это метод, применяемый к WebBrowser. Единственным параметром этого метода является адрес той страницы Интернет, с которой начнется ваше путешествие по сети. 
Пример рабочего кода:

Dim Adres As String

Private Sub Command1_Click()
Adres = "http://www.любимая страница.ru/"
WebBrowser1.Navigate Adres
End Sub

Здесь сигналом к запуску служит клик командной кнопки, соответственно, эту кнопку нужно так же поместить на форму, а свойству Caption можно присвоить значение, например " любимая страница". Переменная Adres строковая, содержит полный адрес страницы в Интернете. Бывает так, что загрузка страницы происходит очень долго - а деньги как говориться капают. По этому, желательно обеспечить принудительную остановку загрузки пользователем. Это можно сделать так. Создаем вторую кнопку, свойству Caption присваиваем значение "Stop" и пишем код:

Private Sub Command2_Click()
WebBrowser1.Stop
End Sub

Для создания многофункционального броузера конечно, использование кнопок для каждого адреса - это не лучшее решение. В этом случае можно использовать комбинированное окно списка -ComboBox, где еще на этапе проектирования можно внести сколько угодно адресов в поле List (получится типа "избранное"), и корректировать их в процессе работы броузера уже в самом окне списка. Сделать это можно примерно так:

Private Sub Command1_Click()
Dim Ind As Integer
Ind = Combo1.ListIndex
Adres = Combo1.List(Ind)
WebBrowser1.Navigate Adres
End Sub

Комбинированное окно списка -ComboBox можно расположить в самом верху формы, выбор адреса производится кликом на кнопку со стрелкой вниз. Откроется весь список адресов, из которого кликом кнопки мыши можно выбрать любой и терпеливо ждать конца загрузки.
Процедура, которая может пригодиться при проектировании своего Web - броузера. Она относиться к событию DocumentComplete - 
успешному завершению загрузки. Пример простейшего применения:

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
MsgBox "Загрузка произведена"
End Sub

А вот как можно используя метод LocationName отображать название текущего адреса в заголовке вашего web-броузера:

Private Sub WebBrowser1_DownloadComplete()
Me.Caption = WebBrowser1.LocationName
End Sub

Каждый Web-броузер имеет такие кнопки как "Назад", "Вперед", "Обновить" и "Домой".
Вот как можно это реализовать с помощью соответствующих методов:

Private Sub Command3_Click()
On Error Resume Next
WebBrowser1.GoBack 'В Caption этой кнопки напишите "Назад" 
End Sub

Private Sub Command4_Click()
On Error Resume Next
WebBrowser1.GoForvard 'В Caption этой кнопки напишите "Вперед" 
End Sub

Private Sub Command5_Click()
WebBrowser1.Refresh 'В Caption этой кнопки напишите "Обновить"
End Sub

Private Sub Command6_Click()
On Error Resume Next
WebBrowser1.GoHome 'В Caption этой кнопки напишите "Домой"
End Sub

Для надежной работы этих кнопок включен обработчик ошибок , т.к. к примеру если вы нажали кнопку "Назад", а эта была первая страница и назад двигаться некуда, то работа приложения завершится с ошибкой, то же и для кнопки "Вперед", если вы не откатывались "Назад".

Ну, вот кратенько и все. Внешний вид вашего броузера, различные необходимые элементы, такие как полоса процесса загрузки или StatusBar - все оставляю на милость проектировщика, на его буйную фантазию.

Источник: http://hiprog.com

16.02.2006