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

[fokuus]

procedure TForm2.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.darkorbit.ru');
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).elements;
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  : TidHttp;
data: TstringList;
html1,html2,html3:string;

begin
HTTP := TIdHTTP.Create(nil); // HTTP
HTTP.HandleRedirects := True;
HTTP.AllowCookies := True;
HTTP.request.useragent :='Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
HTTP.CookieManager := 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.idhttp1.post('http://darkorbit.bigpoint.com/?locale=ru&aid=0',data);//Посылаем данные на сервер
if pos('http://'+sEdit3.text+'.darkorbit.bigpoint.com/',Html1)=0 then//проверяем наличие надписи в полученном коде
begin
ShowMessage('Неверные данные!');//есле надписи нет тогда показать это сообщение
exit
end
else // есле есть продолжить
begin
html2:=pars('http://'+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.idhttp1.Get('http://'+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]

Цитата: Сообщение от fokuus procedure TForm2.Button1Click(Sender: TObject); begin WebBrowser1.Navigate('http://www.darkorbit.ru'); 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).elements; 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]

Цитата: Сообщение от megbum я той авторизацией пользуюсь

а свою написать слабо?

[VeTaL_UA]

Цитата: Сообщение от Skrillex3 а свою написать слабо?

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

[[Na`Vi]DendI]

Цитата: Сообщение от РОСПОТРЕБНАДЗОР Лично у меня, вот этот код работает: var Http : TidHttp; data: TstringList; html1,html2,html3:string; begin HTTP := TIdHTTP.Create(nil); // HTTP HTTP.HandleRedirects := True; HTTP.AllowCookies := True; HTTP.request.useragent :='Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0'; HTTP.CookieManager := 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.idhttp1.post('http://darkorbit.bigpoint.com/?locale=ru&aid=0',data);//Посылаем данные на сервер if pos('http://'+sEdit3.text+'.darkorbit.bigpoint.com/',Html1)=0 then//проверяем наличие надписи в полученном коде begin ShowMessage('Неверные данные!');//есле надписи нет тогда показать это сообщение exit end else // есле есть продолжить begin html2:=pars('http://'+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.idhttp1.Get('http://'+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;

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

[VeTaL_UA]

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

[Softwarer]

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

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

VeTaL_UA, код рабочий на 99%.
http://zhyk.ru/forum/showpost.php?p=...4&postcount=18
В этом посте указано, что надо подправить, что бы код был полностью рабочим

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

Цитата: Сообщение от [Na`Vi]DendI моя авторизация,а говорили она уже не работает

OMG! WTF ??? !!!