Программа помогающая следить за статистикой лиру.

На самом деле это очень примитивна програмка.
Однако для тех кто хочет быть в курсе посещаемости своих сайтов, она будет полезной.

Все очень просто:

Слева вводим список сайтов (они должны быть уже зарегистрированы в лирушечке), нажимаем кнопку, справа выводится текст штмл страницы. Помимо этого программа сама создает страницу stats.html на которой показывает счетчики.

штмл файл запускаем в браузере и видим конструкцию типа (я вбил десять раз свой домен):

Elsper.ru	Elsper.ru	Elsper.ru	Elsper.ru	Elsper.ru
Elsper.ru	Elsper.ru	Elsper.ru	Elsper.ru	Elsper.ru

Рядами по 5 сайтов в ряд. Следить можно как за своими так и за чужими. Условие одно, чтобы на сайте была статистику от ли.ру.
___

Код тоже очень простой:

procedure TForm1.Button1Click(Sender: TObject);
var qcv:integer;
begin
memo2.Lines.Add(‘<table><tr><td>’);
for qcv:= 0 to memo1.Lines.Count-1 do
begin
if qcv mod 5 = 0 then
memo2.Lines.Add(‘</td></tr><tr><td>’);
memo2.Lines.Add(»+memo1.Lines[qcv]);
memo2.Lines.Add(‘<br><img src=»http://counter.yadro.ru/hit?t27.1;uhttp://’+memo1.Lines[qcv]+’;0.666%29″></td><td>’);
end;
memo2.Lines.Add(‘</td></tr></table>’);
memo2.Lines.SaveToFile(‘stats.html’);
end;

При желании можно цифру 5 заменить на большую или меньшую. Как видно это количество элементов в строке.

____

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

Скачать

Автор: Elsper.ru