Привет всем! Помогите новичку. У меня интернет через мегафон-модем, тариф 50gb на месяц но с 00:00 до 08:00 трафик не учитывается. И я хочу написать простенькую прогу которая будет вести учет трафика:
входящий
исходящий
всего
но только в выбраное мной время (на данный момент с 8 утра до полуночи) и с автозагрузкой (запуск вместе с Windows).
Помогите пожалуйста, желательно в виде кода.
P.S. Нашел кое-что:
Цитата:
var zero: integer;
procedure TMainForm.FormCreate(...);
var MibArr : IpHlpAPI.TMIBIfArray;
begin
Get_IfTableMIB(MibArr);
zero:=MibArr[1].dwInOctets;
end;
procedure TMainForm.Timer1Timer;
var
MibArr : IpHlpAPI.TMIBIfArray;
begin
Get_IfTableMIB(MibArr);
Label1.Caption:=IntToStr(MibArr[1].dwInOctets - zero);
end;
Кстатти тебе потребуются 2 модуля: IPHelper.pas и IPHLPAPI.pas
|
но у меня нет таких модулей (IPHelper.pas и IPHLPAPI.pas), пробовал скачать но не нашел.