使用ip138的服务器获取外网IP

2020-02-21 0 条评论 151 次阅读 0 人点赞

获取介绍:

访问ip138.com的内部页面内容来读取IP地址信息

var
  xml: OleVariant;
  r,rtmp: string;
  p1, p2: Integer;
begin
  //获取IP138的内嵌地址
    xml := CreateOleObject('Microsoft.XMLHTTP');
    xml.Open('GET', 'http://ip138.com/', False);
    xml.Send;
    r := xml.responseText;
    p1 := Pos('iframe src="', r); // 找到 h2 标签
    p2 := Pos('" rel=', r);   // 找到 h2 结束标签
    rtmp := Copy(r, p1 + 12, p2 - p1 - 12);
    edts1.Text := rtmp;//内嵌的地址

    //获取内嵌地址中的IP
    xml := CreateOleObject('Microsoft.XMLHTTP');
    xml.Open('GET', rtmp, False);
    xml.Send;
    r := xml.responseText;
    p1 := Pos('[', r); // 找到 h2 标签
    p2 := Pos(']', r);   // 找到 h2 结束标签
    edts2.Text := Copy(r, p1 + 1, p2 - p1 - 1);//获取的IP
Anchep

Anchep

TyphonFinger

文章评论(0)

你必须 登录 才能发表评论