Добавления текста к адресу в браузере

@bilba · Регистрация: 19.11.2009

Студворк — интернет-сервис помощи студентам

Как сделать чтобы при нажатии на кнопку в моей программе, в окне Internet Explorer, в строке ввода поиска в www.yandex.ru добавлялся определенный текст. Как-то не очень выразился.. Ну если чего-то не понятно, то переспрашивайте. Спасибо заранее.

@t-80 · 01.12.2009, 13:39

Самое простое:

Code
1
2
3
4
5
6
7
Private Sub Command1_Click()
  Dim IE1 As SHDocVw.InternetExplorer
  Set IE1 = New SHDocVw.InternetExplorer
  IE1.Visible = True
  Call IE1.Navigate('http://search.rambler.ru/srch?words=relib&where=1') ' Это для примера
  Set IE1 = Nothing
End Sub

И не забудь добавить ссылку в проекте на Micro$oft Internet Controls

Можно делать и по-другому, в уже открытое окно вставлять, только думать неохота.

@bilba · 01.12.2009, 16:07 **[ТС]**

Добавил я ссылку в проекте на Microsoft Internet Controls.
Была одна ошибка, исправил (Dim IE1 As SHDocVwCtl.InternetExplorer) ошибка была в SHDocVw, нужно SHDocVwCtl.
Когда запустил он мне выдал Debug. (Run-time error'430': ...).
И никак не получается. Не знаешь почему?

@t-80 · 01.12.2009, 17:00

Знаю, потому что надо было добавить ССЫЛКУ на библиотеку, а не КОНТРОЛ, то есть :
Project->References... (и там уже ставить галку )
, а не
Project->Components...

PS: Хорошо, что написал про SHDocVwCtl, а то бы не въехал в чем дело.
PPS: Кстати, с этим контролом(который ты добавил) можешь написать свой инет-браузер на ядре IE.
PPPS:Приведенный кусок кода работать обязан без исправлений(!), так как скопирован из рабочего кода.

@t-80 · 01.12.2009, 17:04

Библиотека SHDocVw.dll должна идти вместе с IE начиная с 4-ой версии.

@bilba · 01.12.2009, 22:29 **[ТС]**

Спасибо! Все работает!

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@bilba 0 / 0 / 0 Регистрация: 19.11.2009 Сообщений: 31

	Добавления текста к адресу в браузере 30.11.2009, 22:30. Показов 919. Ответов 5 Метки нет (Все метки) Как сделать чтобы при нажатии на кнопку в моей программе, в окне Internet Explorer, в строке ввода поиска в www.yandex.ru добавлялся определенный текст. Как-то не очень выразился.. Ну если чего-то не понятно, то переспрашивайте. Спасибо заранее. 0

@bilba 0 / 0 / 0 Регистрация: 19.11.2009 Сообщений: 31
	01.12.2009, 16:07 [ТС]
	Добавил я ссылку в проекте на Microsoft Internet Controls. Была одна ошибка, исправил (Dim IE1 As SHDocVwCtl.InternetExplorer) ошибка была в SHDocVw, нужно SHDocVwCtl. Когда запустил он мне выдал Debug. (Run-time error'430': ...). И никак не получается. Не знаешь почему? 0

@t-80 0 / 0 / 1 Регистрация: 19.10.2008 Сообщений: 173
	01.12.2009, 17:00
	Знаю, потому что надо было добавить ССЫЛКУ на библиотеку, а не КОНТРОЛ, то есть : Project->References... (и там уже ставить галку ) , а не Project->Components... PS: Хорошо, что написал про SHDocVwCtl, а то бы не въехал в чем дело. PPS: Кстати, с этим контролом(который ты добавил) можешь написать свой инет-браузер на ядре IE. PPPS:Приведенный кусок кода работать обязан без исправлений(!), так как скопирован из рабочего кода. 0

@t-80 0 / 0 / 1 Регистрация: 19.10.2008 Сообщений: 173
	01.12.2009, 17:04
	Библиотека SHDocVw.dll должна идти вместе с IE начиная с 4-ой версии. 0

@bilba 0 / 0 / 0 Регистрация: 19.11.2009 Сообщений: 31
	01.12.2009, 22:29 [ТС]
	Спасибо! Все работает! 0