Авторизация даркорбит

[fokuus]

procedure TForm2.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('[Ссылки могут видеть только зарегистрированные и активированные пользователи]');
end;

procedure TForm2.Button2Click(Sender: TObject);
html_elements: OleVariant;
i,j: integer;
begin
for j := 0 to WebBrowser1.OleObject.Document.Forms.length - 1 do begin
html_elements := WebBrowser1.OleObject.Document.forms.item(j).eleme nts;
for i := 0 to (html_elements.length - 1) do
begin
if (html_elements.item(i).name = 'log') then
html_elements.item(i).value:=edit1.text;
if (html_elements.item(i).name = 'pwd') then
html_elements.item(i).value:=edit2.text;
if (html_elements.item(i).Value = 'Войти') then
html_elements.item(i).Click;
end;
end;
end.
что то типа того? почитал на одном сайте , но что то не работает, хотя там у всех работает , где то есть ошибка?

[Роспотребнадзор]

Лично у меня, вот этот код работает:


var
Http : Tid[Ссылки могут видеть только зарегистрированные и активированные пользователи]
data: TstringList;
html1,html2,html3:string;

begin
HTTP := TId[Ссылки могут видеть только зарегистрированные и активированные пользователи](nil); // HTTP
[Ссылки могут видеть только зарегистрированные и активированные пользователи] := True;
[Ссылки могут видеть только зарегистрированные и активированные пользователи] := True;
[Ссылки могут видеть только зарегистрированные и активированные пользователи] :='Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
[Ссылки могут видеть только зарегистрированные и активированные пользователи] := IdCookieManager1;

data:=TstringList.Create; //создаем список
data.Add('loginForm_default_username='+sEdit1.Text ); //ник
data.Add('loginForm_default_password='+sEdit2.Text ); //пароль
data.Add('loginForm_default_login_submit=Вход');

html1:=form1.id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',data);//Посылаем данные на сервер
if pos('[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+sEdit3.text+'.darkorbit.bigpoint.com/',Html1)=0 then//проверяем наличие надписи в полученном коде
begin
ShowMessage('Неверные данные!');//есле надписи нет тогда показать это сообщение
exit
end
else // есле есть продолжить
begin
html2:=pars('[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+sedit3.Text+'.darkorbit.bigpoint.com/GameAPI.php?req=',html1,'&ref_pid=');//спарсить ссылку для входа на сервер
if pos(sedit3.Text,html1)=0 then

begin
Showmessage('Ошибка входа на сервер');
exit
end
else
html3:=form1.id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+form1.sedit3.text+'.darkorbit.bigpoint.com/GameAPI.php?req='+html2);// отправляем нашу ссылку на сервер
data.Free;//очищаем дату
smemo1.Lines.Add('Авторизация прошла успешно!');


function pars(s_, s, _s: string): string;
var
p:integer;
_s_: string;
begin
_s_ := copy(s, pos(s_, s) + length(s_), length(s) - pos(s_, s) - length(s_));
p := pos(_s, _s_);
result := copy(_s_, 1, p - 1);
end;

[metraz]

procedure TForm2.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('[Ссылки могут видеть только зарегистрированные и активированные пользователи]');
end;

procedure TForm2.Button2Click(Sender: TObject);
html_elements: OleVariant;
i,j: integer;
begin
for j := 0 to WebBrowser1.OleObject.Document.Forms.length - 1 do begin
html_elements := WebBrowser1.OleObject.Document.forms.item(j).eleme nts;
for i := 0 to (html_elements.length - 1) do
begin
if (html_elements.item(i).name = 'log') then
html_elements.item(i).value:=edit1.text;
if (html_elements.item(i).name = 'pwd') then
html_elements.item(i).value:=edit2.text;
if (html_elements.item(i).Value = 'Войти') then
html_elements.item(i).Click;
end;
end;
end.
что то типа того? почитал на одном сайте , но что то не работает, хотя там у всех работает , где то есть ошибка?


Авторизация через webbrowser? Что может быть хуже, есть же инди

[megbum]

Была же тема аворизация дарк орбит, только ее закрыли,но я той авторизацией пользуюсь

[Skrillex3]

я той авторизацией пользуюсь
а свою написать слабо?

[VeTaL_UA]

а свою написать слабо?
а для этого надо 20 минут поработать мозгом. слишком сложно /md

[[Na`Vi]DendI]

Лично у меня, вот этот код работает:


var
Http : Tid[Ссылки могут видеть только зарегистрированные и активированные пользователи]
data: TstringList;
html1,html2,html3:string;

begin
HTTP := TId[Ссылки могут видеть только зарегистрированные и активированные пользователи](nil); // HTTP
[Ссылки могут видеть только зарегистрированные и активированные пользователи] := True;
[Ссылки могут видеть только зарегистрированные и активированные пользователи] := True;
[Ссылки могут видеть только зарегистрированные и активированные пользователи] :='Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
[Ссылки могут видеть только зарегистрированные и активированные пользователи] := IdCookieManager1;

data:=TstringList.Create; //создаем список
data.Add('loginForm_default_username='+sEdit1.Text ); //ник
data.Add('loginForm_default_password='+sEdit2.Text ); //пароль
data.Add('loginForm_default_login_submit=Вход');

html1:=form1.id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',data);//Посылаем данные на сервер
if pos('[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+sEdit3.text+'.darkorbit.bigpoint.com/',Html1)=0 then//проверяем наличие надписи в полученном коде
begin
ShowMessage('Неверные данные!');//есле надписи нет тогда показать это сообщение
exit
end
else // есле есть продолжить
begin
html2:=pars('[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+sedit3.Text+'.darkorbit.bigpoint.com/GameAPI.php?req=',html1,'&ref_pid=');//спарсить ссылку для входа на сервер
if pos(sedit3.Text,html1)=0 then

begin
Showmessage('Ошибка входа на сервер');
exit
end
else
html3:=form1.id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+form1.sedit3.text+'.darkorbit.bigpoint.com/GameAPI.php?req='+html2);// отправляем нашу ссылку на сервер
data.Free;//очищаем дату
smemo1.Lines.Add('Авторизация прошла успешно!');


function pars(s_, s, _s: string): string;
var
p:integer;
_s_: string;
begin
_s_ := copy(s, pos(s_, s) + length(s_), length(s) - pos(s_, s) - length(s_));
p := pos(_s, _s_);
result := copy(_s_, 1, p - 1);
end;

моя авторизация,а говорили она уже не работает /dgs

[VeTaL_UA]

Так вы определитесь, работает она или нет /md 100500 ноющих сообщений в твоей теме, что код не рабочий, естественно, я её закрыл, тут говорят, что всё работает. Что вообще творится /horror

[Softwarer]

анархия - мать порядка. /okay

[Роспотребнадзор]

VeTaL_UA, код рабочий на 99%.
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
В этом посте указано, что надо подправить, что бы код был полностью рабочим

[R.A.Z.O.R.]

DendI;3424308']моя авторизация,а говорили она уже не работает /dgs

OMG! WTF ??? !!!