VPF::Цикл - Форум программистов

Terikon

Дата 16.4.2009, 21:42 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 1.4.2009

Репутация: нет
Всего: нет

нужно зайти на сайт под всеми логинами в файле login.txt

есть код например

Код


begin
Data:=TStringList.Create;
Data.Add('username=login1');
Data.Add('password=123');
Memo2.Text:=idhttp1.Post('http://www.sait.ru/signup.php',data);

После успешного входа на сайт нужно подставлять новый логин и пароль из файла login.txt
т.е. сюда

Код


Data.Add('username=login1');
Data.Add('password=123');

Содержание файла login.txt
login1;123
login2;123
login3;123

Matematik

Дата 16.4.2009, 22:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50

Хм. Вопрос в чём?

hawkins

Дата 16.4.2009, 22:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 148
Регистрация: 8.9.2003

Репутация: нет
Всего: нет

если перебрать логины с паролями из текстовика то так:

Код


procedure LoginCycle;
var
 i: integer;
 Data: TStringList;
 str: string;
 pos_: integer;
 login, pass: string;
begin
 Data:=TStringList.Create;
 try
 Data.LoadFromFile('login.txt');
 for i:=0 to Data.Count-1 do
 begin
  str:=Data[i];
  pos_:=pos(';', str);
  login:=copy(str, 1,  pos_-1);
  pass:=copy(str, pos_+1, length(str) - pos_);
  ...
  // здесь подставляешь куда нужно
 end;
 finally
   Data.Free;
 end;
end;

Это сообщение отредактировал(а) hawkins - 16.4.2009, 22:46

Terikon

Дата 16.4.2009, 23:15 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 1.4.2009

Репутация: нет
Всего: нет

...
// здесь подставляешь куда нужно

Data:=TStringList.Create;
Data.Add('username='+login);
Data.Add('password='+pass);
Memo2.Text:=idhttp1.Post('http://www.sait.ru/signup.php',data);

Прога просто зависает, что я не так делаю? смотрю сниффером ничиво не отправляется.

hawkins

Дата 17.4.2009, 08:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 148
Регистрация: 8.9.2003

Репутация: нет
Всего: нет

для перебора и для отправки разные списки нужны (тут уж можно было и догадаться). Переменную для моего списка надо другую задать:

Код


procedure LoginCycle;
var
 i: integer;
 SL, Data: TStringList;
 str: string;
 pos_: integer;
 login, pass: string;
begin
 SL:=TStringList.Create;
 Data:=TStringList.Create;
 try
 SL.LoadFromFile('login.txt');
 for i:=0 to SL.Count-1 do
 begin
  str:=SL[i];
  pos_:=pos(';', str);
  login:=copy(str, 1,  pos_-1);
  pass:=copy(str, pos_+1, length(str) - pos_);
  
  // здесь подставляешь куда нужно
  Data.Clear;
  Data.Add('username='+login);
  Data.Add('password='+pass);
  Memo.Text:=idhttp1.Post('http://www.sait.ru/signup.php',data);  
 end;
 finally
   SL.Free;
   Data.Free;
 end;
end;

при каждом проходе в цикле Data надо очищать, чтоб только одну пару отправлять.

Это сообщение отредактировал(а) hawkins - 17.4.2009, 08:43

Terikon

Дата 17.4.2009, 19:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 1.4.2009

Репутация: нет
Всего: нет

Всё работает спасибо

Цитата(hawkins @ 17.4.2009, 08:41

)

В проге я сразу поменял, на форуме забыл просто отредактировать, А прога у меня неработала потому что фаервол отрубить забыл

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »