| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Регестарция в WordPress [D7, WinXP]

Doc.X ©   (2008-08-09 23:10:00) 

пишу прогу задача полуавтоматически зарегиться на вордпрессе
жмём кнопку.. появляеться капча.. воодим капчу жмёж дальше.. должна зарегиться
а не пашет пишет неверная капча..
может кто-то подскажет в чём може быть проблема.?

код ниже:


procedure TForm1.Button1Click(Sender: TObject);
var
list:tstrings;
jpg: TJpegImage;
z:int64;
N,i:longint;
url,html,s,s2:string;
St:TMemoryStream ;
begin
jpg := TJPEGImage.Create;
St:=TMemoryStream.Create;
Data:=TIdMultiPartFormDataStream.Create;
CookMan:=TidCookieManager.Create(HTTP);

HTTP.CookieManager := CookMan;
HTTP.AllowCookies := True;

List:=tstringlist.Create;
List.Text:=M_list.Text;

For N:=0 to List.count-1 Do
Begin
try
url:=List.Strings[N];
if url[length(url)]<>'/' then
url:=url+'/';

html:=http.Get(url+'index.php?do=register');

for i:=0 to cookman.cookieCollection.count-1 do
t.lines.add(CookMan.cookieCollection. items.cookieText);

HTTP.Request.Referer:=url+'index.php?do=register';

z:=DateTimeToUnix(time);
s:=inttostr(z)+'000';
t.Lines.Add(s);
t.Lines.Add(inttostr(st.Size));

http.Get(url+'engine/modules/antibot.php'{?rndval='+s},St);

for i:=0 to cookman.cookieCollection.count-1 do
t.lines.add(CookMan.cookieCollection. items.cookieText);

st.SaveToFile('key.dat');
jpg.loadfromfile('key.dat');
img.Picture.Bitmap.assign(jpg);

key:='-1';

while key='-1' do
application.ProcessMessages;

for i:=0 to cookman.cookieCollection.count-1 do
t.lines.add(CookMan.cookieCollection. items.cookieText);

HTTP.Request.Referer:=url+'index.php?do=register';

Data.AddFormField('submit_reg','submit_reg');
//Data.AddFormField('registration','');
Data.AddFormField('name',M_login.Text);
Data.AddFormField('password1',M_pass.Text);
Data.AddFormField('password2',M_pass.Text);
Data.AddFormField('email',M_email.Text);
t.Lines.Add(key);
Data.AddFormField('sec_code',key);

html:=HTTP.Post(url+'index.php?do=register',Data);
t.Lines.Add(html);
except
End;
End;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
key:=M_key.text;

end;

---

Palladin   (2009-08-05 11:24:00) [1]

Стену видишь?

---

Мария   (2009-08-05 11:20:00) [2]

Я знаю, что надо сделать )))

---

Сергей М.   (2008-08-10 22:54:00) [3]

> в чём може быть проблема.?
>


В ДНК.

---

Наверх