上面是程序运行时的界面，图中可以看到每天的上网总时间，以及每次连接和断线的时间；还能一并看到余下每天可用的平均上网时间。程序可以最小化到托盘，允许直接在TrayIcon的弹出菜单上进行连接和断线操作。

以下从代码说明此程序的核心功能部分：

const BasicUrl = 'http://192.168.1.1/';
const ConnectUrl = 'http://192.168.1.1/userRpm/StatusRpm.htm?Connect=连%20接&wan=1';
const DisconnectUrl = 'http://192.168.1.1/userRpm/StatusRpm.htm?Disconnect=断%20线&wan=1';

这三行是TP-LINK无线路由器的基本设定URL。

procedure TMainForm.InitializeRouter;
begin
 IdHttp1.Request.Accept := 'image/gif, image/x-xbitmap, image/jpeg, ' +
  'image/pjpeg, application/x-shockwave-flash, ' +
  'application/vnd.ms-powerpoint, application/vnd.ms-excel, ' +
  'application/msword, */*';
 IdHttp1.Request.Referer := 'http://192.168.1.1/';
 IdHttp1.Request.Host := '192.168.1.1';
 IdHttp1.Request.AcceptLanguage := 'zh-cn';
 IdHttp1.Request.AcceptEncoding := 'gzip,deflate';
 IdHttp1.Request.UserAgent := 'Mozilla/4.0(compatible;MSIE 6.0;Windows NT 5.2;)';
 IdHttp1.Request.Connection := 'Keep-Alive';
 IdHttp1.Request.Password := '******';
 IdHttp1.Request.Username := 'sunwaywei';
end;

这个函数是初始化路由器连接。程序使用IdHTTP组件来向路由器发送HTTP请求，函数中对请求的参数配置进行了基本设定。

procedure TMainForm.DoConnect;
begin
 IdHttp1.Get(BasicUrl);
 IdHttp1.Get(ConnectUrl);
 FOnline := True;
 FOnlineFrom := Now;
end;

procedure TMainForm.DoDisconnect;
begin
 IdHttp1.Get(BasicUrl);
 IdHttp1.Get(DisconnectUrl);
 FOnline := False;
 DBModule.InsertNewTimeRec(FOnlineFrom, Now);
 FillDateList;
 GetStatistics;
 UpdateStatistics;
end;

以上两个函数控制路由器进行连接或是断线。在开发这里的时候，我发现很奇怪的现象，即在访问ConnectUrl或是DisconnectUrl之前，必须先访问一次BasicUrl，这样操作才能够成功。很奇怪，我也不理解为何会如此。总之是这样一做之后，就OK了。

上网计时部分对于有一些编程经验的人来说，应当是不太难的。从DoDisconnect函数中可以看到，当断线的时候，把本次上网时间插入数据库即可。至于按日期分类显示什么的功能，只要理清数据关系，也没什么难度。以下给出我所使用的几个SQL语句，供有兴趣的人参考或是批评指正。

const sqlGetDateList =
 'SELECT DateValue(FromTime) as [Date],' +
 'Sum(DateDiff("n", FromTime, ToTime)+1) as TotalTime ' +
 'FROM TimeRec ' +
 'where FromTime >= DateSerial(Year(Now),Month(Now),1) ' +
 'group by DateValue(FromTime) ' +
 'order by DateValue(FromTime) desc';

const sqlTotalMinutes =
 'select Sum(DateDiff("n", FromTime, ToTime)+1) as TotalTime ' +
 ' from TimeRec where FromTime >= DateSerial(Year(Now),Month(Now),1)';

const sqlTodayMinutes =
 'select Sum(DateDiff("n", FromTime, ToTime)+1) as TotalTime ' +
 ' from TimeRec where FromTime >= DateSerial(Year(Now),Month(Now),Day(Now))';

说明一下，我使用的是Access数据库，所以SQL语句中使用的Access函数。使用Sql Server的话还是需要修改的。