|
Модераторы: Akina |
|
unga |
|
|||
Новичок Профиль Группа: Участник Сообщений: 5 Регистрация: 4.6.2019 Репутация: нет Всего: нет |
Всем привет!
Подскажите начинаещиму, нужно зациклить команду до ее выполнения. Команду нужно зациклить на 5 раз, но если команда выполнится с первого раза тогда идем по коду дальше. Это сообщение отредактировал(а) unga - 4.6.2019, 22:24 |
|||
|
||||
Akina |
|
|||
Советчик Профиль Группа: Модератор Сообщений: 20570 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 34 Всего: 453 |
ЯННП. Попробуйте объяснить другими словами, и более подробно.
-------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
unga |
|
|||
Новичок Профиль Группа: Участник Сообщений: 5 Регистрация: 4.6.2019 Репутация: нет Всего: нет |
Код нужен на VB6
Sub Main() программа запрашивает права администратора CreateObject("Shell.Application").ShellExecute App.Path & "\" & App.EXEName & ".ехе", "1", "", "runas", 1 если отказ запрашивает еще раз и так до 3-5 раза после чего идет установка программы но если с первого раза дать права администратора программа сразу начинает установку не запрашивая их по новой |
|||
|
||||
Akina |
|
|||
Советчик Профиль Группа: Модератор Сообщений: 20570 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 34 Всего: 453 |
И что, после 3-5 запросов соглашается работать и так, без прав администратора? И что такое в данном случае "отказ"? Непонятно.
Имеется в виду запуск от имени администратора, или включение текущей учётной записи в группу Администраторы (или иной способ присвоения администраторских привилегий)? Код на VB6 должен быть таким: программа ПРОВЕРЯЕТ наличие прав администратора. Если они имеются - программа выполняется. Если нет - она запускает свою копию, но с администраторскими привилегиями, а сама завершает работу. Копия при этом получает дополнительный входной параметр, который означает, что это не начальный запуск, и если проверка покажет, что опять нет необходимых прав, она должна сообщить о неустранимой проблеме получения прав администратора и завершить работу. Проверку можно выполнить, например, используя функцию IsUserAnAdmin из Shell32. Альтернативно можно создать для программы манифест с установленным requestedExecutionLevel=requireAdministrator. Тогда при запуске запрос повышения уровня привилегий будет выполнен операционной системой. -------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
unga |
|
||||||
Новичок Профиль Группа: Участник Сообщений: 5 Регистрация: 4.6.2019 Репутация: нет Всего: нет |
Да, если не удалось после 3-х запросов администратора программа начинает установку без админа прав
отказ - если не дали на разрешения админ прав
Просто запуск от имени администратора |
||||||
|
|||||||
unga |
|
|||
Новичок Профиль Группа: Участник Сообщений: 5 Регистрация: 4.6.2019 Репутация: нет Всего: нет |
Подскажите как повторить 3-5 раз запрос администратора
|
|||
|
||||
Akina |
|
|||
Советчик Профиль Группа: Модератор Сообщений: 20570 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 34 Всего: 453 |
-------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
unga |
|
|||
Новичок Профиль Группа: Участник Сообщений: 5 Регистрация: 4.6.2019 Репутация: нет Всего: нет |
Спасибо Akina но у Вас код на VB.NET
подскажите в коде ошибка запрос повторяется 5 раз даже если дать админ права нужно сделать если админ права есть программа с первого раза покажет "Админ" если нет повторит попытку 5 раз
Это сообщение отредактировал(а) Akina - 7.6.2019, 07:26 |
|||
|
||||
Akina |
|
|||
Советчик Профиль Группа: Модератор Сообщений: 20570 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 34 Всего: 453 |
Во блин... а мужики-то не знают... Добавлено через 7 минут и 47 секунд Да с логикой у Вас... вот кто Вам сказал, что если дочернему процессу дать админа, то и родитель станет админом? Я же вроде вменяемо написал - если не админ, приложение должно перезапускать СЕБЯ от имени АДМИНА. И с параметрами у ShellExecute напахали... посмотрите описание функции, что ли - нет такой операции как "runas". -------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
Правила форума "VB6" | |
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | VB6 | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |