Форум: "Сети";
Текущий архив: 2012.01.15;
Скачать: [xml.tar.bz2];

Вниз

Регестарция в WordPress   Найти похожие ветки 

← →
Doc.X   (2008-08-09 23:10) [0]

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

код ниже:


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;

---

← →
Сергей М. ©   (2008-08-10 22:54) [1]

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


В ДНК.

---

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

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

---

← →
Palladin ©   (2009-08-05 11:24) [3]

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

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2012.01.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.003 c