编写惊世个性IP查询器

软件简介：
0 `4 P" {* }' t' z- Y教程主题： 利用DELPHI 7.0 编写查寻IP 地址的程序 （习作）
教程制作： 惊世 QQ 826787527
& I5 G. O% L9 V  w操作环境：Microsoft Windows XP [版本 5.1.2600]
- ~5 D, B& }1 D# p6 a
; n) K( i& x7 J& ]7 P: U1 ~做个简单的查寻IP的小程序把 送给我的群里的朋友们
* X3 a6 R! T1 m% W简单看下把
; A0 s- M- j. h4 x' I% b9 f下载一个纯真数据库QQWry.Dat， 在www.cz88.net下载
* P4 j, \, z( t9 r( h纯真数据库和程序放在同一目录
( b/ j1 l3 Y! I2 e! u3 {9 h6 L自己下把
3 ?7 M5 y3 h$ W) G! R211.140.192.186
0 e" F" A% Q* _6 U) y7 V接下来我们打开Delphi做一个
; h) T# E( d1 _8 n基本上也就是这样了把 大家 DIY 下自己搞 把
我做了注释 大家自己看下把
0 W. w8 C4 ?9 d0 P4 yuntQQWry.pas单元，功能都在里面，有注释
7 p. F7 H9 z0 z( M9 Q引用untQQWry.pas这个单元 ComCtrls和DateUtils也要包含入去
5 Q% L& L. W1 P5 E3 gpublic下放
0 y9 J/ f& F% R QQWry: TQQWry;
var下放
3 W, P. }2 j# n IPFile: string;

procedure TForm1.FormCreate(Sender: TObject);
$ d3 x2 _: [: T# k5 q! u4 ]begin
IPFile:= ExtractFilePath(Paramstr(0)) + 'QQWry.Dat';
, W2 x  l" o- B5 u5 M/ c" m8 ^//ExtractFilePath是打开文件的函数
QQWry:=TQQWry.Create(IPFile);
Memo1.Lines.Add('文件大小: ' + IntToStr(QQWry.GetQQWryFileSize));
Memo1.Lines.Add('记录总数: ' + IntToStr(QQWry.GetIPRecordNum));
$ f! y% |" w" B Memo1.Lines.Add('更新日期: ' + format('%d年%d月%d日', [yearof(QQWry.GetQQWryDate), monthof(QQWry.GetQQWryDate), dayof(QQWry.GetQQWryDate)]));
Memo1.Lines.Add('数据库来源: ' + QQWry.GetQQWryDataFrom);
QQWry.Free;
end;
这样，就能一打开软件就自动打开QQWry.Dat这个数据库了，传给了全局变量IPFile
2 ^1 |% D' r9 f: {4 z8 p: [////////////////////////////////////////////////////////////////////////

procedure TForm1.Button3Click(Sender: TObject);
begin
if (IPFile'') then begin
" P3 m8 a! h' I QQWry:=TQQWry.Create(IPFile);
" k8 ~- v6 Y) F. M* H- n. m 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] +
  F4 o% H  T2 \# p* {: h; `7 H ' 地区: ' + QQWry.GetIPMsg(QQWry.GetIPRecordID(edit1.text))[3]);
: |9 [8 N( R0 ~, D! Q$ e) n' {# E QQWry.Free;
end;
end;
- ^; @9 C" A( c4 g& K3 {& q 看得出 GetIPRecordID函数在untQQWry.pas中间单来说就是 跟据用户给定一个IP地址找字符串
. [, Q6 f3 Z! E2 R) o: w! W$ q- f 在数据库中读出相关数据在程序显示出来
主要代码在 untQQWry.pas 大家仔细钻研下
今天身体原因 累了 再见
0 z6 v  s2 |' y6 G
. I0 U. q7 W, c0 y, n: i本人有尝收 徒弟 5名
* K  I- q9 s$ Y有时间上网 对技术感兴趣者 可以找我
主教编程 入侵拿站
/ \) V9 y' z$ R3 f2 W. J# {& J出售各种游戏木马 生成器 小马 定做各种黑软程序
主页 http://hi.baidu.com/zhizunma521
QQ群 36025116
- Q; {  A( o+ v8 v下载地址：

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

下载权限:

版本vip会员

本地下载 检测资源   提取码: 需要终身vip或更高权限

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