пишу прогу для создания аккаунтов на blog.ru

maloy_ya · #1 08.07.2010, 23:16

собственно говоря пишу прогу она еще дико недоработанная и нубская так что не пинайте а подскажите лучше вот текст:

Код:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, jpeg;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Memo2: TMemo;
    Memo3: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    Button3: TButton;
    IdHTTP1: TIdHTTP;
    regestration: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure regestrationClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  inet:string;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.LoadFromFile('d:\temp\delphi\Projects\blogru\acc.txt');
end;
procedure TForm1.Button2Click(Sender: TObject);
var
a,a1,a2: string;
i,s,etc:integer;
begin
 // For s:=0 to  Memo2.Lines.Count-1 do
  //   ShowMessage(IntToStr(Integer(@i)));
  etc:=0;
      for i:=0 to etc do
        begin
          a:= memo1.Lines[i];
          a1:= Copy(a,1,Pos(':',a)-1);
          a2:= copy (a,Pos(':',a)+1,20);
          memo2.Text:=a1;
          memo3.Text:=a2;
          memo2.Lines.SaveToFile('File1.txt');
          memo3.Lines.SaveToFile('File2.txt');
        end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var FS:TFileStream;
begin
 //=IdHTTP1.Get('http://blog.ru/registration/step1?backurl=http%3A%2F%2Fblog.ru%2F');
 FS:=TFileStream.Create('captcha.jpg',FMCreate);
 IdHTTP1.Get('http://blog.ru/inc/captcha/image.php', FS);
 FS.Free;
 Image1.Picture.LoadFromFile('captcha.jpg');
end;
 
procedure TForm1.regestrationClick(Sender: TObject);
var
  Data:TStringList;
    begin
       Data:=TStringList.Create;
       Data.Add('user_data[nick]='+edit1.Text);
       Data.Add('user_data[email]='+memo2.Text);
       Data.Add('user_data[password]='+memo3.Text);
       Data.Add('user_data[password_confirm]='+memo3.Text);
       Data.Add('user_data[sex]=female');
       Data.Add('user_data[ code]='+Edit2.Text);
       Data.Add('user_data[agreement]=1');
       inet:=IdHTTP1.Post('http://blog.ru/registration/step1/submit', Data);
    end;
end.

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

вот снифер:

подскажите плиз в чем беда??

PhoeniX · #2 08.07.2010, 23:27

1. Теги, *цензура*, где?
2. idHTTP1.HandleRedirects:=true;

maloy_ya · #3 09.07.2010, 00:02

Цитата:

Сообщение от DJ PhoeniX

1. Теги, *цензура*, где?
2. idHTTP1.HandleRedirects:=true;

не оч понял что от меня требуеться редирект добавил та же борода!!можно поточнее выражаться я же говорил что я нуб в этом!!

PhoeniX · #4 09.07.2010, 00:10

Значит, криво "добавил"... эта ошибка вылезает при редиректах. Почитай хотя бы основы кодов состояния HTTP.

Выделяешь на форме idHTTP1, в обжект инспекторе ищешь свойство HandleRedirects и выбираешь значение True. Работать ДОЛЖНО.

П.С. Блин, либо тут 90% людей - третьеклассники, либо в школе перестали преподавать знаки препинания и орфографию... Пишите, ёмаё, грамотно!

maloy_ya · #5 09.07.2010, 00:34

Цитата:

Сообщение от DJ PhoeniX

Значит, криво "добавил"... эта ошибка вылезает при редиректах. Почитай хотя бы основы кодов состояния HTTP.

Выделяешь на форме idHTTP1, в обжект инспекторе ищешь свойство HandleRedirects и выбираешь значение True. Работать ДОЛЖНО.

П.С. Блин, либо тут 90% людей - третьеклассники, либо в школе перестали преподавать знаки препинания и орфографию... Пишите, ёмаё, грамотно!

извиняюсь!!согласен работает но всеровно не регестрирует!!но теперь к сожалению вообще молчит!! снифер в status-line пишет HTTP/1.1 200 OK но залогиниться не дает!!

PhoeniX · #6 09.07.2010, 00:52

Так посмотри, что у тебя сваливается в результате запроса в переменную inet... возможно, там есть причина отказа в регистрации...

maloy_ya · #7 09.07.2010, 01:09

Цитата:

Сообщение от DJ PhoeniX

Так посмотри, что у тебя сваливается в результате запроса в переменную inet... возможно, там есть причина отказа в регистрации...

по сути он мне вывалил страничку регистрации!! только я как не рылся не могу понять что там не так!!вы не поможете, если я вам её покажу??

maloy_ya · #8 09.07.2010, 02:41

люди добрые помогите!! вот то что я получаю в ответ!!
file3.txt

PhoeniX · #9 09.07.2010, 02:44

Код:

1	`Data.Add('user_data[ code]='+Edit2.Text);`

Пробел вызывает подозрения...
И где остальные поля запроса? В сниффере-то они есть, а добавления в запрос не вижу...
П.С. Люди ночью сонные, поэтому злые... а не добрые...

maloy_ya · #10 09.07.2010, 02:52

Цитата:

Сообщение от DJ PhoeniX

Код:

1	`Data.Add('user_data[ code]='+Edit2.Text);`

Пробел вызывает подозрения...
И где остальные поля запроса? В сниффере-то они есть, а добавления в запрос не вижу...
П.С. Люди ночью сонные, поэтому злые... а не добрые...

в проге пробела нет, ошибочка вышла при посте походу!!
так они же пустые для чего их отправлять?? и если отправлять то как??

PhoeniX · #11 09.07.2010, 02:57

Скрипту нет разницы, пустое поле или заполненное - он проверяет его НАЛИЧИЕ. Если оно есть в сниффере - должно быть и в проге.
А добавлять "пустое" поле - как-то так:

Код:

1	`Data.Add('username=');`

И, кстати, сайт ставит кукизы для защиты - их тоже придётся добавлять.

maloy_ya · #12 09.07.2010, 03:04

Цитата:

Сообщение от DJ PhoeniX

Скрипту нет разницы, пустое поле или заполненное - он проверяет его НАЛИЧИЕ. Если оно есть в сниффере - должно быть и в проге.
А добавлять "пустое" поле - как-то так:

Код:

1	`Data.Add('username=');`

И, кстати, сайт ставит кукизы для защиты - их тоже придётся добавлять.

вот с кукисами совсем озадачили!!откуда их выдирать и какие куда слать я не бум-бум

PhoeniX · #13 09.07.2010, 03:07

Я подозреваю, что их ставит страница с регистрацией... Перед непосредственно отсылкой запроса (или перед загрузкой капчи, что лучше) - просто ГЕТом забирай страницу регистрации - кукизы должны поставиться автоматом... Только IdCookieManager кинь на форму, и в IdHTTP его выставь...

maloy_ya · #14 09.07.2010, 03:24

Цитата:

Сообщение от DJ PhoeniX

Я подозреваю, что их ставит страница с регистрацией... Перед непосредственно отсылкой запроса (или перед загрузкой капчи, что лучше) - просто ГЕТом забирай страницу регистрации - кукизы должны поставиться автоматом... Только IdCookieManager кинь на форму, и в IdHTTP его выставь...

он отказываеться просто забирать страницу пишет нужны параметры:
писал вот так:
IdHTTP1.Get('http://blog.ru/registration/step1',cokie);
пишет вот:
[Error] Unit1.pas(87): There is no overloaded version of 'Get' that can be called with these arguments

maloy_ya · #15 09.07.2010, 03:31

переделал запрос гет:
cokie:=IdHTTP1.Get('http://blog.ru/registration/step1');
но логиниться досих пор падло отказываеться

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты