craigslist.org new posts leecher
Posted: Sun Oct 02, 2011 9:41 pm
This script will check craigslist.org every 15 seconds and list the new added posts.
Code: Select all
Output.Clear;
PerlRegEx = Yes;
Link = New(URL);
Link.Location='http://vancouver.craigslist.org/zip/';
LastData = '';
loop
Link.Get;
rx = RegEx(Link.Data);
rx.Mask = '<a href="(http://vancouver\.craigslist\.org/zip/([0-9]+)\.html)">';
if rx.Match then
begin
if LastData <> rx.Value[2] then Run(rx.Value[1]);
LastData = rx.Value[2];
end;
Pause(15000);
end;