千里之行,始于足下

酌贪泉而觉爽,处涸辙而犹欢

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::
  34 随笔 :: 0 文章 :: 193 评论 :: 10 引用

公告

自从家里的电信宽带由包年换成所谓的套餐之后,每月的上网时间就必须要控制在150小时以内,于是乎被迫将无线路由器由自动上网改成手动上网。每次上网必须要先打开路由器控制页面,再用Excel计时,对于我这样出类拔萃的懒人来说,不免有些嫌烦。好容易乘工作之闲,再次写了一个上网助手,直接控制无线路由器的连接和断线,同时自动进行计时,用起来果然方便许多。



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

posted on 2007-06-29 22:50 sunwaywei 阅读(...) 评论(...) 编辑 收藏