Помогите с капчами плзз (Delphi)

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by lostfany, 10 Sep 2008.

  1. lostfany

    lostfany New Member

    Joined:
    4 Sep 2008
    Messages:
    1
    Likes Received:
    1
    Reputations:
    0
    Капчи (Delphi) Тема закрыта Всем спасибо)

    Такая проблема, пытаюсь регер написать допустим на том же рамблере или км, на любой реге с капчей, типа сначала принимаю страницу регистрации, там всё ок, выдергиваю ссылку на капчу , в браузере смотрю, капчу всё ввожу а потом методом пост отсылаю всю формы, но он мне выдает не прально заполнена капча! пишу на delphi c компонентом idhttp и webbrowser?
    как сделать чтоб капча норм была?

    Code:
    //Запрашиваю страницу чтоб выдрать ссылку на капчу
    //пока еще ручками
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    memo1.Text:=http.Get('http://www.km.ru/r/register.aspx?app=km');
    
    end;
    //Отправляю форму и приходит что капча не пральная
    procedure TForm1.Button2Click(Sender: TObject);
    var list:tstringlist;
    begin
     list:=tstringlist.Create;
    list.Add('userFirstName=Alex');
    list.Add('userLastName=Lods');
    list.Add('userGender=m');
    list.Add('userDayBirth=24');
    list.Add('userMonthBirth=1');
    list.Add('userYearBirth=1988');
    list.Add('userLoginName='+edit1.text);
    list.Add('userDomainName=km.ru');
    list.Add('userPassword=zxccxz');
    list.Add('userPasswordRet=zxccxz');
    list.Add('userQuestion=какой нить вопрос);
    list.Add('userQuestionStr=');
    list.Add('userAnswer=23232332');
    list.Add('userAltMail=');
    list.Add('userRegSymbols='+edit2.text);
    memo1.Text:=http.post('http://www.km.ru/r/register.aspx',list);
    end;
    //Тут просматриваю капчу
    procedure TForm1.Button3Click(Sender: TObject);
    begin
    webbrowser1.Navigate('http://www.km.ru/r/PictureDigitViewNet.aspx?rnd='+edit2.text);
    end;
    
     
    #1 lostfany, 10 Sep 2008
    Last edited: 10 Sep 2008
  2. BlackSun

    BlackSun Banned

    Joined:
    1 Apr 2007
    Messages:
    989
    Likes Received:
    1,168
    Reputations:
    446
    Про сессии и куки не забыл?
     
  3. lostfany

    lostfany New Member

    Joined:
    4 Sep 2008
    Messages:
    1
    Likes Received:
    1
    Reputations:
    0
    хмм. Куки отключить? Плин я хреново шарю в этой теме, можно примерчик небольшой, или Что снадо сделать а я на гуглю)
     
  4. BlackSun

    BlackSun Banned

    Joined:
    1 Apr 2007
    Messages:
    989
    Likes Received:
    1,168
    Reputations:
    446
    Наоборот, при первом запросе - получаешь куки, сохраняешь, а потом, когда отсылаешь данные на регу - отсылаешь и куки в заголовке.
     
  5. lostfany

    lostfany New Member

    Joined:
    4 Sep 2008
    Messages:
    1
    Likes Received:
    1
    Reputations:
    0
    а можно на пальцах как Соххранить и отправить их?) если канечно это у Вас не займет много времени)
     
  6. diehard

    diehard Elder - Старейшина

    Joined:
    30 Sep 2007
    Messages:
    442
    Likes Received:
    266
    Reputations:
    15
    ostfany
    тебе подсказали в чем дело, дальше твое дело РТФМ как это кодить, делать за тебя никто не будет
     
  7. Vid0k

    Vid0k Elder - Старейшина

    Joined:
    24 Dec 2007
    Messages:
    393
    Likes Received:
    125
    Reputations:
    13
    http://www.codenet.ru/webmast/cookiesf.php
    а как получить из заголовка куки на делфях это уж твоя проблема
     
  8. lostfany

    lostfany New Member

    Joined:
    4 Sep 2008
    Messages:
    1
    Likes Received:
    1
    Reputations:
    0
    Да спс я разобрался,поснифал малясь, Просто когда я загружаю картинку через twebbrowser он с другими куками картинку грузит, Щас исправлю) Спасиб) тема закрыта)