VBS/WSH/JS

Vadikan · Конфигурация компьютера

Цитата beginer:

Тоже по теме, но это скорее вопрос к ОС. »

Не разводите оффтоп (ответы будут удалены). Одна проблема/вопрос - одна тема. Вопросы по ОС задавайте в осевых форумах.

beginer · Отправлено: **14:18, 15-12-2020** | #3

Vadikan, хорошо. Вас понял. Тогда может ли кто-нибудь помочь мне с первой частью?
Как в вышеприведённой функции отфильтровать все остальные окна, кроме целевого (если мне известен заголовок целевого окна) ?

Добавлено:
Дополнительное условие, типа:

Код:

If Window.Visible = True Then

не подходит, так как все открытые окна проводника являются видимыми. И те, которые нужно отсеять и целевое окно.

Iska · Отправлено: **16:27, 15-12-2020** | #4

beginer, в чём исполняется код?

beginer · Отправлено: **19:16, 15-12-2020** | #5

Iska, в том-то и дело, что не через w(с)script.
Код выполняется в PureBasic'е. Там через такие дебри производится пуск, что самое простое для меня это поправить сам скрипт (по-возможности).
Единственный вариант, который могу выполнить - это перед выполнением закрыть окно проводника с идентичным путём или временно скрыть его, чтобы сработало условие выше. Но это некрасиво. И хотелось более элегантного решения. Спрашивал здесь как читать заголовок каждого окна во время перебора(в уже существующем цикле) и соответственно сравнивать его с определённой строкой каждую итерацию. В этом и заключалась суть вопроса. Если из vbs можно вызывать API ОС, то это бы решило/существенно упростило задачу. "Я так думаю" (С). Не скрою, что пример скрипта взял уже готовый. Он потребовался дабы выяснить отмеченные объекты. Иных решений данного вопроса увы не встречал. Неудобство данного варианта заключается в том, что скрипт "хватает" всё что "видит". Повторюсь, что отсеять проводники с уникальными путями не составляет особого труда. НО с идентичным путём(ями) - это проблема!

Добавлено:
Пожалуйста не беспокойтесь о случаях, когда в настройках ОС (св-ва папки) не выставлено показывать полный путь. Сейчас говорю про вариации с одинаковыми папками на различных разделах и расположенных на одинаковых уровнях(к примеру, "C:\Test"; "D:\Test"; "E:\Test" и т.д.). Ну и соответственно про одинаковые для такого случая заголовки окон. Это проблема решаема.
В PB прочитать title совсем не сложно (неужели vbs'у это не под силу?). Категорически нужен этот скрипт (без него никак не обойтись).

Iska · Отправлено: **20:12, 15-12-2020** | #6

О, боже ж ты мой

…

Iska · Отправлено: **21:22, 15-12-2020** | #7

Цитата beginer:

Код выполняется в PureBasic'е. »

У меня в нём ошибка прямо на строке:

Код:

Function GetSelectedFiles() 'Returns paths as array of strings

Попробуйте это:

Цитата:

Остановлюсь на п.2. В документации говорится, что вызов ShellWindows.Item() без параметров возвращает то же, что и ShellWindows.Item(0). Однако, как я убедился, это не соответствует действительности: стабильно возвращается последнее активное окно в коллекции ShellWindows. Хотя, может быть, это верно не на всех системах…

Отсюда: WSH(+ Реестр): «Найти объект...» в контекстном меню ярлыков (Страница 1) — Windows Script Host, HTA (VBScript, JScript) — Общение — Серый форум.

Iska · Отправлено: **21:54, 15-12-2020** | #8

У меня, увы, не сработало — под Windows 7 SP1 x64:

Код:

CreateObject("Shell.Application").Windows().Item(3).document.Folder.self.Path

стабильно возвращает не последнее активное окно, а тупо Desktop текущего пользователя.

beginer · Отправлено: **21:58, 15-12-2020** | #9

Iska, спасибо за желание помочь. Но этот код не запустить "напрямую"(с ходу/в лоб). Нужна ещё довольно весомая и мудрёная обвёртка. Так что тот кусочек кода, что выше - это только вершина айсберга. Однако сделана обвёртка достойно/добротно. По всем канонам(всё по-взрослому). Очень много работы с памятью(указателями). Немец постарался и поделился своим титаническим трудом с остальными/общественностью.
К тому же в модуле используются вызовы API-функций. Смотрю, что Вы "качаете" демо-версию, а в ней для вызова API нужно действовать немного по-другому. То есть сначала нужно открыть библиотеку и т.д. В полной же версии эти функции являются как бы "нативные" и не требуют дополнительных телодвижений для их вызова. Работать намного проще и удобней.
Не знаю запрещены ли здесь ссылки на сторонние сайты, но если что поправьте (по крайней мере это точно не варез, а вполне себе open source).
Вот сам модуль-обвёртка, если интересно посмотреть. Но я бы туда без поллитры не лез

Шутка.

Вот чувствую, что не в то русло опять зашёл разговор. Заругают админы(наверное нужно завязывать). Поэтому и просил подправить непосредственно vbscript.

P.S. Когда-то начинал знакомство со скриптами, но это было недолго(довольно быстро перешёл на PB). Поэтому и задаю здесь возможно детский вопрос. + знаю, что на этом форуме обитает/прописано много профессионалов, причём русскоговорящих.

Iska · Отправлено: **22:43, 15-12-2020** | #10

Цитата beginer:

К тому же в модуле используются вызовы API-функций. »

beginer, в приведённом Вами коде нет вызовов WinAPI. Чистый COM/Automation.

Цитата beginer:

Поэтому и просил подправить непосредственно vbscript. »

Так нечего поправлять. Я не вижу способов найти средствами Automation «активное окно Проводника». Как бы мы их не тасовали — они возвращаются в порядке создания окон, а не в порядке Z-order. А вот Вы можете, взяв WinAPI наперевес, попробовать пройтись по списку полученных окон.