Форум: "Сети";
Текущий архив: 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.005 c