QKey
Сообщений: 2
Оценки: 0
Присоединился: 2010-02-08 19:00:25.060000
|
Привет !
Мой друг рассказал мне о сайте http://bux.to/
Типа кликай и получи деньги )))
Я эму сказал
-это лохотрон чистой воды .
мой друг
-Нет ты чего они реально платят
И угораздило же меня сказать что для этого сайта можно прогу написать которая кликакть за него будет(:
1. хочу услышать от вас это лохотрон или нет?
2. Я написал прогу но у меня не получаться отбирать ссылки нужного формата типа http://www.bux.to/view.php?ad=****
и нужен таймер на время через которое надо пройти по следующей ссылке.
вот посмотрите что у меня вышло
procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
s:string;
html_tag: variant;
begin
webbrowser1.Navigate('http://www.bux.to/login.php');
html_tag:=WebBrowser1.OleObject.Document.links;
for i := 0 to (html_tag.length-1) do
Listbox1.Items.Add(Webbrowser1.OleObject.Document.Links.Item(i));
end;
мене надо выбирать только ссылки с http://www.bux.to/view.php?ad=****
и переходить по ним каждые 32 секунды
переход по ссылке 30 секунд ожидания следующая ссылка
и так пока не кончаться ссылки типа http://www.bux.to/view.php?ad=****
|
Кликак и получи деньги http://bux.to/ лохотро? - 
