Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   [Delphi] l2top.ru (https://forum.antichat.xyz/showthread.php?t=182926)

cel 01.03.2010 00:47

[Delphi] l2top.ru
 
Люди подскажите пожалуйсто или подкинте исходник накрутчика галасов

gold-goblin 01.03.2010 00:59

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

cel 01.03.2010 01:02

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

WanSider 01.03.2010 01:02

Какая капча?

cel 01.03.2010 01:03

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

OneSelf 01.03.2010 01:04

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

WanSider 01.03.2010 01:05

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

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

cel 01.03.2010 01:08

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

OneSelf 01.03.2010 01:09

Цитата:

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

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

cel 01.03.2010 01:13

Цитата:

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

что то в этом роде тока мне нужно на две капчи(

OneSelf 01.03.2010 01:19

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

RedFern.89 01.03.2010 01:32

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

RedFern.89 01.03.2010 01:38

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

Код:


Пример кода : Генерация набора челых чисел и чисел с плавающей запятой
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



Время: 21:18