Браузер собственными руками на движке IE 8.0

Для этого нам необходимо:

1. Среда разработки Microsoft Visual Studio

2. Прямые руки и знание VB и .NET 4.0

Открываем Visual Studio, создаем новый проект, язык VB, Windows Form назовем проект ExplorerEX На самом деле в качестве движка используется ядро IE 8.0 и компонент WebBrowser который выполняет за нас всю работу, но GUI и код мы пишем сами.

 

 

Основой нашей программы является компонент WebBrowser что дает нам возможность не изобретать (Велосипед и не писать то что уже написано другими). И так, приступим.

В верхней части формы расположим компонент Panel на нем расположим компонент Label по Русски этикетка, для отображения текста на форме. Под ним разместим компонент Button и назовем его (О Программе) Под ним разместим компонент ComboBox , он нам даст возможность вводить адрес Web странице которую мы хотим отобразить в компоненте WebBrowser и возможность выбора и перехода по ранее введенному адресу. Под компонентом ComboBoxразместим с лева на право кнопки Button , которые нам предоставят возможность переходить на введенный нами адрес интернета и обеспечат навигацию, и возможность: обновления, печати, сохранения страницы. Button8 Button7, Button6, Button5, Button4, Button3, Button2, Button1 назовем кнопки так: Button8(Сохранить) Button7(Печать), Button6(Перейти), Button5(Отмена), Button4(Обновить), Button3(Вперед), Button2(Вернутся), Button1(Закрыть) В итоге мы должны иметь вот такой вид панели

 

В нижней части формы расположим под компонентом Panel компонент  WebBrowser. В свойстве компонента WebBrowser , Docs = Fill.

Для возможности Печать и Сохранения страниц из приложения мы добавим следующие компоненты: PrintDialog и SaveFileDialog

Далее мы приступаем к написанию кода приложения Щелкаем два раза мышкой (Двойной щелчок) на кнопке (Перейти), переходим в окно Редактора кода Курсор ввода находится в нужном месте, мы видим заготовку кода

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

Здесь нам нужно написать наш код

End Sub

Нам нужно написать вот такой код:

WebBrowser1.Navigate(ComboBox1.Text) ‘Переход по введенному адрес – Передаем компоненту WebBrowser1 через свойство Navigate значение введенное компонента ComboBox , а именно Text ComboBox1.Items.Add(ComboBox1.Text)    ’Запоминаем Введенный ранее Адрес

В итоге мы имеем

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

WebBrowser1.Navigate(ComboBox1.Text) ‘Переход по введенному адресу

ComboBox1.Items.Add(ComboBox1.Text) ‘Запоминаем Введенный ранее Адрес

End Sub

Далее.

С лева на право щелкаем мышкой на кнопках созданных нами  для того чтобы создать обработчики событий для элементов управления.

В итоге мы получаем в окне редактора кода

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

WebBrowser1.Navigate(ComboBox1.Text) ‘Переход по введенному адресу<code>ComboBox1.Items.Add(ComboBox1.Text) ‘Запоминаем Введенный ранее Адрес

End Sub

Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click

End Sub

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click

End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

End Sub

rivate Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click

End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click

End Sub

Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click

End Sub

Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click

End Sub

Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click

End Sub

Вводим Код, основываясь на шаблоне кода сгенерированного средой В итоге что мы получаем в окне редактора кода

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

WebBrowser1.Navigate(ComboBox1.Text) ‘Переход по введенному адресу

ComboBox1.Items.Add(ComboBox1.Text) ‘Запоминаем Введенный ранее Адрес

End Sub

Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click

WebBrowser1.GoBack() ‘ Возвращаемся на шаг назад

End Sub

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click

WebBrowser1.GoForward() ‘ На шаг вперет, при условии возврата

End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

WebBrowser1.Stop() ‘Останавливаем переход

End Sub

Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click

Close() ‘ Закрываем программу

End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click

WebBrowser1.Refresh() ‘ Обновляем страницу

End Sub

Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click

WebBrowser1.Print() ‘ Печатаем страницу на принтере по умалчиванию

End Sub

Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click

SaveFileDialog1.Filter = “HTM files (*.htm)|*.htm|All files (*.*)|*.*” ‘Сохраняем WEB страницу в форматеHTML

saveFileDialog1.FilterIndex = 2

saveFileDialog1.RestoreDirectory = True

WebBrowser1.ShowSaveAsDialog()

End Sub

Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click

MsgBox(“InternetEX Программа для просмотра страниц в Интернете”) ‘О Программе

MsgBox(“Версия InternetEX 1.0.1 Разработчик Антонов Антон”)

MsgBox(“InternetEX (C) OOO Information Technology 2013 Все права защищены”)

End Sub

На этом кодирование завершено
Сохраняем внесенные нами изменения в программу и запускаем ее на выполнение нажав клавишу F+5 (F5), вводим адрес Web страницы и наслаждаемся просмотром.

 

Просмотров: 52