Results 1 to 2 of 2

Thread: Tell when Lockerz redeem has started. Need help!

  1. #1
    Join Date
    Nov 2006
    Location
    'Pergamino, BA, Argentina';
    Posts
    473
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default Tell when Lockerz redeem has started. Need help!

    Hey, I'm trying to make a script which will tell me when the lockerz redemption starts, but im stuck at the login part.
    My idea of the script is:
    Set up an HTTP client
    log into lockerz.com
    go to the redeem site (http://www.lockerz.com/redeem/boutique/2)
    and check if the source code of the site is the same as now (now that the redeem site is closed)
    So, if the code is still the same, it means that the redemption has not started, otherwise if the code changes, it means that the redemption HAS started, and it will do a PlaySound('x.wav');

    This is my login procedure, but it doesnt seem to work :/ if anyone can help me... I'd be posting the script when finished.

    SCAR Code:
    procedure loginasd;
    var
    client :integer;
    login :string;
    begin
      client:= InitializeHTTPClient( true, true );
      SetHTTPUserAgent( client, 'Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)' );
      addpostvariable( client, 'handle', 'elegefox2477@hotmail.com');
      addpostvariable( client, 'password', '123456');
      Writeln('Login in');
      login := PostHTTPPageEx( client, 'http://www.lockerz.com' );
      //Writeln(login);
      login := between('<title>','</title>', login)
      if login = 'Welcome to Lockerz' then writeln('we are fckd!');
      //Writeln(login);
    end;

    (that account is a test one, dont change the password so anyone can help with the script )
    NOTE: Im pretty sure the problem is with the variables im sending.

  2. #2
    Join Date
    Oct 2007
    Location
    http://ushort.us/oqmd65
    Posts
    2,605
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    If using for personal use, just use my website to check (As it doesn't require login, where I think you are failing in the script)

    Tells if redemption is in progress by calling, please don't flood request the page though if you make a checker, i even put <progress>is</progress> or <progress>not</progress> tags for your script to check it

    edit: Was bored so I made the script quick. Like I said, don't flood it plz.

    SCAR Code:
    program New;

    procedure loginasd;
    var
    login :string;
    begin

      login := GetPage('http://fearnothing.net/lockerzredemptionalert.php');
      login := between('<progress>','</progress>', login)
      if(login='not')then
        Writeln('Lockerz Redemption not in progress!') else
        Writeln('Lockerz Redemption in progress!');
    end;


    begin
      cleardebug;
      loginasd;
    end.
    I do visit every 2-6 months

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
  •