编写惊世个性IP查询器

软件简介：
教程主题： 利用DELPHI 7.0 编写查寻IP 地址的程序 （习作）
教程制作： 惊世 QQ 826787527
操作环境：Microsoft Windows XP [版本 5.1.2600]

做个简单的查寻IP的小程序把 送给我的群里的朋友们
简单看下把
下载一个纯真数据库QQWry.Dat， 在www.cz88.net下载
# n$ Z4 \9 [  m- z3 [0 e4 O纯真数据库和程序放在同一目录
# r, ?/ R7 C3 i5 c# F; y自己下把
8 ]& V* s6 e' z8 H1 w( M211.140.192.186
接下来我们打开Delphi做一个
基本上也就是这样了把 大家 DIY 下自己搞 把
2 F* _/ v! T2 y& y我做了注释 大家自己看下把
untQQWry.pas单元，功能都在里面，有注释
引用untQQWry.pas这个单元 ComCtrls和DateUtils也要包含入去
public下放
; L- b4 k1 y( M7 G QQWry: TQQWry;
var下放
IPFile: string;
( H% W" c0 Y) W+ W
7 F9 i, ^( J* T9 U/ x0 j+ [: iprocedure TForm1.FormCreate(Sender: TObject);
/ t# l7 Q8 n5 u( Z* x, w( Jbegin
" f  w+ u* \; T5 X; C7 u! S IPFile:= ExtractFilePath(Paramstr(0)) + 'QQWry.Dat';
//ExtractFilePath是打开文件的函数
QQWry:=TQQWry.Create(IPFile);
Memo1.Lines.Add('文件大小: ' + IntToStr(QQWry.GetQQWryFileSize));
Memo1.Lines.Add('记录总数: ' + IntToStr(QQWry.GetIPRecordNum));
Memo1.Lines.Add('更新日期: ' + format('%d年%d月%d日', [yearof(QQWry.GetQQWryDate), monthof(QQWry.GetQQWryDate), dayof(QQWry.GetQQWryDate)]));
Memo1.Lines.Add('数据库来源: ' + QQWry.GetQQWryDataFrom);
QQWry.Free;
7 v' ^5 o0 c' B1 q! |end;
这样，就能一打开软件就自动打开QQWry.Dat这个数据库了，传给了全局变量IPFile
////////////////////////////////////////////////////////////////////////

procedure TForm1.Button3Click(Sender: TObject);
begin
+ |; p: ]7 ^8 k6 v9 b8 I if (IPFile'') then begin
3 k6 e0 f' T4 Z# ?. y# M8 z QQWry:=TQQWry.Create(IPFile);
% K2 c' |& g* g3 v Memo1.Lines.Add('记录ID: ' + IntToStr(QQWry.GetIPRecordID(edit1.text)) +
' IP范围: ' + QQWry.GetIPMsg(QQWry.GetIPRecordID(edit1.text))[0] + ' - ' + QQWry.GetIPMsg(QQWry.GetIPRecordID(edit1.text))[1] +
' 国家: ' + QQWry.GetIPMsg(QQWry.GetIPRecordID(edit1.text))[2] +
1 c+ f3 P) b1 u# P6 N6 ?* m7 z; F5 q ' 地区: ' + QQWry.GetIPMsg(QQWry.GetIPRecordID(edit1.text))[3]);
QQWry.Free;
end;
) u2 {" T( G# h9 G/ I# B( ?) X' n! ?end;
3 f. S$ v- k3 f4 N 看得出 GetIPRecordID函数在untQQWry.pas中间单来说就是 跟据用户给定一个IP地址找字符串
1 ]" C- V4 |& D0 ]% t2 ~7 W 在数据库中读出相关数据在程序显示出来
主要代码在 untQQWry.pas 大家仔细钻研下
今天身体原因 累了 再见
2 q. F# p4 l: a# y7 y
8 h! W- R8 `/ ]) j  ^5 w1 L- ?% N2 v本人有尝收 徒弟 5名
+ Y4 L# k) |# g. t# m有时间上网 对技术感兴趣者 可以找我
主教编程 入侵拿站
5 ~1 G2 o; I( s出售各种游戏木马 生成器 小马 定做各种黑软程序
主页 http://hi.baidu.com/zhizunma521
QQ群 36025116
下载地址：

2008-8-19 15:35 上传 编写惊世个性IP查询器.rar

下载权限:

版本vip会员

本地下载 检测资源

有些游戏资源需要vip下载开通请点击开通vip