Новости

Time-counter

RasGetConnectStatus(rc.hrasconn,Stat); // берём статус подключения
if not flag then // если мы его ещё не за’log’али
s:=’Connection started at ‘+datetimetostr(now)+#9;// запишем время
flag:=true; // теперь будем знать, что мы в сети
end
else
if flag then begin // если подключения нет, но мы были в сети, то
assignfile(f,ReportName); // открываем файл отчёта
if fileexists(ReportName) then
append(f)
else
begin
rewrite(f);
writeln(f,’Made by Zero Ice (mail to zeroice@bk.ru)’); // малинький «копирайт» :)
end;
writeln(f,’Device name ‘,Stat.szDeviceName,#9,s,’ended at’,#9,datetimetostr(now)); // пишем log
closefile(f);
s:=»;
flag:=false;
end;
sleep(Sleep_Time*1000); // спим, время сна можно изменить в конфигурационном файле
end;
end.

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

Страницы: 1 2 3