Vb+html

[polym]

люди помогите прошу вас, такой вопрос:
есть на форме два webBrowser в одном открывается страничка откуда надо вытянуть с поля ><input type=text value="Games"> слово Games и вставить его в определённое поле в страничке во втором webBrowser
Подскажите хотябы методику, путь решения, хоть что-нибудь!

[dr.MIG]

Поиск по форуму по слову WebBrowser. Затем ещё по слову getAtribute. Если останется что-то непонятно, спрашивай.

[polym]

"webbrowser.document.<id_кнопки>.value - то что в поле. Ну и тд..." вот что нашёл нв форуме, только это не работает чего-то :/
а как подскажите вытянуть текст из поля без id? или из <textarea> ?

[Хакер]

Обращаться не по id-у.

[polym]

эх, неужели никто не знает?
подскажите как вытянуть/заполнить текстовое поле?! плиз

[Хакер]

Я вроде бы сказал. Обращаться другими способами. Не по name-у и не по id-у. По индексу например.

[polym]

приведи пожалуйста пример (
вот есть конструкция: <input type=text name=password value="jyz3s8ci"> надо скопировать в textbox jyz3s8ci !

[polym]

ещё один вопрос созрел, работа со строками..
имеется текст, например "frtj76>hf fj2" нужно извлечь только символы до > причём их кол-во не известно.
хмм, наверное надо было отдельную тему создать...

[skiperski]

See Split, InStr

[polym]

оо, гуд, ОГРОМНОЕ спасибо skiperski

[SSecurity]

А вообще есть несколько способов.
<input type=text name=password value="jyz3s8ci">

Обращение по ИД

Код: Выделить всё

Print WebBrowser.Document.GetElementByID("id элемента").Value


Поиск по имени

Код: Выделить всё

For each Elem in WebBrowser.Document.GetElementsByName("password")
  Print Elem.Value
Next


Поиск по тэгу

Код: Выделить всё

For each Elem in WebBrowser.Document.GetElementsByTagName("INPUT")
  If Elem.Name = "password" Then
    Print Elem.Value
    Exit For
  End if
Next


по тагу также можешь вычленить и TEXTAREA только учти что в текстареи значение может хранится в свойстве TEXT ...

т.е.

Код: Выделить всё

For each Elem in WebBrowser.Document.GetElementsByTagName("TEXTAREA")
   Print Elem.Text ' или .Value - не проверял
Next


А вообще подключи в Референс ссылку на Microsoft HTML и получишь на этапе разработке доступ ко всему что тебе интересно

С Уважением,
Сергей

[nekeda]

а как обратиться к элемету во фрейме? пробовал
web.document.frames("имя").GetElementByID("ид_элемента").value
web.document.frames.item(1).GetElementByID("ид_элемента").value
web.document.frames.getelementbyname("имя_формы").GetElementByID("ид_элемента").value
web.document.all("имя_формы").GetElementByID("ид_элемента").value

- Object doesn't support this property or method =\

[alibek]

Если не ошибаюсь, нельзя обращаться к содержимому фреймов из родительского окна, если во фрейме загружена страницы из хоста, отличного от родительского.

[Хакер]

Не ошибаешься. Нельзя. И правильно, что нельзя.

[nekeda]

опа. А есть идеи как изменить значение текстового поля во фрейме? Загрузить его отдельно боюсь не получится, так как речь идёт о чате =\

[SSecurity]

т.е. если я во фрем засуну страницу с апача, в которой будет фрейм и в фрейме страница со IIS сервера опятьже с мой машины мне веб-браузер ничего не покажет?

или например у меня на хосте будет документ с фреймом - во фреме документ со второго сервера в локалке - тоже не покажет?

2 nekeda: я вообще в этом случае делаю так:

Код: Выделить всё

Dim WithEvents Page As HTMLDocument
Set Page = Web.Document

в нужном месте ставлю

Код: Выделить всё

Stop

открываю View - Locals Window
и тм все свойства как на ладони и фреймы и формы и т.д.

С Уважением,
Сергей

[nekeda]

SSecurity
не понял про "нужное место" можно поподробнее?

[SSecurity]

берешь и внутри кода, там где тебе нужно получить искомое значение ставишь Stop запускашься на выполнение, когда у тебя программа до стопа дойдет - остановится ... вот в этот момент и могешь все переменные и свойства объявленных объектов посмотреть

Типа так:)

С Уважением,
Сергей

[Хакер]

А брекпоинт уже не рулит? Watchs (кстати, как перевести) уже не рулят?

[SSecurity]

конечно рулят но мне в некоторых случаях STOP проще написать, вместо того чтобы F9 или тыкнуть мышей

[keks-n]

Если Stop не убрать, он после компиляции превратится в End. Так что лучше уж Debug.Assert 0

[SSecurity]

Если Stop не убрать, он после компиляции превратится в End. Так что лучше уж Debug.Assert 0

Если бы он просто в End превратился - это пол беды, а на самом деле - вылетит сообщение

Код: Выделить всё

msgbox "Stop statment ...", 48

и за ним завершение

[nekeda]

эмм.. мне нужно менять значения текстового поля во фрейме. Причём тут Stop, Watchs, Debug и т.д.?

[SSecurity]

nekeda ну если сайт твой - то легко ... в противном случае -
ставь форму, в неё браузер и без фреймов отображай - и будет тебе доступ к свойствам:)

[nekeda]

SSecurity
форма есть, браузер на ней есть. Как отобразить без фреймов?

[SSecurity]

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

[nekeda]

SSecurity
в этом фрейме есть input type="text", у него есть ID. Как к нему обратится и изменить его Value?

[Хакер]

Если именно ID (а не Name), то так (допусти ID="Foo")

MyFrame.Foo.Value="Hello, nekeda"

[SSecurity]

если я врно понял, то

Код: Выделить всё

web.document.GetElementByID("ид_элемента").value = "НовоеЗначение"

так можно менять текст в браузере... значения элементов

[Хакер]

Тогжа уж

Код: Выделить всё

web.document.frames("SomeFrame").ид_элемента.value = "НовоеЗначение"