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

软件大小: 12.8 MB
软件语言: 简体中文
软件类别: 黑客教学 - 黑客动画
授权方式: 共享版
应用平台: Win9X/2000/XP/2003/
更新时间: 2008/8/19 15:35:40
开 发 商: 暂无信息
联 系 人: 暂无联系方式
分享收藏
更多
解压密码:本站默认解压密码:www.987654321sf.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

评论区        查看评论...

相关说明

    关于本站 - 网站帮助 - 广告合作 - 下载声明 - 友情连接 - 网站地图 - VIP登陆|注册
Copyright © 2007-2011 987654321SF.Com. All Rights Reserved .
本站私服服务端和架设教程由网友发布,仅作学习使用,严禁用于商业
如本站收录的资源侵犯到您的版权,请来信告知,我们将及时更正处理,邮箱:Mail91@QQ.COM
蜀ICP备15007442号-2
点击与站长面对面交流!