求一行代码
function GetIP: string;
var
xml : OleVariant;
r:string;
p1,p2 : Integer;
begin
xml := CreateOleObject('Microsoft.XMLHTTP');
xml.Open('GET','http://www.net.cn/static/customercare/yourIP.asp', False);
xml.Send;
// r := xml.responseText; //xml.responseText方法并非系统自带,无法注入,如何用其他方法代替?
p1:=Pos('<h2>',r);
p2:=Pos('</h2>',r);
Result := Copy(r, p1+4, p2-p1-4);
end;