Пишем / Разбираем на примере «Ставим пароль на папку»

Пишем / Разбираем на примере «Ставим пароль на папку»

Тема в разделе "Темы со старого форума", создана пользователем Бэкап, 31.07.2015.

Загрузка...
Ответов: 0 Просмотров: 453 Ответить в теме
Воспользуйтесь функцией автоматического продвижения темы для увеличения числа просмотров темы, продаж платного контента и узнаваемости Вашего бренда. Услуга продвижения действует на протяжении 3-х дней и стоит всего 50 STF Wallet.

Продвинуть тему
  1. Бэкап
    Привет форумчане, с вами снова D.D.MaJoR. Сейчас мы быстренько разберём маленький кодик.
    Начнём! Писать мы будем код "Паролим папку".
    Алгоритм работы:
    -У нас есть папка которую мы прячем где-то очень далеко, в корнях компьютера
    (С:\Windows\Config\лалала\лалала\наша папка).
    -Теперь делаем с помощью VBS ярлык для открытия папки с помощью верного пароля.

    Первым делом вызываем InputBox для ввода будущего пароля.
    Код:
    a=inputbox ("Password")

    Теперь создадим ещё одну переменную, в которую введём путь к нашей папке.
    Код:
    p="Сюда путь к папке или файлу"

    Затем требуется сделать условие для проверки пароля.
    Код:
    If a="Сюда пароль" then 
    CreateObject("WScript.Shell").run p

    Если пароль (переменная "а") совпадает с вашим паролем, подключаем библиотеку "WScript.Shell" и открываем этот путь (в нашем случае путь к папке).
    Но, нужно предпринять какие либо меры если пароль введён не правильно. Например удалить Windows:) Шучу, для начала просто выведем сообщение. P.S. Продолжение того же условия
    Код:
    else
    MsgBox "Пароль неверный"
    End if

    Вот вам ещё весь код полностью:
    Код:
    a=inputbox ("Password")
    p="Сюда путь к папке или файлу"
    If a="Сюда пароль" then
    CreateObject("WScript.Shell").run p
    else
    MsgBox "Пароль неверный"
    End if
    


    Вот прицыпи и всё. Но если вы вообще хотите спрятать супер секретный данные ( документы) вы можете воспользоваться нашим ШИФРАТОРОМ.
    Спасибо за внимание. Не забудьте про лайк. А если вы до сих пор не зарегистрированы, обязательно сделайте это.
     
    31.07.2015 Сообщений: Симпатий:
В этой теме всего одна страница
Вам, как гостю, ограничены возможности взаимодействия с темами. Пройдите бесплатную регистрацию и откройте для себя море возможностей.