Программирование
Веб программирование

Пишем простейший браузер

 
 

Сегодня мы напишем простейший браузер на любимом нами Vb.Net, то что он простой не значит что он плохой).

Из минусов могу отметить что он базируется на "Осле" (Internet explorer).

 

Приступим:

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Что нам понадобится:

Сам веб браузер (WebBrowser)       1 шт. (для отображения веб страниц).

Кнопки (Button)                                 5 шт. (вперёд, назад, домой, поиск, обновить).

Текстовое поле (TextBox)                 1 шт. (для вписания адреса сайта).

Процент загрузки (ProgressBar)      1 шт.  (можно и без него).

-----------------------------------------------------------------------------------------------------

Теперь распределите все в удобном порядке вроде этого:

-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-

Вот и сам код:

Public Class Form1
    Private Sub Перейти_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ProgressBar1.Value = ProgressBar1.Minimum ' Здесь полоса запустится
        WebBrowser1.Navigate(TextBox1.Text)  ' Перейти и взять адрес сайта из текстового поля
        ProgressBar1.Value = ProgressBar1.Maximum 'Здесь закончится
    End Sub

    Private Sub Обновить_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        ProgressBar1.Value = ProgressBar1.Minimum
        WebBrowser1.Refresh() ' Обновить текущюю страницу
        ProgressBar1.Value = ProgressBar1.Maximum
    End Sub

    Private Sub Домой_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ProgressBar1.Value = ProgressBar1.Minimum
        WebBrowser1.Navigate("vbbook.ru") ' перейти на домашнюю страницу(в нашем случаее vbbook.ru это домашняя страница
        ProgressBar1.Value = ProgressBar1.Maximum
    End Sub

    Private Sub Назад_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ProgressBar1.Value = ProgressBar1.Minimum
        WebBrowser1.GoBack() ' на предыдущюю страницу
        ProgressBar1.Value = ProgressBar1.Maximum
    End Sub

    Private Sub Вперёд_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ProgressBar1.Value = ProgressBar1.Minimum
        WebBrowser1.GoForward() ' На следующюю страницу
        ProgressBar1.Value = ProgressBar1.Maximum
    End Sub
End Class

=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+

И как же без исходника:

Искодник клац!


Есть вопросы? Спроси на нашем форуме!!
Release [11.03.2012 17:54]

:) отлично, только все равно он работает под эксплолер

DIGIUS [11.03.2012 18:19]

За то на его основе можно сделать ddos бота)

Саня [11.03.2012 18:55]

ddos бота можно сделать если коннектиться ко всем по сокетам. Так будет быстрее и правильней.

Release [12.03.2012 15:08]

Саня напиши мне, как с тобой связаться нужно кое что у тебя спросить

Гость [22.03.2012 15:47]

<Из минусов могу отметить что он базируется на "Осле" (Internet explorer).>

Не минус, если "Осел" свежей версии (8 или 9).

DIGIUS [23.03.2012 14:28]

Всё возможно, но работа на чужом движке тем не менее минус (для меня).

Сделай свой движок. :) [29.06.2012 16:35]
Shade970 [09.03.2013 19:10]

Что за программа, может ты сам что не так делаешь?!

kolobov [16.03.2013 12:33]

Добрый день. Скачал исходник этого браузера. Продукт отличный, самый для меня, но сделать чтоб при запуске этого браузера сразу открывалась домашняя страница не могу ни чего сообразить или хотя бы сделать фокус на текст. поле. В VB.Net я новичок только пытаюсь освоить, в vbs немного лучше. Пытался по всякому, выдаёт ошибку. Работаю в Microsoft Visual Basic 2010.
Подскажите что надо делать, чтоб страница загружалась при запуске.

zm2003160 [25.03.2013 08:52]

kolobov, надо скопировать код из кнопки "домой" и записать его в событие Form_Load(кликни два раза по форме и в редакторе кода появится эта процедура)

peterapsbox [26.03.2013 20:01]

Вы не могли-бы подсказать, как сделать так, что-бы при введении в поле запроса не являющегося адресом сайта он перенаправлялся в гугл?

peterapsbox [26.03.2013 20:01]

Вы не могли-бы подсказать, как сделать так, что-бы при введении в поле запроса не являющегося адресом сайта он перенаправлялся в гугл?

Coolhacker770 [27.03.2013 09:04]

peterapsbox, используйте регулярные выражения:

pastebin.com/mf0jTvQj

66demon66610 [03.08.2014 20:25]

Заюзали Explorer и довольные ходят



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.