 |
|
16.04.2010, 17:13
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
С нами:
8556802
Репутация:
79
|
|
aydar
showmessage(x.version);
Где X - любой компонент инди.
|
|
|
16.04.2010, 17:17
|
|
Участник форума
Регистрация: 12.11.2009
Сообщений: 160
С нами:
8681602
Репутация:
11
|
|
http://slil.ru/28968531
|
|
|
|
16.04.2010, 17:44
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
С нами:
8556802
Репутация:
79
|
|
aydar, вот попробуй
Код:
procedure TForm1.btn1Click(Sender: TObject);
var
params : tstringlist;
begin
params := TStringList.Create;
try
params.Add('back=http://mail.rambler.ru/mail/startpage');
params.Add('login=логин');
params.Add('domain=rambler.ru');
params.Add('passw=пароль');
mmo1.Text := IdHTP1.Post('http://id.rambler.ru/script/auth.cgi',params);
finally
if Pos('logout',mmo1.Text)>0 then
ShowMessage('âîøëè');
params.Free;
end;
end;
В idhttp - AllowCookie = false. |
|
|
|
16.04.2010, 19:16
|
|
Участник форума
Регистрация: 29.08.2008
Сообщений: 151
С нами:
9315854
Репутация:
107
|
|
Сообщение от EndLeSSDre@M
ну можешь без нее... просто она исходную ссылку делает... можешь сразу
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
var StrPage, ssylka:string;
Data:TstringList;
begin
idhttp1.HandleRedirects:=true;
Data:=TstringList.Create;
Data.Add('st.posted=set');
Data.Add('st.email='+Edit1.Text);
Data.Add('st.password='+Edit2.Text);
Data.Add('button_go=Войти');
StrPage:=idhttp1.Post('http://id.rambler.ru/script/auth.cgi', Data);
if Pos('Logoff', StrPage)<>0 then
Label3.Caption:='Залогинились'
else Label3.Caption:='Не получилось';
Data.Free;
end;
это у меня просто с другого сайта было... там так надо было делать...
Называется "Скопируй чужой код, замени "odnoklassniki.ru" на "rambler.ru" и выдай за свой!))
Это код из моего урока про авторизацию на одноклассниках. И это точно не "у меня просто с другого сайта".
Как ты там про других говоришь... "очередной быдло кодер"?
|
|
|
|
16.04.2010, 19:22
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами:
8850305
Репутация:
259
|
|
Сообщение от ZdezBilYa
Называется "Скопируй чужой код, замени "odnoklassniki.ru" на "rambler.ru" и выдай за свой!))
Это код из моего урока про авторизацию на одноклассниках. И это точно не "у меня просто с другого сайта".
Как ты там про других говоришь... "очередной быдло кодер"?
если ты не заметил, то я не говорил что это мой код!
да говорю! и буду говорить, если вижу что элементарные вещи сделать не могут и собираются что то стоящее написать...
|
|
|
|
16.04.2010, 19:32
|
|
Участник форума
Регистрация: 29.08.2008
Сообщений: 151
С нами:
9315854
Репутация:
107
|
|
Сообщение от EndLeSSDre@M
если ты не заметил, то я не говорил что это мой код!
да говорю! и буду говорить, если вижу что элементарные вещи сделать не могут и собираются что то стоящее написать...
По твоим постам не заметно, что ты сам что-то понимаешь в запросах. Человек попросил помочь с авторизацией на рамблере, а ты скопировал код для авторизации на одноклассниках, заменив ссылку. Спрашивается зачем? На рамблере естественно он работать не будет. Если просто как пример запроса, то зачем заменять ссылку. Это только вводит в заблуждение всех
|
|
|
|
16.04.2010, 19:37
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами:
8850305
Репутация:
259
|
|
Сообщение от ZdezBilYa
По твоим постам не заметно, что ты сам что-то понимаешь в запросах. Человек попросил помочь с авторизацией на рамблере, а ты скопировал код для авторизации на одноклассниках, заменив ссылку. Спрашивается зачем? На рамблере естественно он работать не будет. Если просто как пример запроса, то зачем заменять ссылку. Это только вводит в заблуждение всех
я не спорю, я не умею пользоваться запросами... все никак заняться не могу, виноват. Но как и большинство других, я учусь по другим примерам... смотрю примерное решение и переделываю под себя... думаю и этот код можно переделать под себя, после работы снифера.
|
|
|
|
17.04.2010, 17:51
|
|
Участник форума
Регистрация: 12.11.2009
Сообщений: 160
С нами:
8681602
Репутация:
11
|
|
Сообщение от fenixelite
aydar, вот попробуй
Код:
procedure TForm1.btn1Click(Sender: TObject);
var
params : tstringlist;
begin
params := TStringList.Create;
try
params.Add('back=http://mail.rambler.ru/mail/startpage');
params.Add('login=логин');
params.Add('domain=rambler.ru');
params.Add('passw=пароль');
mmo1.Text := IdHTP1.Post('http://id.rambler.ru/script/auth.cgi',params);
finally
if Pos('logout',mmo1.Text)>0 then
ShowMessage('все ок!!!');
params.Free;
end;
end;
В idhttp - AllowCookie = false.
В роде щас без ошибок, но запускаю проект и он сразу исчезает вот код:
procedure TForm1.Button1Click(Sender: TObject);
var
params : tstringlist;
begin
params := TStringList.Create;
try
params.Add('back=http://mail.rambler.ru/mail/startpage');
params.Add('login=ëîãèí');
params.Add('domain=rambler.ru');
params.Add('passw=ïàðîëü');
memo1.Text := IdHTTP1.Post('http://id.rambler.ru/script/auth.cgi',params);
finally
if Pos('logout',memo1.Text)>0 then
ShowMessage('все ок');
params.Free;
end;
end;
Последний раз редактировалось aydar; 17.04.2010 в 17:54..
|
|
|
|
17.04.2010, 18:20
|
|
Участник форума
Регистрация: 12.11.2009
Сообщений: 160
С нами:
8681602
Репутация:
11
|
|
хм, может это у меня с идни что-то, а ту такое твориться со всеми прогами с инди
|
|
|
|
17.04.2010, 18:20
|
|
Участник форума
Регистрация: 02.02.2010
Сообщений: 107
С нами:
8563393
Репутация:
28
|
|
дайте кто-то мыло-ящик, регать парит
на винсоке накатаю
|
|
|
|
|
|
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для [stranger]](/avatars/avatar113122.png?3){kind=avatar}
Похожие темы
Линейный вид
