Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Получить ссылку на объект уже открытого IE / 8 сообщений из 8, страница 1 из 1
12.04.2014, 22:20
    #38613304
EvgEvg
EvgEvg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить ссылку на объект уже открытого IE
Есть код такого вида , запускаемый из Access:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim objIE As Object
Dim obj1 As Object

Set objIE = CreateObject("InternetExplorer.Application")
objIE .Visible = True
    
objIE.navigate ("http://www.myadress.ru")
MsgBox "Нажмите ОК для продолжения"
Set obj1 = objIE.Document.getElementById("myID")
и т.д.



Все работает, если Internet Explorer еще не загружен.
Но если InternetExplorer уже открыт на нужной странице,как получить objIE?

Допустим, через hwndIE= FindWindow(...) я найду дескриптор окна. Но как мне связать hwndIE и objIE?

---
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.04.2014, 23:27
    #38613330
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить ссылку на объект уже открытого IE
Код: vbnet
1.
Set objIE = GetObject(, "InternetExplorer.Application")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.04.2014, 12:23
    #38613455
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить ссылку на объект уже открытого IE
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub Form_Load()
Dim shell_windows As SHDocVw.ShellWindows
Dim ie As SHDocVw.InternetExplorer
Dim txt As String


    ' List the shell windows.
    Set shell_windows = New SHDocVw.ShellWindows
    For Each ie In shell_windows
        txt = ie.Application & vbTab & ie.LocationName
        If ie.Application = "Microsoft Internet Explorer" Then txt = txt & vbTab & ie.LocationURL
        Debug.Print txt
    Next
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.04.2014, 19:51
    #38613732
EvgEvg
EvgEvg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить ссылку на объект уже открытого IE
Shocker.Pro
Код: vbnet
1.
Set objIE = GetObject(, "InternetExplorer.Application")



Выдается сообщение
"can't create object"

---
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.04.2014, 19:54
    #38613733
EvgEvg
EvgEvg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить ссылку на объект уже открытого IE
Antonariy
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub Form_Load()
Dim shell_windows As SHDocVw.ShellWindows
Dim ie As SHDocVw.InternetExplorer
Dim txt As String


    ' List the shell windows.
    Set shell_windows = New SHDocVw.ShellWindows
    For Each ie In shell_windows
        txt = ie.Application & vbTab & ie.LocationName
        If ie.Application = "Microsoft Internet Explorer" Then txt = txt & vbTab & ie.LocationURL
        Debug.Print txt
    Next
End Sub



Вариант рабочий, но надо подключать в референсах "Microsoft Internet Controls".
Если других вариантов не будет, придется пользоваться этим.

В любом случае, ВСЕМ спасибо за отклики.

---
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.04.2014, 21:48
    #38613788
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить ссылку на объект уже открытого IE
Можно не подключать.

Код: vbnet
1.
Set shell_windows = CreateObject("SHDocVw.ShellWindows")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.04.2014, 21:31
    #38614785
EvgEvg
EvgEvg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить ссылку на объект уже открытого IE
Antonariy,

тогда ошибка 429 - ActiveX component can't create object

---
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2014, 19:05
    #38735333
G_u_e_s_t_
G_u_e_s_t_
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить ссылку на объект уже открытого IE
Код: vbnet
1.
2.
3.
'Set shell_windows = New SHDocVw.ShellWindows

Set shell_windows = CreateObject("Shell.Application").Windows  '<-- is the same as above
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Получить ссылку на объект уже открытого IE / 8 сообщений из 8, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 562ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2156225]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 180ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 294ms
total:  562ms
x
x
Закрыть


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