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

[mars0]

Собрал самые простые и интересные команды, которые могут помочь с тихим обслуживанием малваря. Ну или просто могут напугать юзера:
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--------------------------------------------------
А землянам придётся молиться, чтобы Майки сделали модульное ядро