程序设计『Programing』

IP归属地查询器

没有评论

在线查询数据，数据来源123cha.com。需要联网使用，不是查询的纯真的数据。猛击此处下载。 laugh

部分代码：

procedure TForm1.Button1Click(Sender: TObject);
var
   xml : OleVariant;
   r:string;
   p1,p2 : Integer;
   I:Integer;
begin
   xml := CreateOleObject('Microsoft.XMLHTTP');
   xml.Open('GET','http://www.123cha.com/ip/?q='+edt1.Text, False);
   xml.Send;
   r := xml.responseText;
   p1:=Pos('数据',r);
   p2:=Pos('
  • [查询提供]',r);
   mmo1.lines.add(' 您查询的地址可能归属地是：') ;
   mmo1.lines.add(' ===========================') ;
   mmo1.Lines.add (Copy(r, p1+16, p2-p1-5));
   mmo1.Text:=StringReplace(mmo1.Text,' ','',[rfReplaceAll]);
   mmo1.Text:=StringReplace(mmo1.Text,'
    • ','',[rfReplaceAll]);
   mmo1.Text:=StringReplace(mmo1.Text,'
  • ','',[rfReplaceAll]);
   mmo1.Text:=StringReplace(mmo1.Text,'','',[rfReplaceAll]);
   mmo1.Text:=StringReplace(mmo1.Text,'','',[rfReplaceAll]);
end;

    程序设计『Programing』, 系统相关『OS』

    IP发送者(IP sender)

    没有评论

    ipsender

    说明：这个小程序说白了也没什么意思。就是获取主机的ip，然后发送到制定的FTP，或者Email。现在远程控制多是反向连接的。也没必要用这个东西， smile 但是如果对于adsl用户来说，如果用dameware，或者3389终端之类的管理这个小工具或许还有点用处吧。这个东西就是根据前面那篇ftpmyip的代码进一步修改的。程序不会判断内网或者外网ip，感觉没必要，只会获取本机ip。判断感觉不是很有必要。就没做。

    另外程序如果加壳了，请加壳后再配置服务端，否则将不能正常发送。并且夹加壳后要在文件末尾留出300字节的空白区域，这个直接用c32asm添加就行了。程序获取ip发送ip时间间隔为一小时，这个时间不能手工设置，如果需要的话再说吧。本来是不想写这个东西的，但是受人之托忠人之事，虽然功能不多，但是写起来还是费了一番周折 laugh 。好了，就到这里，猛击此处下载程序！

    ps：如果想把ip文件传到默认目录下请将目标路径保持为fuck。否则将不能上传。源程序由于加密解密算法问题，不能正常发送ip，现在已经修正，如果下载了请重新下载文件。 :oups: :oups:

    Close Menu