[Delphi] l2top.ru

[cel]

Люди подскажите пожалуйсто или подкинте исходник накрутчика галасов

[gold-goblin]

Задавай конкретные вопросы... За тебя никто не напишет...

[cel]

как вывести капчу на форму и патом послать её если там меняется ссылка и там 2 капчи отдельно

[WanSider]

Какая капча?

[cel]

там без регистрацыи можно

[OneSelf]

сорь.. не увидил названия..

[WanSider]

Опиши как - мне че-та не найти...

(добавлено)
------
Нашел...

[cel]

предложим вот ссылка http://l2top.ru/vote/7205/ там две капчи и ссылка "ОК" меняется
(я спрашивая про накрутчик галасов а не про авторегистратор)

[OneSelf]

Люди подскажите пожалуйсто или подкинте исходник накрутчика галасов

ты про исходник этого http://l2ua.ru/news/2009-09-16-990 ?

[cel]

ты про исходник этого http://l2ua.ru/news/2009-09-16-990 ?
что то в этом роде тока мне нужно на две капчи(

[OneSelf]

в последних версиях должны 2 капчи быть...

[RedFern.89]

там всеголишь то нужно сгенерировать случайное число (math.pas) в определенных пределах и запросить на 4na.php и в ответе те придет картинка)) тока что пробовал))

[RedFern.89]

вот пример генерации))



Пример кода : Генерация набора челых чисел и чисел с плавающей запятой
var
float : single;
int : Integer;
i : Integer;

begin
// Получение случайных чисел с плавающей запятой в диапазоне 0 <= number <1.0
for i := 1 to 5 do
begin
float := Random;
ShowMessage('float = '+FloatToStr(float));
end;

ShowMessage('');

// Получение целых случайных чисел в диапазоне 1..100
for i := 1 to 5 do
begin
int := 1 + Random(100); // Эти 100 значений дают диапазон 0..99
ShowMessage('int = '+IntToStr(int));
end;
end;
float = 2.3283064365387E-10
float = 0.031379981256104
float = 0.861048460006714
float = 0.202580958604813
float = 0.2729212641716


int = 68
int = 32
int = 17
int = 38
int = 43