спарсить сид

[metraz]

В общем пишу я прогу , в ней нужна авторизация. Судя по моим наблюдениям, сид выдается сразу при заходе на даркорбит.ком. Я и через поз пытался вытащить(dosid:=copy(s,x1,32)), и через copy и через delete, но получалось так, что sid, который выдала прога отличается от настоящего. Уже все перекопал, не могу отрыть ошибку. Прошу вас, дать кусок кода, который парсит сид, желательно с объяснениями. Спасибо.

[victor20011]

сид выдеться когда ты уже зашол на аккаунт
так что сначало авторизуйся а потом парси сид

[metraz]

мне нужно это для регстрации акка, я не знаю что ему не хватает, но пишет прога, что не удалось зайти на выбор расы. Я просто только вчера начал изучать инди в делфи и много чего еще не знаю. Вот кусок кода.
Data := TStringList.Create;
sMemo1.Lines.Add('Начинаем процесс...');
s:= idHTTP1.Get('http://www.darkorbit.com');
if length(s)=0 then sMemo1.Lines.Add('не открылась страница ') else
begin sMemo1.Lines.Add('Вошли на страницу регистрации...');
data.Add('aid=0');
data.Add('acm=');
data.Add('acr=25');
data.Add('aip=');
data.Add('locale=ru');
data.Add('signup_username='+sEdit1.text);
data.Add('signup_password='+sEdit2.text);
data.Add('signup_passwordRepeat='+sEdit2.text);
data.Add('signup_email='+sEdit4.Text);
data.Add('signup_instance=45');
data.Add('signup_birthdayDay=1');
data.Add('signup_birthdayMonth=2');
data.Add('signup_birthdayYear=1970');
data.Add('signup_country=RU');
data.Add('signup_province=');
data.Add('signup_winnings=0');
data.Add('signup_termsAndCondition=1');
data.Add('signup_newsletter=1');
data.Add('signup_submit=%D0%A0%D0%B5%D0%B3%D0%B8%D 1%81%D1%82%D1%80%D0%B0%D1%86%D0%B8%D1%8F');
data.Add('lang=ru');
sMemo1.Lines.Add('регаемся...');
go:=idhttp1.post('ru1.darkorbit.bigpoint.com',data );
s:=idhttp1.Get('http://ru1.darkorbit.bigpoint.com/indexInternal.es?action=internalCompanyChoose');

if pos('выбери свою компанию',s)>0 then begin smemo1.lines.Add('зашли на выбор рассы');
x1:=pos('dosid=',s)+6;
dosid:=copy(s,x1,32);
showmessage(dosid);
s:=idhttp1.get('http://ru1.darkorbit.bigpoint.com/indexInternal.es?action=internalCompanyChoose&fact ionID=1');
smemo1.Lines.Add('выбираем марс...');
smemo1.Lines.Add('пытаемся зайти на акк...');
s:=idhttp1.Get('http://ru1.darkorbit.bigpoint.com/indexInternal.es?action=internalStart');
if pos('Изменить данные',s)>0 then smemo1.lines.add('зашли!!!') else smemo1.lines.add(' НЕ зашли!!!');
end
else smemo1.lines.add('не удалось войти на выбор расы');
end;

[[Na`Vi]DendI]

Цитата: Сообщение от metraz s:=idhttp1.Get('http://ru1.darkorbit.bigpoint.com/indexInternal.es?action=internalCompanyChoose');

Цитата: Сообщение от metraz t('http://ru1.darkorbit.bigpoint.com/indexInternal.es?action=internalStart');

Регаешь аккаунт на германию 1 а запрос выбора компании на ру1 ??
и как насчет капчи ?

[metraz]

с капчей я разберусь потом, щас я уже код переписал иначе, но ничего не изменилось.
data.Add('aid=0');
data.Add('acm=');
data.Add('acr=25');
data.Add('aip=');
data.Add('locale=ru');
data.Add('signup_username='+sEdit1.text);
data.Add('signup_password='+sEdit2.text);
data.Add('signup_passwordRepeat='+sEdit2.text);
data.Add('signup_email='+sEdit4.Text);
data.Add('signup_instance=68');
data.Add('signup_birthdayDay=1');
data.Add('signup_birthdayMonth=2');
data.Add('signup_birthdayYear=1970');
data.Add('signup_country=RU');
data.Add('signup_province=');
data.Add('signup_winnings=0');
data.Add('signup_termsAndCondition=1');
data.Add('signup_newsletter=1');
data.Add('signup_submit=Регистрация');
data.Add('lang=ru');
sMemo1.Lines.Add('регаемся...');
s:=idhttp1.post('ru1.darkorbit.bigpoint.com/',data);
Reg.Free;
Data.Free;
if pos('выбери свою компанию',s)>0 then begin smemo1.lines.Add('зашли на выбор рассы');
s:=idhttp1.get('http://ru1.darkorbit.bigpoint.com/indexInternal.es?action=internalCompanyChoose&fact ionID=1');
smemo1.Lines.Add('выбираем марс...');
smemo1.Lines.Add('пытаемся зайти на акк...');
s:=idhttp1.Get('http://ru1.darkorbit.bigpoint.com/indexInternal.es?action=internalStart');
if pos('Изменить данные',s)>0 then begin smemo1.lines.add('зашли!!!');
regsid.Expression:='dosid=(.*?)"';
showmessage(regsid.Match[1]);
end
else smemo1.lines.add(' НЕ зашли!!!');
end
else smemo1.lines.add('не удалось войти на выбор расы');}
end;
end;
end;


В мемо после надписи "регаемся" больше ничего не появляется. Значит прога не может зайти на выбор расс. Капчу реализую позже, когда доделаю регу.