Ломы ломать? Пора бабки загребать!

Xakep, номер #017, стр. 017-060-3

Дергаем с FANTAZi

С описанием у меня все и, кажется, все инструменты готовы. Теперь все зависит от твоей фантазии. Ну а функция, постоянно дергаемая таймером, постоянно дергает мышь, которая, в свою очередь, постоянно дергает с сайта деньги, :-) может выглядеть примерно вот так:

procedure TForm1.Timer1Timer (Sender: Tobject);

var

X: Integer;

Y: Integer;

begin

SetCursorPos(0, 0); // сбиваем с толку несчастный буржуйский "бар"

X:=Random(Screen.Width - 100) + 50; // двигаем мышку куда-нибудь в середину экрана

Y:=Random(Screen.Height - 100) + 50; // чтобы не кликать по "Пуску" часам и так далее

mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, X, Y, 0, 0);

// кликаем на здоровье.

end;

Ну, вот, вроде и все. Теперь можно спокойно идти пить кофе/пиво/пепси, резаться в кваку, смотреть ТВ или заниматься любовью с любимой девушкой - работает принцип: "Мы сидим, а деньги идут". Главное, не переусердствовать и не жадничать, а то запросто могут заподозрить неладное и отключить аккаунт. Будет очень обидно (по себе знаю ;-), если "не заплотют", как говаривала баба Маша из нашей школьной столовки.

Тхе Енд