下载月排行
立即下载编写惊世个性IP查询器
| 软件大小: | 12.8 MB |
|---|---|
| 软件语言: | 简体中文 |
| 软件类别: | 黑客教学 - 黑客动画 |
| 授权方式: | 共享版 |
| 应用平台: | Win9X/2000/XP/2003/ |
| 更新时间: | 2008/8/19 15:35:40 |
| 开 发 商: | 暂无信息 |
| 联 系 人: | 暂无联系方式 |
| 分享收藏 | |
| 解压密码: | 本站默认解压密码：www.987654321sf.com |
| 推荐等级: |  |
| 会员中心: | 【账号登录】 【账号注册】 开通VIP下载流程 |
| 查毒情况: |  |
[复制下载页面地址给QQ/MSN上的好友]软件介绍
教程主题： 利用DELPHI 7.0 编写查寻IP 地址的程序 （习作）
教程制作： 惊世 QQ 826787527
操作环境：Microsoft Windows XP [版本 5.1.2600]
做个简单的查寻IP的小程序把 送给我的群里的朋友们
简单看下把
下载一个纯真数据库QQWry.Dat， 在www.cz88.net下载
纯真数据库和程序放在同一目录
自己下把
211.140.192.186
接下来我们打开Delphi做一个
基本上也就是这样了把 大家 DIY 下自己搞 把
我做了注释 大家自己看下把
untQQWry.pas单元，功能都在里面，有注释
引用untQQWry.pas这个单元 ComCtrls和DateUtils也要包含入去
public下放
QQWry: TQQWry;
var下放
IPFile: string;
procedure TForm1.FormCreate(Sender: TObject);
begin
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;
end;
这样，就能一打开软件就自动打开QQWry.Dat这个数据库了，传给了全局变量IPFile
////////////////////////////////////////////////////////////////////////
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] +
' 地区: ' + QQWry.GetIPMsg(QQWry.GetIPRecordID(edit1.text))[3]);
QQWry.Free;
end;
end;
看得出 GetIPRecordID函数在untQQWry.pas中间单来说就是 跟据用户给定一个IP地址找字符串
在数据库中读出相关数据在程序显示出来
主要代码在 untQQWry.pas 大家仔细钻研下
今天身体原因 累了 再见
本人有尝收 徒弟 5名
有时间上网 对技术感兴趣者 可以找我
主教编程 入侵拿站
出售各种游戏木马 生成器 小马 定做各种黑软程序
主页 http://hi.baidu.com/zhizunma521
QQ群 36025116