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.