Visual Basic Script


Windows Script Host (WSH) - управление программами - часть 4


var WshShell = WScript.CreateObject("WScript.Shell"); KL = true;

while (KL) { if (WshShell.AppActivate("Microsoft Word")) { WriteWord(); KL = false; } WScript.Sleep(3000); }

function WriteWord() { WshShell.SendKeys("%{F4}"); WScript.Sleep(300); WshShell.SendKeys("{TAB}"); WScript.Sleep(300); WshShell.SendKeys("{ENTER}"); }

Комментировать не буду, итак все достаточно подробно объяснено по ходу статьи. Конечно, если вы не лишены гуманизма, то можно предварительно сохранить документ в какой-нибудь файл:

var WshShell = WScript.CreateObject("WScript.Shell"); KL = true;

while (KL) { if (WshShell.AppActivate("Microsoft Word")) { WriteWord(); KL = false; } WScript.Sleep(3000); }

function WriteWord() { WshShell.SendKeys("%"); WScript.Sleep(300); WshShell.SendKeys("{ENTER}"); WScript.Sleep(300); WshShell.SendKeys("{DOWN}"); WScript.Sleep(300); WshShell.SendKeys("{DOWN}"); WScript.Sleep(300); WshShell.SendKeys("{DOWN}"); WScript.Sleep(300); WshShell.SendKeys("{DOWN}"); WScript.Sleep(300); WshShell.SendKeys("{ENTER}"); WScript.Sleep(300); WshShell.SendKeys("test"); WScript.Sleep(300); WshShell.SendKeys("{ENTER}"); }

Довольно забавно наблюдать, как пункт меню вдруг сам открывается, курсор перемещается по пунктам, а затем сохраняется документ. Конечно, проще было бы использовать "горячие" клавиши, но в русской версии это не пройдет (из-за некорректной передачи русских букв, о чем я уже писал выше), так что приходится выкручиваться таким способом, ну, а для английской версии легко переделать скрипт под использование "горячих" клавиш, что несколько сократит его размер.

Если вы помните, несколько лет назад был ажиотаж вокруг Spedia.net - спонсора платящего деньги за время, проведенное в интернете. Многие люди пытались на этом заработать, а учитывая тот факт, что некоторые провайдеры давали бесплатный доступ в ночное время, программеры начали писать утилитки, имитирующие работу пользователя за компьютером (запуск браузера, почтового клиента, серфинг по сайтам, получение почты и т.п.). Спедия по мере сил боролась с ними, блокируя оплату юзерам, использующим такие программы... Многим хотелось написать свою утилитку имитации работы, да еще чтобы ее не отловили, но для этого надо было знать программирование, причем там использовались не самые тривиальные знания. С помощью материала данной статьи, я думаю, теперь любой сможет написать нечто похожее :). Правда, сейчас это уже никому не нужно, но найти для полученных знаний более достойное применение вполне возможно.




Начало  Назад  Вперед



Книжный магазин