|
6 / 6 / 0
Регистрация: 08.04.2022
Сообщений: 52
|
|
Нужен исходник по созданию определенного количества папок04.05.2023, 11:27. Показов 5864. Ответов 115
Доброго времени суток, пользуюсь скриптами... VBS PoSH, CMD там сделать множество каталогов не такая уж проблема, подумал пару месяцев назад подучить VB6, хотел посмотреть смогу ли использовать его в администрировании... но увы информации мало, да и программы нашел по мимо ТС-а, которые могут как переименовывать, так и создавать множество папок. А вот по VB так и не нашел ничего, хотелось бы найти исходник или пример... Если нет ни у кого на этом форуме, то и искать уже, наверное, бесполезно.
0
|
|
| 04.05.2023, 11:27 | |
|
Ответы с готовыми решениями:
115
Нужен исходник для расчёта комплектации материалов или т.п. Исходник с расчётами, таблицами Батник по созданию папок |
|
Испарился
1742 / 638 / 45
Регистрация: 10.09.2021
Сообщений: 2,769
|
|||
| 07.05.2023, 21:10 | |||
|
Добавлено через 36 секунд
0
|
|||
|
Модератор
|
|||
| 07.05.2023, 21:38 | |||
|
0
|
|||
|
Испарился
1742 / 638 / 45
Регистрация: 10.09.2021
Сообщений: 2,769
|
|||||||
| 07.05.2023, 22:13 | |||||||
|
Скорее всего, как я понял, программа RegJump меняет значение реестра с последним открытым разделом реестра для редактора реестра и запускает его. Механизм открытия редактора реестра в нужном месте очень простой - нужно просто по адресу "HKCU\Software\Microsoft\Windows\Current Version\Applets\Regedit\LastKey" записать свой путь открытия редактора реестра и запустить его! И всё! Добавлено через 14 минут testuser2, всё очень просто оказалось с редактором реестра, специально для тебя написал скриптик:
1
|
|||||||
|
Испарился
1742 / 638 / 45
Регистрация: 10.09.2021
Сообщений: 2,769
|
||||||
| 08.05.2023, 13:26 | ||||||
|
testuser2, нашёл я исходник программы RegJump вот тут люди, такие же любопытные как и ты уже дизассемблировали и изучили код: https://www.manhunter.ru/assem... eniya.html
Как я понял там выбирается нужная ветка реестра исключительно через SendKeys... Добавлено через 15 минут
1
|
||||||
| 08.05.2023, 13:40 | ||
|
0
|
||
|
Испарился
1742 / 638 / 45
Регистрация: 10.09.2021
Сообщений: 2,769
|
|||
| 08.05.2023, 16:11 | |||
|
Добавлено через 1 минуту Но утилита Марка Рисияновича именно через эмулирование нажатия клавиш в оке работает через SendMessage WM_CHAR ищется название ветки реестра и активизируется стрелочками с клавиатуры... Добавлено через 1 минуту Добавлено через 12 секунд Видел ещё исходник на дельфи Добавлено через 2 минуты Но другие исходники используют ожидание интервала в секундах типа Sleep(750) я в шоке от других исходников, я тебе дал самый лучший на ассемблере там ожидание идёт правильно через WaitForInputIdle Добавлено через 1 минуту Просто вбей в гугл "исходник программы RegJump" и там найдёшь много чего такого похожего Добавлено через 3 минуты Я нашёл только на ассемблере, дельфи и на C++ На VB к сожалению не нашёл Добавлено через 55 минут Но если честно, меня очень удивило реализация этой программы через SendKeys а не через SendMessage окну дерева с определёнными флагами открытия дерева... Добавлено через 52 минуты Я если честно, вообще не понимаю, зачем было использовать эмулирование нажатие клавиш вместо того чтобы посылать сообщения дереву, это так странно, неужели они поленились просто написать нормальный код... Добавлено через 4 минуты Какие-то лентяи писали программу, честно, а ещё и в Microsoft'е теперь это. Марк Руссинович очень большой лентяй что написал всё через эмулирование клавиш.... Добавлено через 2 минуты Если это конечно исходник Марка Русияновича на ассемблере код который, я же сам не дизассемблировал не проверял Добавлено через 5 минут Есть же описание элемента дерева в открытом доступе как и какие сообщения посылать для открытия или раскрытия кустов деревьев ну Добавлено через 17 минут У меня уже есть большой прогресс в этом вопросе я уже научился открывать и закрывать кусты реестра без всяких там SendKeys
0
|
|||
| 08.05.2023, 16:25 | ||
|
Добавлено через 3 минуты Q-Dir мне нраится, это как проводник, который можно запустить с пвышенными правами из под LUA, linkShellExtension полезная штука..
0
|
||
|
Испарился
1742 / 638 / 45
Регистрация: 10.09.2021
Сообщений: 2,769
|
||
| 08.05.2023, 18:24 | ||
|
Вместе с этим я просто недоумеваю, почему программа RegJump написана через посылание клавиш, это же отстой так делать вообще Добавлено через 50 секунд Есть же API-функции для прямого управления деревьями
0
|
||
| 08.05.2023, 19:04 | ||
|
0
|
||
|
Испарился
1742 / 638 / 45
Регистрация: 10.09.2021
Сообщений: 2,769
|
||
| 09.05.2023, 02:26 | ||
|
Добавлено через 40 секунд Кстати я понял почему они написали через посылание клавиш, оказывается TVM_GETITEM получение информации о ветке дерева не работает для посыла в другой процесс. Добавлено через 2 минуты Вот тут с майкрософта качал: https://learn.microsoft.com/ru... ds/regjump Там точно написано что автор Русиянович Добавлено через 3 минуты Хоть информация о структуре дерева и недоступна через TVM_GETITEM другого процесса, но всё равно есть обходные пути через VirtualAllocEx и WriteProcessMemory Добавлено через 1 час 8 минут Короче самый сложный вопрос тут это как прочитать дерево чужого процесса, это отдельная тема уже Добавлено через 5 часов 48 минут testuser2, у меня для тебя хорошие новости: я полностью понял, как, каким образом, и при помощи какого механизма, оперерировать деревом редактора реестра, задача оказалась весьма сложной, без посылания клавиш в окно, через команды SendMessage ну и задачку ты мне подкинул супер-сложную
0
|
||
|
Испарился
1742 / 638 / 45
Регистрация: 10.09.2021
Сообщений: 2,769
|
||
| 09.05.2023, 20:14 | ||
|
0
|
||
|
|
|
| 10.05.2023, 01:00 | |
|
Друзья, вы решили эту тему превратить в рассадник оффтопа? при чём нарушают как обычные пользователи так и модераторы.
Я насчитал уже как минимум 3 разных темы: - создание папок (название этой темы) - диалог выбора папки - RegJump
0
|
|
|
Испарился
1742 / 638 / 45
Регистрация: 10.09.2021
Сообщений: 2,769
|
||
| 10.05.2023, 01:13 | ||
|
0
|
||
|
6 / 6 / 0
Регистрация: 08.04.2022
Сообщений: 52
|
||||
| 11.05.2023, 16:06 [ТС] | ||||
|
И правда многовато просмотров, но все же самым удобным и вполне приемлемым, остается вариант с Excel как сам по себе, так и со второй программой в связке уже без макроса, и да тот код VBA не вставить, в exe, но может есть обратный вариант, вставить лист excel? как БД access?... или CMD и таким образом реализовать с 1 по n*** папок, через графический интерфейс, открыть проводник, путь, нажать кнопку в диалоговом окне, или окнах записать либо формулу в окне, либо цифры в окнах, увы примеров лучше, чем скидывал в начале найти не смог, поисковик то выдавал какие-то ссылки, но все уже давно мертвые. По идее не должно быть сложно, только вот я со скриптами еле справляюсь, не говоря уже о программировании.
Добавлено через 8 минут ![]() Нет не ошибся - проверил, один раз выдает ошибку, а второй раз создает их все в корне диска С:\ И все же вариант отличный. Добавлено через 12 минут Добавлено через 2 минуты
0
|
||||
|
6 / 6 / 0
Регистрация: 08.04.2022
Сообщений: 52
|
||
| 11.05.2023, 16:09 [ТС] | ||
|
0
|
||
|
6 / 6 / 0
Регистрация: 08.04.2022
Сообщений: 52
|
||
| 11.05.2023, 16:22 [ТС] | ||
, добавить бы к этой кнопке или еще одну кнопку вариант от Тим70 с количеством папок и можно сказать, что это уже отдельная программа, завершенная. Не менее интересно бы получился и вариант от testuser2. Но там все-таки VBA.
0
|
||
| 11.05.2023, 16:51 | |||
|
Добавлено через 8 минут
0
|
|||
|
6 / 6 / 0
Регистрация: 08.04.2022
Сообщений: 52
|
|||
| 11.05.2023, 17:09 [ТС] | |||
|
0
|
|||
|
Любитель
1047 / 756 / 161
Регистрация: 27.01.2019
Сообщений: 1,522
|
|
| 11.05.2023, 18:34 | |
|
0
|
|
| 11.05.2023, 18:34 | |
|
Помогаю со студенческими работами здесь
100
Реализовать подсчет количества слов из определенного количества букв в строке Нужен исходник Нужен исходник приложения Нужен исходник компилятора Нужен исходник сапера Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
| Опции темы | |
|
|
Новые блоги и статьи
|
|||
|
Благородство как наказание
Maks 24.04.2026
У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .
|
Валидация и контроль данных табличной части документа перед записью
Maks 22.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2.
Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .
|
Отчёт о затраченных материалах за определенный период с макетом печатной формы
Maks 21.04.2026
Отчёт из решения ниже размещён в конфигурации КА2.
Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом.
В. . .
|
Отчёт о спецтехнике находящейся в ремонте
Maks 20.04.2026
Отчёт из решения ниже размещен в конфигурации КА2.
Задача: отобразить спецтехнику, которая на данный момент находится в ремонте.
Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .
|
|
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)"
Hrethgir 19.04.2026
Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
|
Запрет удаления строк ТЧ документа при определённом условии
Maks 19.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
|
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут
Суть:
- Группа наркоманов из 10 человек.
- Только один инфицирован ВИЧ.
- Колются одной иглой.
- Колются раз в день.
- Колются последовательно через. . .
|
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
|