用Delphi编写的一个上网助手

======================================================
注：本文源代码点此下载
======================================================

自从家里的电信宽带由包年换成所谓的套餐之后,每月的上网时间就必须要控制在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的话还是需要修改的。

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/

用Delphi编写的一个上网助手相关推荐

随着上网次数越来越多，IE地址栏中留下大量的历史网址，感觉很不爽，于是决心写一个清除IE地址栏的应用程序，随说有“上网助手”，但它要在能上网时才起作用，我想在不能上网时来对系统进行清理，于是写了一个叫
随着上网次数越来越多,IE地址栏中留下大量的历史网址,感觉很不爽,于是决心写一个清除IE地址栏的应用程序,随说有"上网助手",但它要在能上网时才起作用,我想在不能上网时来对系统进行 ...
【 Qt编写一个串口助手】
Qt编写一个串口助手一.初始化初始化需要注意的是,需要用到关于图形的qcustomplot 库,添加相关的.h和.cpp文件并在.pro文件下加上greaterThan(QT_MAJOR_VERS ...
C#编写一个串口助手上位机软件
对于工程师来说,串口助手可以说是必不可少的一个工具,一个好的串口助手可以大大方便我们的研发调试.网上串口助手很多,如果能够根据自己需要做一个合适的串口助手,那么既能方便自己,也能掌握上位机的开发,对于 ...
delphi打包python_使用Delphi 编写Python Extension
使用Delphi 编写Python Extension 作者:1000copy 摘要: 在互联网公共可访问领域内,关于Python/C interface的介绍,手册都是比较多的.Py直接支持C编写扩 ...
Delphi编写后台监控软件
Delphi编写后台监控软件文章来源:Delphi程序员之家后台监控软件,为了达到隐蔽监控的目的,应该满足正常运行时,不显示在任务栏上,在按Ctrl+Alt+Del出现的任务列表中也不显示,管 ...
用Delphi编写ASP的ActiveX
ASP中的ActiveX服务器组件为标准的Automation ActiveX组件,只要使用由ASP提供的接口和遵守ASP有关规则便可.Delphi 4.0作为一种高效.快速.强大的开发语言,为开发C ...
Delphi：第一个hello world程序
Delphi介绍这里Delphi做一个简单介绍,因为现在移动互联网时代的崛起,桌面应用程序没有以前那么流行,不知道关注delphi的人还多不.用delphi开发桌面应用程序是很快的,第一听说delp ...
利用Delphi编写Socket通信程序
一.Delphi与Socket计算机网络是由一系列网络通信协议组成的,其中的核心协议是传输层的TCP/IP和UDP协议.TCP是面向连接的,通信双方保持一条通路,好比目前的电话线,使用telnet登陆 ...
Delphi 编写数字签名验证并获取签名信息
[摘要]本文介绍Delphi 编写数字签名验证并获取签名信息,并提供详细的示例代码供参考. 一个客户想通过编程实现验证程序自身的数字签名来确保程序的完整性,防范病毒感染以及防止一些无聊人士的修改(通过 ...
用delphi编写医院的复杂报表
用delphi编写医院的复杂报表江苏省无锡市中医医院电脑房袁波 ---- 我院的信息管理系统采用delphi编程,由于各科要求不同,报表形式也多种多样,编写起来让人头痛.delphi运行在WIND ...

用Delphi编写的一个上网助手

用Delphi编写的一个上网助手相关推荐

最新文章

热门文章