powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Интернет Эксплойер
9 сообщений из 9, страница 1 из 1
Интернет Эксплойер
    #37362031
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1
ВБА запускаю с Ворда, первая строка скрипта:
'условие, ести открыт Интернет Эксплойер, тогда ...
Код: plaintext
If Tasks.Exists(Name:="Microsoft Internet Explorer") = False Then Exit Sub
очень удивлён, Интернет Эксплоер открыт, а меня на выход отсылает, почему
????
2
Как узнать, если открыто несколько Интернет Эксплоеров, то сколько
????
И как потом в каждом перебирать вкладки
???
Спасибо
...
Рейтинг: 0 / 0
Интернет Эксплойер
    #37362231
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ципихович Эндрю,
нужно писать не "Microsoft Internet Explorer", а то что написано в заголовке браузера.
Это значение меняется в соответствии с открытой страницей.
...
Рейтинг: 0 / 0
Интернет Эксплойер
    #37362358
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Djon Player, спасибо с первым вопросом разобрался
Код: plaintext
1.
2.
'условие, ести не открыт Интернет Эксплойер, тогда ...
    If Tasks.Exists(Name:="Windows Internet Explorer") = False Then Exit Sub
остался второй ..
...
Рейтинг: 0 / 0
Интернет Эксплойер
    #37362448
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ципихович Эндрю,

по второму вопросу можно было бы написать так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub tt()
Dim t
Dim k As Integer
 k =  0 
 
 For Each t In Tasks
  If t.Name Like "*- Windows Internet Explorer" Then
   k = k +  1 
   MsgBox t.Name
  End If
 Next t
 
 MsgBox k
 
End Sub

 
End Sub
но результат неправильный.
Эксперимент показал, что считаются заголовки всех окон.
Т.к. если у вас открыт браузер и в нем несколько вкладок, то результат будет равен количеству вкладок плюс 1.
А всё потому, что "Windows Internet Explorer" присутствует в названии всех вкладок и в заголовке самого браузера.
Поэтому Tasks видимо не совсем корректно тут применять.

Странно, что в Excel нет такого объекта по умолчанию.
...
Рейтинг: 0 / 0
Интернет Эксплойер
    #37362458
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Подумал, что можно эту проблему решить так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Sub tt()
 Dim t
 Dim s As String
 Dim k As Integer
 s = ""
 k =  0 
 
 For Each t In Tasks
  If t.Name Like "*- Windows Internet Explorer" Then
   If Not (s Like "^" & t.Creator & "^") Then
    s = s & "^" & t.Creator & "^"
    k = k +  1 
    MsgBox t.Name
   End If
   
  End If
 Next t
 
 MsgBox k
 
End Sub
но оказалось, что свойство Creator не совсем то, что я думал, поэтому в данном примере ответ всегда будет либо 0, если браузер не открыт, либо 1, если открыт один и более браузеров.
2 и более может лишь в том случае, если искусственно создать некое приложение в котором в заголовке будет - Windows Internet Explorer.
...
Рейтинг: 0 / 0
Интернет Эксплойер
    #37364127
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Djon Player, не знаю, откуда эти опасения, код от вчера, 08:57
проверил
1 ИЭ - 2 вкладки, ответ 1
2 ИЭ - 2 и 3 вкладки, ответ 2
То есть считает правильно
Теперь как узнать в ИЭ сколько открыто вкладок????
...
Рейтинг: 0 / 0
Интернет Эксплойер
    #37365300
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ципихович Эндрю,

скорее всего у нас разные версии IE, я проверял на 8-ой версии. И резeльтат был равен количеству вкладок во всех открытых IE+количество открытых IE.

В частности сейчас попробовал код ещё раз.
Открыто 3 браузера IE, в них соответственно открыты 1,2 и 3 вкладки. Результат получился 9.
Т.е. 1+2+3+3=9
...
Рейтинг: 0 / 0
Интернет Эксплойер
    #37366304
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Djon Player, проверил снова, правильно считает, у меня ИЭ 8.0.6001.18702
Ереееееесь
...
Рейтинг: 0 / 0
Интернет Эксплойер
    #37366994
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ципихович Эндрю,

у меня IE 8.0.7600.16385
Могу предположить тогда, что у нас отличаются какие-то параметры в настройках браузера, например связанные с тем, создавать или нет отдельные процессы под отдельные вкладки. Т.к. уже года 4 вобще не пользуюсь IE, то уже и не помню, где это настраивается. Но походу у меня как раз включена такая штука, как создание отдельных процессов. Это подтверждается тем, что количество запущенных процессов ieexplore.exe больше, чем количество открытых браузеров IE. Возможно у вас на каждый браузер ровно по одному процессу.
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Интернет Эксплойер
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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