ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Visual Basic, IE, Формы....
21 сообщений из 21, страница 1 из 1
Visual Basic, IE, Формы....
    #33640961
Nickson
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nickson
Участник
У меня два вопроса:
1. Пусть я в своей программе использую компонент IE. А если на другом компьютере установлен FireFox например, моя работать же не будет.Что можно сделать? Наверное устаность компонент..но не знаю куда, и так ли решается эта проблема..?
2. Как с помощью VB извлечь из полей формы web-страницы даные и наоборот, - заполнить поля на страцице определёнными данными? (Имеется ввиду встроенный компонент IE, а не браузер).
Thanks!
...
Рейтинг: 0 / 0
03.04.2006, 13:11
| Ответить | Цитировать | Написать  
Visual Basic, IE, Формы....
    #33641316
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
по первому вопросу.
Программа, используюшая компонент IE будет работать на любом компьютере под Win, независимо от наличия браузеров сторонних производителей. Единственным исключением может быть среда, из которой специально удалён этот компонент, но на таком компьютере и проводник и файлы справки и многие другие вещи работать не будут.

по второму.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
'References: Microsoft HTML Object Library
'Controls: Microsoft Internet Controls
'добавить на форму WebBrowser с именем WebBrowser1

Private WithEvents mHTMLDocument As MSHTML.HTMLDocument

Private Sub Form_Load()
    Dim strBlankFile As String
    strBlankFile = "about:" & _
    "<input id=""txt1"" type=""text"" size=""20"" value=""текст""/>" & _
    "<input id=""cmd1"" type=""submit"" value=""пуск""/>"
    'загрузка документа
    WebBrowser1.Navigate strBlankFile
    While WebBrowser1.Document Is Nothing
        DoEvents
    Wend
    'присваиваем html документ
    Set mHTMLDocument = WebBrowser1.Document
End Sub

Private Function mHTMLDocument_onclick() As Boolean
    'обработка событий только для элемента с идентификатором 'cmd1'
    If mHTMLDocument.parentWindow.Event.srcElement.Id = "cmd1" Then
        MsgBox mHTMLDocument.getElementById("txt1").Value
    End If
End Function

Остальное здесь
...
Рейтинг: 0 / 0
03.04.2006, 14:57
| Ответить | Цитировать | Написать  
Visual Basic, IE, Формы....
    #33642205
Nickson
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nickson
Участник
Так это заполнение формы или извлечение информации?
...
Рейтинг: 0 / 0
03.04.2006, 21:25
| Ответить | Цитировать | Написать  
Visual Basic, IE, Формы....
    #33642230
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Извлечение.

Вот тебе еще один простой пример.

Подключи библиотеку "Microsoft HTML Object Library".

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Private objDoc As MSHTML.HTMLDocument

Private Sub Form_Load()
    WebBrowser1.Navigate "www.ya.ru"
    
    Do While WebBrowser1.Busy
        DoEvents
    Loop
    
    Set objDoc = WebBrowser1.Document
End Sub

Private Sub Command1_Click()
    Dim objForm As MSHTML.HTMLFormElement
    
    ' web - название формы.
    Set objForm = objDoc.Forms.web
    ' text - название поля.
    ' Заполняем текстовое поле.
    objForm.Text.Value = "sql.ru"
    ' Извлекаем данные из текстового поля.
    MsgBox objForm.Text.Value
    ' Нажимаем кнопку "Найти".
    objForm.submit
End Sub
...
Рейтинг: 0 / 0
03.04.2006, 21:54
| Ответить | Цитировать | Написать  
Visual Basic, IE, Формы....
    #33653973
Nickson
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nickson
Участник
А дело в том, что чё-то страницы не грузятся
...
Рейтинг: 0 / 0
08.04.2006, 21:02
| Ответить | Цитировать | Написать  
Visual Basic, IE, Формы....
    #33811521
Интересующийся чел
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Интересующийся чел
Гость
AshtonИзвлечение.

Вот тебе еще один простой пример.

Подключи библиотеку "Microsoft HTML Object Library".

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Private objDoc As MSHTML.HTMLDocument

Private Sub Form_Load()
    WebBrowser1.Navigate "www.ya.ru"
    
    Do While WebBrowser1.Busy
        DoEvents
    Loop
    
    Set objDoc = WebBrowser1.Document
End Sub

Private Sub Command1_Click()
    Dim objForm As MSHTML.HTMLFormElement
    
    ' web - название формы.
    Set objForm = objDoc.Forms.web
    ' text - название поля.
    ' Заполняем текстовое поле.
    objForm.Text.Value = "sql.ru"
    ' Извлекаем данные из текстового поля.
    MsgBox objForm.Text.Value
    ' Нажимаем кнопку "Найти".
    objForm.submit
End Sub

Почему этот пример не работает тут: http://www.ogame.ru
...
Рейтинг: 0 / 0
23.06.2006, 14:27
| Ответить | Цитировать | Написать  
Visual Basic, IE, Формы....
    #33811542
Интересующийся чел
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Интересующийся чел
Гость
Ругается на строчку:
Код: plaintext
Set objForm = objDoc.Forms.formular

438 Object doesn't support this property or method
...
Рейтинг: 0 / 0
23.06.2006, 14:35
| Ответить | Цитировать | Написать  
Visual Basic, IE, Формы....
    #33811837
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
В библиотеке MSHTML такого слова, как 'formular' нет.
Так что ругается вполне обоснованно.
Время летнее... телепаты в отпусках... Код надобно посмотреть.
...
Рейтинг: 0 / 0
23.06.2006, 15:48
| Ответить | Цитировать | Написать  
Visual Basic, IE, Формы....
    #33811890
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
В загруженном в objForm документе нет формы, имеющей атрибут name="formular"
Потому и ругается.
...
Рейтинг: 0 / 0
23.06.2006, 16:01
| Ответить | Цитировать | Написать  
Visual Basic, IE, Формы....
    #33811972
S. Fedorenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
S. Fedorenko
Участник
marvanВ загруженном в objForm документе нет формы, имеющей атрибут name="formular"
Потому и ругается.
Она там есть:
Код: plaintext
<form name="formular" action="" method="POST" onSubmit="changeAction('login');">
...
Рейтинг: 0 / 0
23.06.2006, 16:28
| Ответить | Цитировать | Написать  
Visual Basic, IE, Формы....
    #33814144
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
marvanВ загруженном в objForm документе нет формы, имеющей атрибут name="formular"
Потому и ругается.
marvan правильно говорит, только не в objForm, а в objDoc, действительно нет такой формы, а на страничке естественно есть. Посмотрев HTML код ресурса www.ogame.ru, пришел к выводу, что причиной всему фреймы, размещенные на стартовых страницах. Немного подкорректировав код, получил следующий вариант.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Private objDoc As MSHTML.HTMLDocument

Private Sub CommandButton1_Click()
    Dim objForm As MSHTML.HTMLFormElement

    Set objForm = objDoc.Forms.formular

    objForm.login.Value = "abc"
    objForm.pass.Value = "123"
    objForm.submit
End Sub

Private Sub UserForm_Initialize()
    WebBrowser1.Navigate "www.ogame.ru"
    
    Do While WebBrowser1.Busy
        DoEvents
    Loop

    Set objDoc = WebBrowser1.Document.frames( 0 ).frames( 0 ).Document
End Sub
...
Рейтинг: 0 / 0
26.06.2006, 11:47
| Ответить | Цитировать | Написать  
Visual Basic, IE, Формы....
    #33824504
S. Fedorenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
S. Fedorenko
Участник
Спасибо. За помощь.
...
Рейтинг: 0 / 0
30.06.2006, 15:01
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Visual Basic, IE, Формы....
    #35321264
PeterGromov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PeterGromov
Гость
Спасибо за тему ребят очень помогла но вот наткнулся на такую проблемку:
В одной форме есть 2 кнопки типа Submit

<input TYPE=SUBMIT NAME="Sell" VALUE="Продать">
</td></tr>
<tr><td>
<input TYPE=SUBMIT NAME="Buy" VALUE="Купить">

objForm.submit - не отрабатывает нивкакую

Как определить на какую кнопку нажимать ?
...
Рейтинг: 0 / 0
19.05.2008, 16:25
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Visual Basic, IE, Формы....
    #36967337
SEOMR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SEOMR
Гость
AshtonИзвлечение.

Вот тебе еще один простой пример.

Подключи библиотеку "Microsoft HTML Object Library".

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Private objDoc As MSHTML.HTMLDocument

Private Sub Form_Load()
    WebBrowser1.Navigate "www.ya.ru"
    
    Do While WebBrowser1.Busy
        DoEvents
    Loop
    
    Set objDoc = WebBrowser1.Document
End Sub

Private Sub Command1_Click()
    Dim objForm As MSHTML.HTMLFormElement
    
    ' web - название формы.
    Set objForm = objDoc.Forms.web
    ' text - название поля.
    ' Заполняем текстовое поле.
    objForm.Text.Value = "sql.ru"
    ' Извлекаем данные из текстового поля.
    MsgBox objForm.Text.Value
    ' Нажимаем кнопку "Найти".
    objForm.submit
End Sub


Только начал изучать Microsoft HTML Object Library, решил воспользоваться данным примером, вставил код, но у меня выдает постоянно user defined type not defined.
Что я неправильно сделал?
...
Рейтинг: 0 / 0
20.11.2010, 15:04
| Ответить | Цитировать | Написать  
Visual Basic, IE, Формы....
    #36967341
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
SEOMRТолько начал изучать Microsoft HTML Object Library, решил воспользоваться данным примером, вставил код, но у меня выдает постоянно user defined type not defined.
Что я неправильно сделал?

не указали строку, на которой возникает ошибка.

Впрочем, я предполагаю, что вы не подключили в References библиотеку Microsoft HTML Type Library
...
Рейтинг: 0 / 0
20.11.2010, 15:09
| Ответить | Цитировать | Написать  
Visual Basic, IE, Формы....
    #36967344
SEOMR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SEOMR
Гость
Подключил, на первой строке возникает ошибка.
...
Рейтинг: 0 / 0
20.11.2010, 15:10
| Ответить | Цитировать | Написать  
Visual Basic, IE, Формы....
    #36967353
SEOMR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SEOMR
Гость
Shocker.ProSEOMRТолько начал изучать Microsoft HTML Object Library, решил воспользоваться данным примером, вставил код, но у меня выдает постоянно user defined type not defined.
Что я неправильно сделал?

не указали строку, на которой возникает ошибка.

Впрочем, я предполагаю, что вы не подключили в References библиотеку Microsoft HTML Type Library


Вы имели ввиду Microsoft HTML Object Library?
Microsoft HTML Type Library не нашел.
...
Рейтинг: 0 / 0
20.11.2010, 15:18
| Ответить | Цитировать | Написать  
Visual Basic, IE, Формы....
    #36967355
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
SEOMR,

Примеры рассматривались исходя из предположения, что на форме уже существует объект Webbrowser1. Вы же наверняка просто скопировали код и пытаетесь его запустить... Поищите на форуме и в ИНете темы, связанные с работой MS HTML object library.
...
Рейтинг: 0 / 0
20.11.2010, 15:21
| Ответить | Цитировать | Написать  
Visual Basic, IE, Формы....
    #36967364
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
SEOMR,
да именно эту Microsoft HTML Object Library имели ввиду библиотеку
...
Рейтинг: 0 / 0
20.11.2010, 15:26
| Ответить | Цитировать | Написать  
Visual Basic, IE, Формы....
    #36967368
SEOMR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SEOMR
Гость
AndreTMSEOMR,

Примеры рассматривались исходя из предположения, что на форме уже существует объект Webbrowser1. Вы же наверняка просто скопировали код и пытаетесь его запустить... Поищите на форуме и в ИНете темы, связанные с работой MS HTML object library.

Разумеется кинул на форму Webbrowser
...
Рейтинг: 0 / 0
20.11.2010, 15:29
| Ответить | Цитировать | Написать  
Visual Basic, IE, Формы....
    #36967388
SEOMR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SEOMR
Гость
Прямо мистика какая-то, закрыл тот проект, открыл новый, проделал те же действия, заработало.
...
Рейтинг: 0 / 0
20.11.2010, 15:50
| Ответить | Цитировать | Написать  
21 сообщений из 21, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Visual Basic, IE, Формы....
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=114&tid=2159231]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 31ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 64ms
get tp. blocked users:
 2ms
others: 12ms
total:  156ms
созд. / загр.: 156ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]