Новости

Траффик

h:=getwindow(h,GW_HWNDNEXT);
sendmessage(h,$D,sizeof(temps),integer(@temps[1]));
end;
for i:=1 to sizeof(temps) do //Далее переводим значение со StaticText’а к integer’у
if not (temps[i] in [‘0′..’9′]) then break;//Дело в том, что statictext содержит пробелы
h:=i;
for i:=h to pos(#0,temps)-1 do
temps[i]:=temps[i+1];
for i:=h+3 to pos(#0,temps)-1 do
temps[i]:=temps[i+1];
val(temps,h,i);
if (i<>0)and(flag) then goto l;
if i<>0 then goto l1;
tmp:=strtoint(temps);
flag:=true;
l1:end else if flag then begin
l:assignfile(f,ReportName);
if fileexists(ReportName) then
append(f) else begin rewrite(f); writeln(f,’Made by Zero Ice (mail to zeroice@xakep.ru)’); end;
writeln(f,datetimetostr(now),#9,tmp); //формируем отчёт
closefile(f);
flag:=false;
end;
sleep(Sleep_Time*1000); //спим :-8=]
end;
end.

Компилим и можно пользоваться. Её можно запихнуть в автозагрузку, хотя лучше запускать её перед и выключать
после коннекта. Файл отчёта содержит дату и время отключения от инета + количество полученных байт.
Возникнут вопросы — пишите. :)

Страницы: 1 2