上面是程序运行时的界面，图中可以看到每天的上网总时间，以及每次连接和断线的时间；还能一并看到余下每天可用的平均上网时间。程序可以最小化到托盘，允许直接在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的话还是需要修改的。

请看上图，I15单元格是I13单元格除以I14单元格的结果，在剩余天数大于1的时候，剩余平均值计算一直是正确的，但到了今天，只剩下1天的时候，显示结果却不正确了。

后来仔细看了一下，才发现单元格的日期格式设置不正确，改为[h]:mm:ss之后，显示就正确了。

“执行引擎错误是致命错误，决不应该发生。此类错误主要是在执行引擎被破坏或丢失数据时发生的。系统会随时引发此异常。在可能的情况下，系统将引发比 ExecutionEngineException 异常能提供更多信息的异常。

应用程序不应引发 ExecutionEngineException。”

从这个描述可以看出，ExecutionEngineException这个异常在正常的程序中应当是不可能发生的，致命错误嘛。然而我今天却就与这个异常来了个多次碰头。

具体情况大致是这样的：一个具有查看器（Viewer）功能的COM控件，在.net中使用。这个Viewer有一个特性，在当前可视区域发生某些变化时，将会触发两个事件，而在更特定的情况下，这两个事件触发的时间差可能非常之小，几乎是同时发生。此时外层的.net程序引发ExecutionEngineException异常的可能性就变得非常之大，基本上每次操作都至少遇上一次，当然也只能遇上一次，因为一遇上就差不多Crash了。

应该还是在.net与COM交互时发生的问题，虽然不清楚具体过程，也可以大概猜想一下：当第一个事件发生的时候，.net开始对它进行处理，没等处理完毕，第二个事件又发生了，异常也就诞生了。

知道原因就好办。加入一个事件挂起机制，使得任意两个事件的触发时间间隔不会太小，避免两个事件几乎同时触发的情况再次发生。果然，一试之下再也没有出现这个异常了。如果有遇上类似现象的，不妨用这个思路试一下。

PS，这里我使用的环境是.net framework 1.1，目前尚不知在.net framework 2.0下是否有同样的现象。