Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Заполнить текстовое поле WebBrowser1

Автор: eldar22 17.4.2009, 00:01

Вот код текстового поля
сайт http://www.liga.net/links/add.html

Код


<tr><td align=right><b>URL:</b></td><td><input type=text name=url
    value="http://" size=33></td></tr>

А вот кнопки

Код


<input type=submit name=submit value="  Ok  ">

Автор: Akina 17.4.2009, 07:44

Проще посмотреть заголовки и передаваемые по POST данные по нажатию кнопки, и отправить то же, но со своими данными.

Автор: eldar22 17.4.2009, 09:05

Да я это знаю, но мне надо заполнить поле WebBrowser1
Я где такое уже делал давно, но найти не могу не помню кода

Автор: Akina 17.4.2009, 09:22

Цитата(eldar22 @ 17.4.2009, 10:05

)

найти не могу не помню кода

то есть ни одна из тем, выдаваемых поиском по слову webbrowser в разделе по VB6 на форуме, не подходит? или не искал?

Автор: eldar22 17.4.2009, 11:15

Искал но не подходит не работает
Вот на делфи как должно выглядить

Код


procedure TForm1.Button1Click(Sender: TObject);
var
    A:Variant;
begin

    A:= WebBrowser1.OleObject.Document.getElementById('url'); // Поле для ввода имени пользователя
    A.Value:= Edit1.Text;
      A:= WebBrowser1.OleObject.Document.getElementById('submit'); // Ну и кнопочка для входа
    A.Click;



end;


procedure TForm1.FormCreate(Sender: TObject);
begin
 WebBrowser1.Navigate('http://www.liga.net/links/add.html');
end;

end.

А как на visual basic организовать это?

Автор: Akina 17.4.2009, 12:14

ну, видимо что-то вроде

Код


dim doc as object
set doc=WebBrowser1.Document
dim a as object
set a=Document.getElementById('url')
A.Value= Text1.Text

Попробуй... спроси, если что, недостающую инфу у objectbrowser или там посмотри его структуру в locals при отладке...

Автор: eldar22 17.4.2009, 14:13

Akina спасибо

Но только есть не большая ошибка в вашем коде я её исправил и вот что получилось

Код


Dim doc As Object
Dim a As Object
Set doc = WebBrowser1.Document
 Set a = WebBrowser1.Document.getElementById("url")
a.Value = Text1.Text

Автор: Akina 17.4.2009, 14:19

Цитата(eldar22 @ 17.4.2009, 15:13

)

вот что получилось

Ну тогда строки 1 и 3 просто не нужны...

Автор: eldar22 17.4.2009, 18:45

Нет главное работает smile

Автор: eldar22 17.9.2009, 10:51

У меня тут вопрос по теме.
Если на странице иметься два поля с name="url" то тогда как заполнить эти два поля?

Автор: neic 17.9.2009, 22:08

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

Автор: aclips 18.4.2011, 03:38

Можно так:

Код


WebBrowser1.Document.GetElementById("url").innerText = "что вводить"