Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 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
9-1175164239
crytogen
2007-03-29 14:30
2012.01.15
нарисовать трубу в OpenGL по точкам


2-1317823891
SergP
2011-10-05 18:11
2012.01.15
Рекурсивное описание классов.


15-1317069002
Юрий
2011-09-27 00:30
2012.01.15
С днем рождения ! 27 сентября 2011 вторник


15-1317153552
xayam
2011-09-27 23:59
2012.01.15
ExeClient = WebKit + HTML + CSS + JavaScript


3-1269803253
Andrey2025
2010-03-28 23:07
2012.01.15
Вопрос по Firebird/ interbase Express





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский