Сейчас на форуме: 2nd, morgot, Rio, CDK123, zds, tyns777, tihiy_grom (+4 невидимых)

 eXeL@B —› Программирование —› Авторизация на сайте (Delphi)
Посл.ответ Сообщение

Ранг: 12.8 (новичок)
Активность: 0.01↘0
Статус: Участник

 Создано: 17 марта 2009 00:18 · Поправил: cvbnm87
· Личное сообщение · #1

Здраствуйте, помогите пожалуйста

Code:
  1. procedure TForm1.SpeedButton1Click(Sender: TObject);
  2. Var
  3. s,sres:string;
  4. Captcha:TMemoryStream;
  5. begin
  6. idHTTP1.Get('http://www.cproxy.com/Default.aspx?pg=13&lg=3');
  7. s:=idHTTP1.Get('http://www.cproxy.com/Default.aspx?pg=13&lg=3');
  8. sres:=copy(s,pos('ctl00_ContentPlaceHolderMain_ucRF_hidReg',s)+48,leng    th(s)-pos('ctl00_ContentPlaceHolderMain_ucRF_hidReg',s)+52);
  9. sres:=copy(sres,2,pos('/>',sres));
  10. sres:=copy(sres,1,length(sres)-4);
  11. s:=idHTTP1.Get('http://www.cproxy.com/Default.aspx?pg=13&lg=3');
  12. sres:=copy(s,pos('"ctl00_ContentPlaceHolderMain_ucRF_imgRegPol"',s)+50    ,length(s)-pos('"ctl00_ContentPlaceHolderMain_ucRF_imgRegPol"',s)+50);
  13. sres:=copy(sres,2,pos('" border',sres));
  14. sres:=copy(sres,1,length(sres)-2);
  15. captcha:=TMemoryStream.Create;
  16. idhttp1.Get('http://www.cproxy.com/'+sres,captcha);
  17. captcha.SaveToFile('captcha.png');
  18. Image1.Picture.LoadFromFile('captcha.png');
  20. end;
  22. procedure TForm1.SpeedButton2Click(Sender: TObject);
  23. Var
  24. tr : TstringList;
  25. begin
  26. tr:=TstringList.Create;
  27. tr.Add('ctl00$ContentPlaceHolderMain$ucRF$hidReg='+.);
  28. tr.Add('ctl00$ContentPlaceHolderMain$ucRF$txtRegEmail='+Edit1.Text);
  29. tr.Add('ctl00$ContentPlaceHolderMain$ucRF$txtRegPol='+Edit2.Text);
  30. tr.Add('ctl00$ContentPlaceHolderMain$ucRF$btnRegSubmit=Sign Up');
  31. idHTTP1.Post('http://www.cproxy.com/Default.aspx?pg=13&lg=3',tr);
  32.  
  33.  
  34.  
  35. end;
  37. end.


Объявить глобальные переменные как непомню, раньше я значения просто грузил в Edit, но регистрация непроходила, может не все inputы указал.



Ранг: 129.7 (ветеран), 2thx
Активность: 0.07↘0
Статус: Участник

 Создано: 17 марта 2009 00:58 · Поправил: Azur1d
· Личное сообщение · #2

1. Ну так объяви sres глобально, хотя это конечно не очень хороший стиль.
Code:
  2. var
  3. Form1: TForm1;
  4. sres: string

Или я неправильно тебя понял?

2. Подключи TIdCookieManager, большинство сайтов при запросе капци пишут что-то в куки
И кстати, ты читаешь капчу, а потом в форму ее не сабмитишь.



Ранг: 12.8 (новичок)
Активность: 0.01↘0
Статус: Участник

 Создано: 17 марта 2009 01:30 · Поправил: cvbnm87
· Личное сообщение · #3

Огромное спасибо что напомнили как переменную добавить, это я исправил, регится всё равно отказывается.



Ранг: 129.7 (ветеран), 2thx
Активность: 0.07↘0
Статус: Участник

 Создано: 17 марта 2009 03:36 · Поправил: Azur1d
· Личное сообщение · #4

Во-первых:
Code:
  1. idHTTP1.Get('http://www.cproxy.com/Default.aspx?pg=13&lg=3');
  2. s:=idHTTP1.Get('http://www.cproxy.com/Default.aspx?pg=13&lg=3');
  3. sres:=copy(s,pos('ctl00_ContentPlaceHolderMain_ucRF_hidReg',s)+48,leng  th(s)-pos('ctl00_ContentPlaceHolderMain_ucRF_hidReg',s)+52);
  4. sres:=copy(sres,2,pos('/>',sres));
  5. sres:=copy(sres,1,length(sres)-4);
  6. t:=(sres);
  7. s:=idHTTP1.Get('http://www.cproxy.com/Default.aspx?pg=13&lg=3');
  8. sres:=copy(s,pos('"ctl00_ContentPlaceHolderMain_ucRF_imgRegPol"',s)+50  ,length(s)-pos('"ctl00_ContentPlaceHolderMain_ucRF_imgRegPol"',s)+52);
  9. sres:=copy(sres,2,pos('" border',sres));
  10. sres:=copy(sres,1,length(sres)-2);
  11. captcha:=TMemoryStream.Create;
  12. idhttp1.Get('http://www.cproxy.com/'+sres,captcha);
  13. captcha.SaveToFile('captcha.png');
  14. Image1.Picture.LoadFromFile('captcha.png');
На кой два раза запрашивать одно и то же? капча-то меняется.

Во-вторых:Azur1d пишет:
2. Подключи TIdCookieManager, большинство сайтов при запросе капци пишут что-то в куки



Ранг: 25.1 (посетитель)
Активность: 0.01↘0
Статус: Участник

 Создано: 17 марта 2009 05:17
· Личное сообщение · #5

cproxy практически мертв, слишком популяризовали в свое время сервис. вы делаете авторегалку (чтоб каждый триал самому не региться)?



Ранг: 12.8 (новичок)
Активность: 0.01↘0
Статус: Участник

 Создано: 17 марта 2009 13:52
· Личное сообщение · #6

RUNaum пишет:
чтоб каждый триал самому не региться
Да для этого, иногда приходится в инет выходить с мобилы, а эта прога трафик помогает неплохо экономить



Ранг: 12.8 (новичок)
Активность: 0.01↘0
Статус: Участник

 Создано: 17 марта 2009 19:16 · Поправил: cvbnm87
· Личное сообщение · #7

вот что получилось, TIdCookieManager кинул на форму и подключил, но всё равно не работает
Code:
  1. unit Unit1;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Buttons, ExtCtrls, IdBaseComponent, IdComponent,
  8.   IdTCPConnection, IdTCPClient, IdHTTP, ImgList, PngImageList,
  9.   IdCookieManager;
  11. type
  12.   TForm1 = class(TForm)
  13.     GroupBox1: TGroupBox;
  14.     SpeedButton1: TSpeedButton;
  15.     SpeedButton2: TSpeedButton;
  16.     Edit1: TEdit;
  17.     Edit2: TEdit;
  18.     Label1: TLabel;
  19.     Label2: TLabel;
  20.     Image1: TImage;
  21.     Bevel1: TBevel;
  22.     PngImageList1: TPngImageList;
  23.     IdHTTP1: TIdHTTP;
  24.     IdCookieManager1: TIdCookieManager;
  25.     procedure SpeedButton1Click(Sender: TObject);
  26.     procedure SpeedButton2Click(Sender: TObject);
  27.   private
  28.     { Private declarations }
  29.   public
  30.     { Public declarations }
  31.   end;
  33. var
  34.   Form1: TForm1;
  35.   t: string;
  36. implementation
  38. {$R *.dfm}
  40. procedure TForm1.SpeedButton1Click(Sender: TObject);
  42. Var
  43. s,sres:string;
  44. Captcha:TMemoryStream;
  46. begin
  47. s:=idHTTP1.Get('http://www.cproxy.com/Default.aspx?pg=13&lg=3');
  48. sres:=copy(s,pos('ctl00_ContentPlaceHolderMain_ucRF_hidReg',s)+48,leng  th(s)-pos('ctl00_ContentPlaceHolderMain_ucRF_hidReg',s)+48);
  49. sres:=copy(sres,2,pos('/>',sres));
  50. sres:=copy(sres,1,length(sres)-4);
  51. t:=(sres);
  52. sres:=copy(s,pos('"ctl00_ContentPlaceHolderMain_ucRF_imgRegPol"',s)+50  ,length(s)-pos('"ctl00_ContentPlaceHolderMain_ucRF_imgRegPol"',s)+50);
  53. sres:=copy(sres,2,pos('" border',sres));
  54. sres:=copy(sres,1,length(sres)-2);
  55. captcha:=TMemoryStream.Create;
  56. idhttp1.Get('http://www.cproxy.com/'+sres,captcha);
  57. captcha.SaveToFile('captcha.png');
  58. Image1.Picture.LoadFromFile('captcha.png');
  60. end;
  62. procedure TForm1.SpeedButton2Click(Sender: TObject);
  64. Var
  65. tr : TstringList;
  67. begin
  68. tr:=TstringList.Create;
  69. tr.Add('ctl00$ContentPlaceHolderMain$ucRF$hidReg='+t);
  70. tr.Add('ctl00$ContentPlaceHolderMain$ucRF$txtRegEmail='+Edit1.Text);
  71. tr.Add('ctl00$ContentPlaceHolderMain$ucRF$txtRegPol='+Edit2.Text);
  72. tr.Add('ctl00$ContentPlaceHolderMain$ucRF$btnRegSubmit=Sign Up');
  73. idHTTP1.Post('http://www.cproxy.com/Default.aspx?pg=13&lg=3',tr);
  74.  
  75. end;
  77. end.

Ранг: 6.6 (гость), 1thx
Активность: 0=0
Статус: Участник

 Создано: 18 марта 2009 12:46 · Поправил: StitCh_2007
· Личное сообщение · #8

cvbnm87, но всё равно не работает
Ты используй модуль при подгрузке капчи в image1 - PNGImage, просто png он не загрузит!
и запрос Post у тя не верный



Ранг: 12.8 (новичок)
Активность: 0.01↘0
Статус: Участник

 Создано: 18 марта 2009 16:20 · Поправил: cvbnm87
· Личное сообщение · #9

Капча у меня выводится, pngimage у меня подключён, что именно в post неправильно?



Ранг: 6.6 (гость), 1thx
Активность: 0=0
Статус: Участник

 Создано: 18 марта 2009 16:35 · Поправил: StitCh_2007
· Личное сообщение · #10

cvbnm87 пишет:
что именно в post неправильно?
Посмотри какие запросы с помощью HTTP Debugg
Проще сделай через TWebBrowser



Ранг: 12.8 (новичок)
Активность: 0.01↘0
Статус: Участник

 Создано: 18 марта 2009 20:01
· Личное сообщение · #11

StitCh_2007 пишет:
Проще сделай через TWebBrowser
Да уже взялся через инди делать, помучаюсь, если надоест буду через TWebBrowser делать


 eXeL@B —› Программирование —› Авторизация на сайте (Delphi)
:: Ваш ответ
Жирный  Курсив  Подчеркнутый  Перечеркнутый  {mpf5}  Код  Вставить ссылку 
:s1: :s2: :s3: :s4: :s5: :s6: :s7: :s8: :s9: :s10: :s11: :s12: :s13: :s14: :s15: :s16:


Максимальный размер аттача: 500KB.
Ваш логин: german1505 » Выход » ЛС
   Для печати Для печати