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

Браузер на vb

 
 

Ну как я и обещал, будем делать свой инет броузер. Подключи компонент Microsoft Internet Controls. На форму кинь WebBrowser(назови его WB), 4 кнопки(у 1ой Caption = "Назад", у 2ой = "Вперед", у 3ей = "Домой", у 4ой = "Обновить"), метку(Caption = "Адрес:", AutoSize = True(это чтоб размеры метки регулировались автоматом)), и текстовое поле(Caption="http://"). Вот что у тебя должно было появиться:

Private Sub Command1_Click() ' Кнопка назаD
WB.GoBack
End Sub

Private Sub Command2_Click() ' Кнопка вперед
WB.GoForward
End Sub

Private Sub Command3_Click() ' Кнопка Домой
WB.GoHome
End Sub

Private Sub Command4_Click() ' Кнопка Обновить
WB.Refresh
End Sub

Private Sub Form_Resize() ' При изменении размера формы меняем размер WB
WB.Left = 20
WB.Top = 1080
WB.Width = Form1.Width - 140
WB.Height = Form1.Height - 1500
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then ' Если нажата клавиша Enter то:
WB.Navigate Text1.Text ' Открываем введенный в текстовое поле адресс
' Меняем заголовок формы
Form1.Caption = ""
Form1.Caption = Text1.Text & Form1.Caption
End If
End Sub

Исходник качай здесь


Есть вопросы? Спроси на нашем форуме!!
Павел [07.02.2010 15:51]

Как сделать так, что бы он ссылки не открывал в эксплорере? Надо как можно скорее - помогите пожалуйста.

Доброжелатель [15.11.2010 00:34]

Поставь по умолчанию чтобы браузер былне IE,а например Опера.И будет тебе счастье.

Чайник [03.04.2011 10:24]

как сделать, чтобы он на текст1 отоброжал ещё куда меня послали))ну к примеру нажал ты на гипер ссылку, а адрес на текст1 кинуло?

Багир [17.04.2011 12:53]

Довольно капризный контрол при работе с ним в VBA. Глючит на закладках MultiPage и любое действие с WB.ExecWB, например установка размера шрифта, приводит к ошибке Method 'ExecWB' of object 'IWebBrowser2' failed

Но красиво показывает файлы с xml структурой, поэтому я им и пользуюсь.

Вероничка [19.05.2011 15:51]

ЭТО ТО ЧТО НАДО ДЛЯ МОЕГО ДИПЛОМА!!!)))ПРОВЕРЮ...

Валерий [26.06.2011 23:10]

Как организовать поиск слова на страничке (WebBrowser-а). Помогите пожалуйста.

Пашок [15.07.2011 17:20]

Привет!!!
А как написать браузер с поддержкой флеш-плейера???
Я пишу на VB 2010
Напишите пожалуйста на jobhome2008 САБАКА rambler ТОЧЕЧКА ru
Буду очень признателен

Антон [15.07.2011 19:45]

круто смотрю эту страницу с нового Эксплорера
тока 1 вопрос
как скачивать фалц ато переходит на страницу и пишет чё страница недоступна

антон [15.07.2011 19:46]

тю неправильно написал не фалц а файл

adyg01 [09.08.2011 21:16]

Чёто у меня некоторые компоненты не подключаются... Пишет " Error accessing the system registry " Может кто знает чём дело? Отпишитесь baizet@spaces.ru

Максим [06.11.2011 13:52]

Я браузер покруче сделал

Максим [07.11.2011 19:11]

Чайник вот этот код:
Private Sub Timer1Timer()
Text1 = WB1.LocationURL
End Sub

Private Sub Text1
KeyDown(KeyCode As Integer, Shift As Integer)
On error Resume next
Timer1.Enabled = False
If KeyCode = 13 Then Timer1.Enabled = True
End Sub

Чайник [30.12.2011 08:52]

Спасибо!

Юра [08.01.2012 18:53]

не работает ошибку выдаёт

Юра [08.01.2012 20:06]

Что за хрен под моим именем!?

алексей [08.01.2012 20:12]

может тоже юра,
юр ты себе никнейм придумай и пиши в имени

Юра (Shade) [08.01.2012 20:26]

У меня есть ник (Shade) теперь я буду так подписываться.

алексей [08.01.2012 20:40]

ясн.
юр а чё ты в асбку не заходишь??

Карим [15.01.2012 23:42]

ха классно -- Shade

Юра (Shade) [16.01.2012 00:02]

Просто я под этим ником (Shade) играю

abakan [07.03.2012 18:10]

Гавно , если в гипер ссылке target= _blank
то откроется браузер

Гость [19.03.2012 00:30]

Прикольно. Вот только к сожалению он привязан к Internet Explorer, и на некоторых сайтах пишет "у вас устаревший браузер", несмотря на то, что у меня сейчас стоит IE 9.

3eBpA [29.04.2012 03:28]

А можно ли как то обновить браузер , что бы не писало "У вас устаревший браузер" ?

skull [01.05.2012 18:13]

вот именно он привязан к эксплорреру , от этого кода нету некокого толка-((((

Алексей [08.07.2012 19:02]

Доброжелатель мазила и так стоит по умолчанию что делать

Алексей [08.07.2012 19:05]

мазила и так стоит по умолчанию что делать помогите пожалуйста

Саня [31.08.2012 00:18]

Кнопки не работают выдает ошибку, и как сделать чтобы страницы открывались в браузере моем а не в explorer

Edward [31.08.2012 00:31]

Как понять в твоём? если ты имееш ввиду чисто твой броузер,то расчитывай на 4000 или больше строк кода ,хорошие знания html,php и так далле.

Алексей(alex13sh) [31.08.2012 01:25]

Саня, если чтто это не твой браузер и ты его контралировать полностью не можешь!!

Release [31.08.2012 07:15]

html и php к чему? Движок браузера в основном пишется на C++, Delphi, но можно и написать на c#, vb.net, vb6, но нужно много опыта)

Edward [31.08.2012 11:02]

Ну С++ тоже надо знать, но браузер открывает же страницы которые содержат (php,html) и поэтому надо их хорошо знать.

EverybodyLies [01.09.2012 12:40]

движок браузера - алгоритмы. неважно, на каком яп это влияет только на скорость работы. движок должен поддерживать целую ТОННУ форматов и стандартов.

Кулхацкер [01.09.2012 18:23]

Edward,

Тьфу! При чем тут PHP-то? Он интерпретатором интерпретируется (простите за тавтологию)!

CeazeR [10.03.2013 03:34]

В етом диалоговом окне произошла ошибка.
Ошибка 54
неопредельоная ошибка

так всегда будет вибивать!!!

Coolhacker770 [10.03.2013 07:13]

Это не диалоговое окно. А ошибка 54 вполне определена:
Bad File Mode
Однако вопрос: где тут файлы? Похоже, что тут криворукость ваша виновата.

zm2003160 [20.03.2013 08:21]

А как сделать закладки

ozzee20 [10.06.2013 21:03]

а можно сделать чтобы как в опере или хроме вкладки?

Coolhacker770 [11.06.2013 08:30]

TabControl (или как там оно в вб?) и динамическое добавление контрола WebBrowser на новую вкладку.

alex13sh300 [11.06.2013 09:45]

массив кнопок хотя бы и усё

Coolhacker770 [11.06.2013 12:28]

ват?

ozzee20 [11.06.2013 20:43]

Извиняюсь, что нублю но я новичок, можно код браузера со вкладками? Заранее спасибо...

Ivan40 [18.07.2013 00:03]

Что мне делать? У меня при попытке перейти на страницу пишет ошибку: Method 'GoForeward' of Object 'IWebBrowser2' failed. А у меня WebBrowser1. Какой тогда код нужно подобрать для него?

alex13sh300 [18.07.2013 00:21]

---(": Method 'GoForeward' of Object 'IWebBrowser2' failed. А у меня WebBrowser1. ")
_____________________________________________________
Как ты думаешь в чём прикол
Ты делаешь запрос метода на объект, которого нет на форме

Coolhacker770 [18.07.2013 06:19]

пишите GoForward, а не GoForeward.
WebBrowser1.GoForward
(да, английский тоже надо учить)

Ivan40 [18.07.2013 13:39]

Нет, у меня всё-таки изначально был написан GoForward, просто я сюда неправильно записал. Всё то же самое: не работает. :((

Coolhacker770 [18.07.2013 13:50]

Ivan, у вас таки компонент как называется? а то быть может алкес прав

Ivan40 [18.07.2013 14:41]

WebBrowser1 называется. А так Microsoft Internet Controls.

zhozhek30 [27.09.2013 11:47]

в WB.Navigate строчке ошибку пишет

Stertor370 [27.09.2013 13:45]

А gecko controls слабо использовать?

pskov-igor170 [23.10.2013 00:04]

Предположим я в него загрузил страницу. Как после полной загрузки этой страницы извлечь её исходный код в текстовый файл

v19307310 [30.10.2013 22:40]

...с этого сайта vb6 ни как не качается.....
создаётся впечатление что этот сайт .....м.ртв
интересно а сам admin знает что не которые ссылки давно давно уже....не рабочие
извеняюсь

Shade970 [30.10.2013 22:53]

Могу дать нормальный vb6 только торрент файл

wdfm90 [10.01.2014 10:00]

v193073, поищи на торрентах Portable версию, например на сайте rutracker(точка)org.

Edward300 [10.01.2014 17:54]

Зачем Portable?

Stertor370 [11.01.2014 00:36]

Хватит извращаться - учите прямо Делфи! А псевдобраузер писать на бейсике, используя контрол от Internet Explorer морально старо.

Release130 [14.01.2014 22:13]

используя контрол WebBrowser точнее, движок которого является Internet Explorer. Почему сразу Делфи?

Stertor370 [15.01.2014 19:49]

Потому, что Делфи поддерживает Gecko - браузерный движок наподобие мозиллы. Вот тут можно свой браузер запилить, если конечно не пропадет желание кодить.

Release130 [15.01.2014 21:46]

Ну ради одного Gecko думаю рано строить выводы. В VB.NET можно использовать тоже разносторонние движки. На счет VB6 не знаю.

Stertor370 [15.01.2014 22:30]

если ты напишешь распространяемую прогу на .net, то ради какого-то браузера всем придется ставить .net framework, что не айс. Для этой задачи больше подходят с++ либо делфи.

Edward300 [15.01.2014 23:16]

.net это не есть хорошо, для кроссплатформенности.

Release130 [16.01.2014 09:53]

Фреймворк почти уже на каждой винде стоит. Возможно, но ничего хорошего не выйдет.

Все же .NET является тоже кроссплатформенным :)

Edward300 [16.01.2014 17:45]

Release, где же он кроссплатформен?

Release130 [16.01.2014 18:01]

Цитирую.
"Среды исполнения Java Virtual Machine и .NET также кроссплатформенны, однако на их вход подаётся не исходный текст, а промежуточный код. Поэтому программы, написанные на Java и C#, можно запускать под разными ОС без предварительной перекомпиляции."

Edward300 [16.01.2014 19:22]

Release, попробуй ка без Wine запустить exe на Linux :)

Stertor370 [16.01.2014 21:06]

Лучше пусть попробует [i]УСТАНОВИТЬ[/i] .net на линукс )

Ender [16.12.2014 21:36]

Я вообще думаю что, это не браузер а полубраузер. Всю грязную работу исполняет Internet Explorer а мы только командуем им. Если писать СВОЙ браузер то в нём будет не меньше 10000 строчек кода. А если мы захочем продавать подобную программу то 95% суммы мы должны отдать Биллу Гейтцу

ushakov0102 [05.06.2015 14:57]

Спасибо! Хорошо получилась, но я конечно усовершенствовали добавил: сохранит, открыть, начальная страница, меню и так далее.



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




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