1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

Полезные библиотеки, реестр и нажатие клавиш.

Тема в разделе "Скрипты", создана пользователем Wellini, 7 дек 2016.

  1. TopicStarter Overlay
    Wellini

    Wellini

    Регистрация:
    29 ноя 2016
    Сообщения:
    9
    Симпатии:
    12
    2 часть поста про интересные функции VBS.
    Собрал самые простые и интересные команды, которые могут помочь с тихим обслуживанием малваря. Ну или просто могут напугать юзера:
    Set a = CreateObject("WScript.Shell") 'Окружение виндовс
    a.CurrentDirectory 'Путь к каталогу
    Popup() 'Вывод сообщения
    a.SendKeys "" 'Нажатие кнопок и ввод букв(имитация нажатия на клавиатуре)
    Backspace - {BACKSPACE} или {BS} или {BKSP}
    Break - {BREAK}
    Caps Lock - {CAPSLOCK}
    Delete - {DELETE} или {DEL}
    End - {END}
    Enter - {ENTER} или ~
    Esc - {ESC}
    Home - {HOME}
    Insert - {INSERT} или {INS}
    Num Lock - {NUMLOCK}
    Page Down - {PGDN}
    Page Up - {PGUP}
    Print Screen - {PRTSC}
    Scroll Lock - {SCROLLLOCK}
    Tab - {TAB}
    Стрелка вверх - {UP}
    Стрелка влево - {LEFT}
    Стрелка вниз - {DOWN}
    Стрелка вправо - {RIGHT}
    F1 - {F1}
    F2 - {F2}
    F3 - {F3}
    F4 - {F4} и т.д.
    Shift - +
    Ctrl - ^
    Alt - %
    a.Run() 'Запуск программ и файлов, открытие папок и сайтов
    a.RegWrite() 'Записывает в реестр
    a.RegRead() 'Читает из реестра
    a.RegDelete() 'Удаляет из реестра

    Set b = a.SpecialFolders 'Системные папки
    b.Item() AllUsersDesktop
    AllUsersStartMenu
    AllUsersPrograms
    AllUsersStartup
    Desktop
    Favorites
    Fonts
    MyDocuments
    PrintHood
    Programs
    Recent
    SendTo
    StartMenu
    Startup
    Template

    Set b = a.Exec() 'Путь к программе
    b.Status 'Статус процесса
    0 - приложение запущено
    1 - приложение завершено
    b.Terminate 'Завершение процесса

    wscript.sleep 300 'Задержка исполнения

    Для тех, кто любит пораскинуть мозгами и зарыться в дебри Винды, вот Вам код, который выключает пк:
    ----------------------------------------------------------CODE--------------------------------------------------
    Set a = CreateObject("WScript.Shell")
    Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
    for each OpSys in OpSysSet
    OpSys.ShutDown()
    next
    ---------------------------------------------------------/CODE--------------------------------------------------
    А землянам придётся молиться, чтобы Майки сделали модульное ядро
     
    • Like Like x 3
    Метки:

Поделиться этой страницей

Загрузка...