Подскажите плз как выполнить действия, указанные в теме (Свернуть, Развернуть, Закрыть), с определенной страницей (известен адрес сайта), открытой в отдельном окне IE. Заранее спасибо.
Подскажите плз как выполнить действия, указанные в теме (Свернуть, Развернуть, Закрыть), с определенной страницей (известен адрес сайта), открытой в отдельном окне IE. Заранее спасибо.WeRiX
Сообщение отредактировал WeRiX - Вторник, 28.10.2014, 20:23
Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Sub Z()
Dim Shell As Object Dim ie As Variant Set Shell = CreateObject("shell.application")
For Each ie In Shell.Windows If InStr(1, ie.LocationURL, "yandex") <> 0 Then ShowWindow ie.hwnd, 6 Exit For End If Next
End Sub
[/vba]
Флаги функции,определяющие вид окна:
SW_HIDE = 0 ' Скрыть окно и активизировать другое окно SW_MAXIMIZE = 3 ' Развернуть окно SW_MINIMIZE = 6 ' Свернуть окно и активизировать следующее окно в Z-порядке(следующее под свернутым окном) SW_RESTORE = 9 ' Активизировать и отобразить окно.Если окно свернуто или развернуто,Windows восстанавливает его исходный размер и положение SW_SHOW = 5 ' Активизировать окно SW_SHOWMAXIMIZED = 3 ' Отобразить окно в развернутом виде SW_SHOWMINIMIZED = 2 ' Отобразить окно в свернутом виде SW_SHOWMINNOACTIVE = 7 ' Отобразить окно в свернутом виде. Активное окно остается активным SW_SHOWNA = 8 ' Отобразить окно в текущем состоянии.Активное окно остается активным SW_SHOWNOACTIVATE = 4 ' Отобразить окно в соответствии с последними значениями позиции и размера.Активное окно остается активным SW_SHOWNORMAL = 1 ' Активизировать и отобразить окно. Если окно свернуто или развернуто,Windows восстанавливает его исходный размер и положение.Приложение должно указывать этот флаг при первом отображении окна
Все же отыскал. Если кому нужно--> [vba]
Код
Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Sub Z()
Dim Shell As Object Dim ie As Variant Set Shell = CreateObject("shell.application")
For Each ie In Shell.Windows If InStr(1, ie.LocationURL, "yandex") <> 0 Then ShowWindow ie.hwnd, 6 Exit For End If Next
End Sub
[/vba]
Флаги функции,определяющие вид окна:
SW_HIDE = 0 ' Скрыть окно и активизировать другое окно SW_MAXIMIZE = 3 ' Развернуть окно SW_MINIMIZE = 6 ' Свернуть окно и активизировать следующее окно в Z-порядке(следующее под свернутым окном) SW_RESTORE = 9 ' Активизировать и отобразить окно.Если окно свернуто или развернуто,Windows восстанавливает его исходный размер и положение SW_SHOW = 5 ' Активизировать окно SW_SHOWMAXIMIZED = 3 ' Отобразить окно в развернутом виде SW_SHOWMINIMIZED = 2 ' Отобразить окно в свернутом виде SW_SHOWMINNOACTIVE = 7 ' Отобразить окно в свернутом виде. Активное окно остается активным SW_SHOWNA = 8 ' Отобразить окно в текущем состоянии.Активное окно остается активным SW_SHOWNOACTIVATE = 4 ' Отобразить окно в соответствии с последними значениями позиции и размера.Активное окно остается активным SW_SHOWNORMAL = 1 ' Активизировать и отобразить окно. Если окно свернуто или развернуто,Windows восстанавливает его исходный размер и положение.Приложение должно указывать этот флаг при первом отображении окна
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
