Serberg, на будущее, лучше сразу пояснить , как будет работать запущенный батник.
В кратце - создаётся объектная переменная типа Shell ("оболочка", командная строка) : Set S = CreateObject("Wscript.Shell") >> %temp%\temp.vbs , вывод с которой перенаправляется в файл "temp.vbs" , находящийся в директории временных файлов по умолчанию, где конкретно - смотрим в панели переменных окружения винды.
Далее создаётся файл вывода, в который был перенаправлен вывод ...
В дальнейшем мы видим бесконечный цикл, в котором в обработчик вызовы метода sendkeys объекта класса "Оболочка". А если по-русски, то нажатия клавиш. В результате должны увидеть загорающиеся через 0,2 секунды лампочки Капса, НумЛок и СкроллЛок...
Даже без создания батника можно разобраться. Теперь создаю, запускаю 5 раз (специально!) , всё работает, но... wscript процесс запущен ровно в 5 экземплярах.
Можно было бы хотя бы для приличия сделать проверку на наличие процесса в памяти... А то представим ситуацию - юзер не знает, что ожидать от скрипта, раз-два-три ... 20 раз попробовал запустить, увидел светоиды мигающие, понравилось...
И отключать в таком случае эту хрень через диспетчер он будет ооочень нудновато.
Не говорю уже от машинках с 256 Mb RAM под виндой XP, где 20 процессов по 5,3 метра смогут "помочь" винде впасть в своппинг. И самое обидное, что у юзера скажется впечатление, что программа - шутка являет собой какой-то вирус, т.к. по его мнению комп станет тормозить (ведь пользователь проги может быть и ЧАЙНИКОМ, не стоит пренебрегать защитой от неопытности!).
К тому же, возможны утечки памяти , т.к. нет вызова деструктора объекта S , что , впрочем, объяснимо, ведь даже стандартного выхода по хоткеям в проге нет, есть только терминирование процесса. Но тем не менее, объект повиснет в памяти.
ИТАК ВЕРДИКТ: за идею, оригинальность и поднятие настроя и жизненного тонуса - 5 , но вот сам код иначе , как грязным программированием назвать язык не поворачивается.
|