Results 1 to 7 of 7

Thread: Between

  1. #1
    Join Date
    Sep 2008
    Location
    My House
    Posts
    519
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Between

    I have this...

    Code:
    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...

    Code:
    <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.
    Still learning to code in Simba.

  2. #2
    Join Date
    Nov 2007
    Location
    46696E6C616E64
    Posts
    3,069
    Mentioned
    44 Post(s)
    Quoted
    302 Post(s)

    Default

    Simba Code:
    program new;

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

    begin
      Writeln(GetIP);
    end.
    Last edited by Frement; 08-29-2010 at 11:13 AM.
    There used to be something meaningful here.

  3. #3
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  4. #4
    Join Date
    Nov 2007
    Location
    46696E6C616E64
    Posts
    3,069
    Mentioned
    44 Post(s)
    Quoted
    302 Post(s)

    Default

    Quote Originally Posted by Shuttleu View Post
    SCAR Code:
    function GetIp: string;
    begin
      Result:= GetPage('http://whatismyip.org/');
    end;


    ~shut
    Oh yeah, I forgot GetPage doesn't require HTTP Client.
    There used to be something meaningful here.

  5. #5
    Join Date
    Sep 2008
    Location
    My House
    Posts
    519
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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();
    Still learning to code in Simba.

  6. #6
    Join Date
    Mar 2006
    Posts
    403
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    here noob

    SCAR Code:
    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.

  7. #7
    Join Date
    Nov 2007
    Location
    46696E6C616E64
    Posts
    3,069
    Mentioned
    44 Post(s)
    Quoted
    302 Post(s)

    Default

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

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •