[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by banned, 6 May 2007.

Thread Status:
Not open for further replies.
  1. НTL

    НTL Elder - Старейшина

    Joined:
    26 Jan 2008
    Messages:
    715
    Likes Received:
    205
    Reputations:
    -26
    Надо сделать запрос на сайт в виде логина и пароля, надо заполнить 2 поля и нажать кнопку:
    (С сайта Big-dialog.ru)

    Поле логин:
    Code:
    <input class="loginField" type="text" name="user" value="" size="20" style="width:100%; background: #ffffff url(http://big-dialog.ru/Dizayn/ico3/user.png);background-repeat: no-repeat;padding-left:15px ;maxlength="50" />
    Поле пароль:
    Code:
    <input class="loginField" type="password" name="password" size="20" style="width:100%; background: #ffffff url(http://big-dialog.ru/Dizayn/ico3/key.png);background-repeat: no-repeat;padding-left:15px;" maxlength="15" />
    Кнопка:
    Code:
    <input class="loginButton" name="sbm" value="Вход" type="submit">
    А теперь это надо сделать на делфи ну к примеру логин будет edit1, пасс edit2, кнопка будет батонам.

    Желательно в исходниках, с меня +12
     
  2. cremator (c)

    cremator (c) Elder - Старейшина

    Joined:
    20 Jun 2008
    Messages:
    258
    Likes Received:
    72
    Reputations:
    0
    метод какой? GET? POST? можно либо на socks или с помощью Indy
     
  3. НTL

    НTL Elder - Старейшина

    Joined:
    26 Jan 2008
    Messages:
    715
    Likes Received:
    205
    Reputations:
    -26
    GET если определит что что "правильный логин" то get, а так и постом можно
     
  4. slesh

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

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    <offtop>+12 жжешь. Максимум +5 и то два раза незя )) нужно поипаться с этим )</offtop>
    А вообще тупо запускается снифак, делается запрос. Он выдирается от туда а потом в сокет загоняеш его и всё )
     
  5. НTL

    НTL Elder - Старейшина

    Joined:
    26 Jan 2008
    Messages:
    715
    Likes Received:
    205
    Reputations:
    -26
    Мона +8 поставить в за один раз а +4 через 24 часа, если бы я мог сделать запрос сам то я бы не спрашивал, если не сложно скинь мне плиз исходники такова запроса
     
  6. slesh

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

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    ппц. для холявщиков вопрос ))) Ответ ищет от сервака в юникоде.
    HTML:
    POST /index/sub/ HTTP/1.1
    Content-Type: application/x-www-form-urlencoded
    X-Requested-With: XMLHttpRequest
    Accept: application/xml, text/xml, */*, text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1
    User-Agent: Opera/9.63 (Windows NT 5.2; U; ru) Presto/2.1.1
    Host: big-dialog.ru
    Accept-Language: ru-RU,ru;q=0.9,en;q=0.8
    Accept-Charset: iso-8859-1, utf-8, utf-16, *;q=0.1
    Accept-Encoding: deflate, gzip, x-gzip, identity, *;q=0
    Referer: http://big-dialog.ru/
    Cookie: 6dialoguzll=1240853489; ucvid=A5kB62hB7I
    Cookie2: $Version=1
    Connection: Keep-Alive, TE
    TE: deflate, gzip, chunked, identity, trailers
    Content-Length: 53
    Content-Transfer-Encoding: binary
    
    user=mylogin&password=mypass&rem=1&a=2&ajax=1&rnd=104
    
    HTTP/1.1 200 OK
    Server: UcoZXSrv/1.4.9
    Date: Mon, 27 Apr 2009 17:32:48 GMT
    Content-Type: text/xml; charset=UTF-8
    Keep-Alive: timeout=15
    Cache-Control: no-cache
    Cache-Control: no-store
    Pragma: no-cache
    Vary: host
    Content-Encoding: gzip
    Connection: Keep-Alive
    Transfer-Encoding: chunked
    
    012c
    <?xml version="1.0" encoding="UTF-8"?><ajax><cmd p="innerHTML" t="blk549104"><![CDATA[<div align="left" style="padding:10px;"><div class="myWinLoadSF" title="Неправильный логин или пароль"></div></div>]]></cmd><cmd p="js"><![CDATA[setTimeout("document.getElementById('blk549104').style.display='none'",'3000')]]></cmd></ajax>
    
     
  7. НTL

    НTL Elder - Старейшина

    Joined:
    26 Jan 2008
    Messages:
    715
    Likes Received:
    205
    Reputations:
    -26
    Скинь плиз в исходных файлах для делфи
     
  8. slesh

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

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    HTTP Sender мой расковыряй. Там есть функция для посылки запросов и получения ответов. Там это прям выделенно в отдельную функцию. Исходник есть на делфи. так что поиск по теме в руки и вперет за родину, брутить пасы ))
     
    1 person likes this.
  9. PAXAn

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

    Joined:
    14 Jun 2008
    Messages:
    43
    Likes Received:
    3
    Reputations:
    0
    а на с моим вопросом по поводу ворда кто нить поможет?
     
  10. slesh

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

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    Ты через что юзаеш ворд? DDE, OLE, Компонент WordApplication
     
  11. PAXAn

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

    Joined:
    14 Jun 2008
    Messages:
    43
    Likes Received:
    3
    Reputations:
    0
    через OLE
     
  12. slesh

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

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    ну тогда типа такова:
    Code:
    var
       Word: OLEVariant;
    begin
     Word:=CreateOleObject('Word.Application');
     Word.Documents.Add;
      Word.Selection.Font.Name:='Times New Roman';
      Word.Selection.Font.Size:=12;
      Word.Selection.Font.Bold:=True;
      Word.Selection.ParagraphFormat.Alignment :=1;
      Word.Selection.TypeText('Вставляемый текст');
    // меняем стиль
      Word.Selection.Font.Italic:=True;
      Word.Selection.TypeText('Вставляем текст');
      Word.ActiveDocument.SaveAs('c:\2.doc');
    
    И так далее по аналогии.
     
  13. slesh

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

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    а. забыл. дестрой незабывай делать, а то процес ворда будет висеть в памяти.
    Word.Quit;
     
    1 person likes this.
  14. PAXAn

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

    Joined:
    14 Jun 2008
    Messages:
    43
    Likes Received:
    3
    Reputations:
    0
    Спасибо большое.
     
  15. Pasha_777

    Pasha_777 New Member

    Joined:
    27 Apr 2009
    Messages:
    9
    Likes Received:
    0
    Reputations:
    0
    решено)))
     
    #3295 Pasha_777, 28 Apr 2009
    Last edited: 5 May 2009
  16. slesh

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

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    по логике когда ты делаеш WebBrowser2.Navigate('about',Dummy,Dummy,Dummy, Headers);
    то реферер всталяется у тебя уже для документа about. А если ты от туда уже пойдеш дальше то реферер будет уже about но браузер просто его не будет вставлять.
     
  17. Pasha_777

    Pasha_777 New Member

    Joined:
    27 Apr 2009
    Messages:
    9
    Likes Received:
    0
    Reputations:
    0
    Так похоже и происходит, но как вставить реферер papa.ru
    Если поменять 'about' на 'papa.ru', то для первого счетчика на страничке реферер будет papa.ru,
    а для всех остальных запросов - его не будет вообще.
    Т.е. это работает только 1 раз...

    Как я понимаю, после
    Document2.Close;
    как раз и идет выполнение скрипта (загруженного текста) а каким образом до этого момента реферер присвоить непонимаю....
     
    #3297 Pasha_777, 28 Apr 2009
    Last edited: 28 Apr 2009
  18. НTL

    НTL Elder - Старейшина

    Joined:
    26 Jan 2008
    Messages:
    715
    Likes Received:
    205
    Reputations:
    -26
    slesh, сделай мне тогда просто пост запрос на логин и пароль, и скинь мне исходник, плиз

    <offtop>А ты не верил что я могу +12поставить</offtop>
     
  19. Pasha_777

    Pasha_777 New Member

    Joined:
    27 Apr 2009
    Messages:
    9
    Likes Received:
    0
    Reputations:
    0
    По своей проблеме дополню...
    Если делать все через idHTTP то сервер как то определяет что это не браузер (хотя в снифере пакеты полностью идентичны!!!), определяет так как идет обмен еще и внутренним протоколом (который гиморойно очень подделывать)

    Так вот все работало, но потом добавили скорее всего проверку реферера и вот никак не получается его приделать к Post запросу через TWebBrowser...

    P.S. Неужели никто на античате не писал авторегеров???
     
  20. art2222

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

    Joined:
    28 Apr 2008
    Messages:
    118
    Likes Received:
    57
    Reputations:
    10
    Не заполнено HTTP_USER_AGENT
     
Thread Status:
Not open for further replies.