SRL Archive - OSR Help

I have this…

program New;

var
   a : Integer;
   B : String;
begin
     ClearDebug;
     a := InitializeHTTPClient(False, False);
     SetProxyDetails(a, '134.34.246.5', 3124);
     Writeln(GetHTTPPage(a, 'http://www.auditmypc.com/whats-my-ip.asp'));
     B := GetDebugLine(234);
     ClearDebug;
     Writeln(B);
     FreeHTTPClient(a);
end.

Which shows this…

<p> Your IP address is <strong>129.107.35.131</strong> and a reverse 

I know there is a better way of acheiving this. I want it to just show the IP Address. Anyway of doing this. I know there is but I don't have the knowledge of how.

program new;

function GetIP: String;
begin
  Result := GetPage('http://www.frement.net/srl/ip.php');
end;

begin
  Writeln(GetIP);
end. 

function GetIp: string;
begin
  Result:= GetPage('http://whatismyip.org/');
end;

~shut

From: Shuttleu

function GetIp: string;
begin
  Result:= GetPage('http://whatismyip.org/');
end;

~shut

Oh yeah, I forgot GetPage doesn't require HTTP Client.

yeah but I need to use SetProxy(P, '123.12.123.1, 80); So I can change the IP Address so I need to use GetHTTPPage();

here noob :p

program New;

var
   Client: Integer;
   IP: string;
   
begin
  ClearDebug;
  
  Client := InitializeHTTPClient(False, False);

  IP := GetHTTPPage(Client, 'http://www.auditmypc.com/whats-my-ip.asp');
  IP := Between('Your IP address is <strong>', '</strong>', IP);
  WriteLn('Your IP: '+IP);
  
  SetProxyDetails(Client, '134.34.246.5', 3124);
  IP := GetHTTPPage(Client, 'http://www.auditmypc.com/whats-my-ip.asp');
  
  FreeHTTPClient(Client);
  
  IP := Between('Your IP address is <strong>', '</strong>', IP);
  WriteLn('Proxy: '+IP);
end.

And if you need proxies, heres a site (Made by a friend of mine) which offers a list: http://myproxylists.com/anonymous-proxylists