Учет трафика

@Woha28 · Регистрация: 25.12.2013

Author24 — интернет-сервис помощи студентам

Привет всем! Помогите новичку. У меня интернет через мегафон-модем, тариф 50gb на месяц но с 00:00 до 08:00 трафик не учитывается. И я хочу написать простенькую прогу которая будет вести учет трафика:
входящий
исходящий
всего
но только в выбраное мной время (на данный момент с 8 утра до полуночи) и с автозагрузкой (запуск вместе с Windows).
Помогите пожалуйста, желательно в виде кода.
P.S. Нашел кое-что:

Delphi

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), пробовал скачать но не нашел.

@droider · 02.01.2014, 09:59

Woha28, скачайте тут

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	02.01.2014, 09:59	2
	Woha28, скачайте тут 1