立即下载编写惊世个性IP查询器

软件大小: 12.8MB
软件语言: 简体中文
软件类别: 黑客教学 - 黑客动画
授权方式: 共享版
应用平台: Win9X/2000/XP/2003/
更新时间: 2008/08/19 15:35:40
开 发 商: 暂无信息
联 系 人: 暂无联系方式
分享收藏
更多
收藏
解压密码: 本站默认解压密码:www.9876543210sf.com 
推荐等级: 3星级
会员中心: 【账号登录】  【账号注册】  开通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

评论区        查看评论...

相关说明

  • ☉ 由于私服程序的特殊性,它非常容易被杀毒误报,所以自2011年1月起本站所有软件都不在做杀毒查杀,请下载后自行检测查杀!
  • ☉ 为了达到最快的下载速度,推荐使用 迅雷5 下载本站软件。
  • ☉ 本站软件均为WinRAR3.7版本压缩,所以请一定升级到WinRAR3.7或最新版才能正常解压本站提供的软件!
  • ☉ 如果您发现下载链接错误,或内容与分类不匹配,请点击报告错误。正确报错10个我们将送您VIP会员!
  • ☉ 如发现本站软件需要解压密码,均为:www.9876543210sf.com
关于本站 - 网站帮助 - 广告合作 - 下载声明 - 友情连接 - 网站地图 - VIP登陆 | 注册
Copyright © 2005-2023 http://www.9876543210sf.Com. All Rights Reserved .
本站私服服务端和架设教程由网友发布,仅作学习使用,严禁用于商业
如本站收录的资源侵犯到您的版权,请来信告知,我们将及时更正处理,邮箱:6915129@qq.com
鲁ICP备123456789号-1 51LA统计
点击与站长面对面交流!