编写惊世个性IP查询器

软件简介：
教程主题： 利用DELPHI 7.0 编写查寻IP 地址的程序 （习作）
教程制作： 惊世 QQ 826787527
, Z" D, x, F4 s: A+ a2 A操作环境：Microsoft Windows XP [版本 5.1.2600]

做个简单的查寻IP的小程序把 送给我的群里的朋友们
6 i, z% }1 E) O2 Z- r: T9 r4 j简单看下把
! V5 ?& E; q2 r下载一个纯真数据库QQWry.Dat， 在www.cz88.net下载
纯真数据库和程序放在同一目录
自己下把
* D# m0 C# X+ \( H3 f211.140.192.186
接下来我们打开Delphi做一个
. ?! I, g0 u- r, G# a基本上也就是这样了把 大家 DIY 下自己搞 把
我做了注释 大家自己看下把
untQQWry.pas单元，功能都在里面，有注释
引用untQQWry.pas这个单元 ComCtrls和DateUtils也要包含入去
public下放
2 y6 h+ D8 y1 F' b6 h  P1 @ QQWry: TQQWry;
8 j& x  }* d. U' Y2 svar下放
IPFile: string;

# @  P9 d# L; d8 M" wprocedure TForm1.FormCreate(Sender: TObject);
4 @" r5 @3 t: W5 Tbegin
, s8 x  ~3 ~6 a: n8 d. q IPFile:= ExtractFilePath(Paramstr(0)) + 'QQWry.Dat';
) T' T  C' \6 o4 a& E//ExtractFilePath是打开文件的函数
QQWry:=TQQWry.Create(IPFile);
% L+ h% a3 k7 g) Y8 {! h+ R3 p Memo1.Lines.Add('文件大小: ' + IntToStr(QQWry.GetQQWryFileSize));
Memo1.Lines.Add('记录总数: ' + IntToStr(QQWry.GetIPRecordNum));
1 u; x4 P# S/ J5 l( w. }0 D Memo1.Lines.Add('更新日期: ' + format('%d年%d月%d日', [yearof(QQWry.GetQQWryDate), monthof(QQWry.GetQQWryDate), dayof(QQWry.GetQQWryDate)]));
3 M! ]: d6 m. ]$ k3 j Memo1.Lines.Add('数据库来源: ' + QQWry.GetQQWryDataFrom);
QQWry.Free;
end;
/ D" V9 G0 [- g, h0 b$ A2 n+ ^- ?这样，就能一打开软件就自动打开QQWry.Dat这个数据库了，传给了全局变量IPFile
////////////////////////////////////////////////////////////////////////
: |: Q( ?4 Y# p5 t7 ], |4 W( b& g
+ G. u" z. F. ~& f3 d# |$ ]procedure TForm1.Button3Click(Sender: TObject);
begin
if (IPFile'') then begin
QQWry:=TQQWry.Create(IPFile);
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] +
+ Y- n: ?3 O, j7 P1 s ' 地区: ' + QQWry.GetIPMsg(QQWry.GetIPRecordID(edit1.text))[3]);
- B1 c) p- G0 F# C5 i$ f5 b* |2 T' k QQWry.Free;
end;
4 _4 L9 D4 e( z9 Z9 @/ f; Nend;
看得出 GetIPRecordID函数在untQQWry.pas中间单来说就是 跟据用户给定一个IP地址找字符串
在数据库中读出相关数据在程序显示出来
主要代码在 untQQWry.pas 大家仔细钻研下
今天身体原因 累了 再见

本人有尝收 徒弟 5名
' A) t: Z, {& s* m; m- k" B5 w有时间上网 对技术感兴趣者 可以找我
1 B5 q. |# L6 p8 o. T. x$ v8 h主教编程 入侵拿站
! P7 e5 A6 k) T* d; L. r9 H0 c出售各种游戏木马 生成器 小马 定做各种黑软程序
( o! R; L: H' b; x# E主页 http://hi.baidu.com/zhizunma521
QQ群 36025116
7 T& i/ i7 A. d# S% v. a6 ]5 [! d下载地址：

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

文件大小:

未知

下载次数:

0

下载权限:

版本vip会员

VIP专享 检测资源

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

VIP专享,点击开通vip

确认