Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как перебрать все открытые экземпляры IE? / 8 сообщений из 8, страница 1 из 1
18.12.2006, 19:36
    #34208688
Gelo_R
Gelo_R
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перебрать все открытые экземпляры IE?
Есть 2 вопроса.
1. Как перебрать все открытые экземпляры IE для получения ссылок на открытые HTML документы?
2. Как проверить или HTML документ нормально загружен?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.12.2006, 08:31
    #34209273
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перебрать все открытые экземпляры IE?
а для чего это, если не секрет?
может, как говорится, "мы пойдем другим путем!"?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.12.2006, 14:38
    #34210589
Gelo_R
Gelo_R
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перебрать все открытые экземпляры IE?
Идея такая. Все работает из под экселя. Если открыта нужная страничка, то пока я ввожу данные, макрос отсылает данные на сайт, получает ответ и анализирует его. Вопрос в том, чтоб избавиться от всевозможных кнопок на листе. И вторая причина. связь часто обрывается (обравается также ссылочка на IE), и тогда снова нужно входить куда надо, вводить пароль, переходить на нужную страничку...

А что, перебрать открытые IE - это действительно так сложно? Или на худой конец найти окно по заголовку? И после нажатия кнопки - проверить или все нормально отработано? Или может мне нужно в совсем другой форум?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.12.2006, 15:03
    #34210678
PA
PA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перебрать все открытые экземпляры IE?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
    Dim objShell As New Shell32.Shell
    Dim objBrowser As SHDocVw.WebBrowser
    Dim objHTMLDocument As MSHTML.HTMLDocument
    
    For Each objBrowser In objShell.Windows
        If StrComp(Right(objBrowser.FullName,  12 ), "iexplore.exe", vbTextCompare) =  0  Then
            If TypeName(objBrowser.Document) = "HTMLDocument" Then
                Set objHTMLDocument = objBrowser.Document
                Debug.Print objHTMLDocument.Title, objHTMLDocument.URL
            End If
        End If
    Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.12.2006, 20:44
    #34211562
Gelo_R
Gelo_R
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перебрать все открытые экземпляры IE?
Спасибо РА, это то что надо!
А может знаеш, если я на страничке сделаю нажму кнопку (програмно естественно), то как проверить или страничка нормально отработала? (на случай если пропал инет или заглючил сайт)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.12.2006, 22:44
    #34211671
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перебрать все открытые экземпляры IE?
If StrComp(Right(objBrowser.FullName, 12), "iexplore.exe", vbTextCompare) = 0 Then
Лишнее.

Gelo_R
Посмотреть содержимое objHTMLDocument.documentElement.outerHTML.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2006, 14:48
    #34216194
Gelo_R
Gelo_R
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перебрать все открытые экземпляры IE?
Всем спасибо. Разобрался. Все работает!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2006, 20:05
    #34219990
RUSYA
RUSYA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перебрать все открытые экземпляры IE?
Наверное лучше бы это реализовать на сокетах или Inet API
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как перебрать все открытые экземпляры IE? / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 361ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2164755]:
 0ms
get settings:
 7ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 59ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 201ms
total:  361ms
x
x
Закрыть


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