Зарабатываем деньги на FARM-FRENZY.biz автоматически

  Бродя по Интернету наткнулся на онлайн-игры с возможностью вывода реальных денег. Первый из таких игр стала Веселая ферма.
   Суть игры проста: при регистрации дают тебе одну курицу, которая раз в 5 минут несет яйцо, собираешь яйца и продаешь на рынке (12 яиц за 1 серебренный), потом 500 серебренных меняешь на один рубль. Вот он реальный заработок в Интернете. Однако есть одно но. Если яйца не собирать в течении часа, то они портятся. То есть для реального заработка нужно сидеть на сайте постоянно. Кто бы это делал за нас?...
     И вот тут приходит на помощь программирование.

   В теории нам нужно написать утилиту, которая будет заходить на сайт, авторизовываться и каждый сколько-нибудь времени собирать продукты. Нам же потом просто придется зайти, например раз в месяц, и обменять собранные продукты на деньги.
   Ввиду того, что программирование я все больше и больше забываю, то за помощью для решения поставленной задачи обратился за помощью к Google. И вот что получилось:
    Открываем Delphi и на форму кидаем компоненты TWebBrowser, TTimer, пару TEditов и TButtonов. А дальше дело техники.

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  ovElements: OleVariant;
  tmp:boolean;
begin
tmp:=false;
  WebBrowser1.Navigate('http://farm-frenzy.biz/login.html'); //заходим на страницу авторизации
  ovElements := WebBrowser1.OleObject.Document.forms.Item.elements; //собираем элементы формы
  for I := 0 to ovElements.Length - 1 do  // ищем нужные елементы и заполняем значениями из Editов
  begin
  if ovElements.item(i).Name = 'email' then
  begin
    ovElements.item(i).Value := Edit1.Text;
  end;
  if ovElements.item(i).Name = 'passw' then
  begin
    ovElements.item(i).Value := Edit2.Text;
  end;
    if ovElements.item(i).Name = 'server' then
  begin
    ovElements.item(i).Value := 'two';
  end;
  if ovElements.item(i).Value = 'Вход' then
  begin
   ovElements.item(i).Click;
  end;
  end;
  WebBrowser1.Navigate('http://farm-frenzy.biz/account/animals.html'); //Переходим на страницу с кнопкой собрать продукты
Timer1.Enabled:=true; //запускаем таймер
end;

procedure TForm1.Timer1Timer(Sender: TObject);
    var ovElements: OleVariant;
    i: Integer;
begin
    ovElements := WebBrowser1.OleObject.Document.forms.item(1).elements; //собираем список элементов первой формы (их там две)
    for i := 0 to (ovElements.Length - 1) do  //ищем нужные елементы и жмем на кнопку
    begin
     if ovElements.item(i).Value = 'Собрать все продукты' then
      BEGIN
       ovElements.item(i).Click;
      END;
    end;
end; 

  Ну вот и все деньги зарабатываются автоматически. Нужно только запустить таймер (выставив время обновления) и свернуть окно.
    Да. конечно, можно сделать сворачивание и в трей, но я заморачаиваться не стал. Во-первых, и так не сильно мешает, а во-вторых, ну совсем игра не выгодная. Если собирать 1 яйцо в 5 минут, то есть в час 12 яиц, что соответствует одному серебренному, а чтобы вывести 1 рубль необходимо 500 серебряных, то наша утилита должна работать ради рубля 500 часов или 21 день. Таким образом заработок за год составить чуть более 17 рублей.
   Конечно можно купить еще куриц, чтобы яиц было больше, но это уже высчитывайте сами. Но по-моему есть проекты и лучше например Фермандия.

P.S.> Для тех кому влом писать данную утилиту выкладываю свой вариант автоматического загрузчика продуктов для игры на farm-frenzy.biz. Он немного отличается от описанного выше. Инструкция по пользованию прилагается.