Модераторы: Snowy, Poseidon, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вход в админку ucoz, автоматизация входа 
:(
    Опции темы
ozzii
Дата 31.8.2009, 07:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

доброе время суток!

одноименный сабжу вопрос: нужно автоматизировать индексацию сайта в поисковиках, для этого нужно автоматизировать вход в админ-панель ucoz, желательно с помощью indy а не webbrowser. как сделать это?
PM MAIL   Вверх
niteo
  Дата 31.8.2009, 07:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 129
Регистрация: 23.11.2006
Где: Брянск

Репутация: 1
Всего: 1
А в чем у тебя возникает трудность?
Как я понял ты хочешь чтобы ее тебе написали? smile
--------------------
Мне чужого лишнего не нада.Ешь ананасы, рябчиков жуй,день твой последний приходит, буржуй...
PM MAIL   Вверх
ozzii
Дата 31.8.2009, 07:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

Репутация: нет
Всего: нет
Цитата(niteo @ 31.8.2009,  07:24)
А в чем у тебя возникает трудность?
Как я понял ты хочешь чтобы ее тебе написали? smile


нет, не хочу.

а трудность в том, что у меня на данный момент есть вот такой код:

Код

var
ovElements: OleVariant;
i: Integer;
begin
ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
for i := 0 to (ovElements.Length - 1) do
if (ovElements.item(i).type = 'submit') and (ovElements.item(i).Value = 'Вход') then
ovElements.item(i).Click;
end;



но он не работает. кроме того я пытался выполнить вход с помощью idhttp - также безуспешно. 
проблем с заполнением полей логин-пароль нет.

Это сообщение отредактировал(а) ozzii - 31.8.2009, 07:56
PM MAIL   Вверх
niteo
Дата 31.8.2009, 08:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 129
Регистрация: 23.11.2006
Где: Брянск

Репутация: 1
Всего: 1
Пробуй что то вроде этого
Код

  sl := TStringList.Create;
  sl.Add('user=aaaaaaaa');
  sl.Add('password=bbbbbbbb');
  try
     s := IdHTTP1.Post('http://MEGASAIT.ucoz.ru/panel/sub/',tL);
  finally
     sl.Free;
  end;


Добавлено через 2 минуты и 48 секунд
Цитата(ozzii @  31.8.2009,  07:42 Найти цитируемый пост)
кроме того я пытался выполнить вход с помощью idhttp - также безуспешно. 
проблем с заполнением полей логин-пароль нет.


А с чем проблема?
--------------------
Мне чужого лишнего не нада.Ешь ананасы, рябчиков жуй,день твой последний приходит, буржуй...
PM MAIL   Вверх
ozzii
Дата 31.8.2009, 08:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

Репутация: нет
Всего: нет
Цитата(niteo @ 31.8.2009,  08:22)
Пробуй что то вроде этого
Код

  sl := TStringList.Create;
  sl.Add('user=aaaaaaaa');
  sl.Add('password=bbbbbbbb');
  try
     s := IdHTTP1.Post('http://MEGASAIT.ucoz.ru/panel/sub/',tL);
  finally
     sl.Free;
  end;



это не работает. 
именно так я и делал до того, как на olevariant перешел
PM MAIL   Вверх
Magister Y0da
Дата 31.8.2009, 08:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зелёненький
*


Профиль
Группа: Участник
Сообщений: 235
Регистрация: 30.11.2004

Репутация: нет
Всего: 2
покажи код формы входа
--------------------
PM MAIL ICQ   Вверх
niteo
Дата 31.8.2009, 08:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 129
Регистрация: 23.11.2006
Где: Брянск

Репутация: 1
Всего: 1
Цитата(ozzii @  31.8.2009,  08:29 Найти цитируемый пост)

это не работает. 
именно так я и делал до того, как на olevariant перешел 


Что не работает???? Говорит ошибку? если да, то какую????
--------------------
Мне чужого лишнего не нада.Ешь ананасы, рябчиков жуй,день твой последний приходит, буржуй...
PM MAIL   Вверх
ozzii
Дата 31.8.2009, 13:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

код входа с помощью idhttp:

Код

...
uses IdMultipartFormData;
...

var data: TIdMultiPartFormDataStream;
login, pass: string;
begin
login:= 'admin';
pass:= 'mypass';
  data:=TIdMultiPartFormDataStream.Create;
  data.AddFormField('user', login);
  data.AddFormField('password', pass);
// тут идут 2 скрытых поля, их походу тоже надо заполнить
  data.AddFormField('a', 'dologin');
  data.AddFormField('ss', '1');
   try
    memo1.Text := idHTTP1.Post('http://mysite.3dn.ru/admin/', data)
    finally
  data.Free;
  idhttp1.Disconnect;
    end;


нет ошибок не было, просто в мемо возвращает главнyю страницу сайта, а в админку не заходит (
PM MAIL   Вверх
Magister Y0da
Дата 31.8.2009, 14:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зелёненький
*


Профиль
Группа: Участник
Сообщений: 235
Регистрация: 30.11.2004

Репутация: нет
Всего: 2
я имел виду HTML
--------------------
PM MAIL ICQ   Вверх
ozzii
Дата 31.8.2009, 18:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

любой укозовский сайт с приставкой /admin/
к примеру
Код

http://lost-abc.ru/admin/


или нужен конкретный сайт на укоз для теста?

Это сообщение отредактировал(а) ozzii - 31.8.2009, 19:02
PM MAIL   Вверх
mr_smit
Дата 31.8.2009, 19:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 254
Регистрация: 27.2.2008
Где: Самара

Репутация: 3
Всего: 4
Вот что шлет браузер при авторизации на твоём сайте:

user posted image

Надо отправлять то же самое. 

Код

procedure TForm1.Button1Click(Sender: TObject);
var lData: TStringList;
    pass:  String;
begin
  pass:='123';  // твой пароль

  lData := TStringList.Create;
  lData.Add('user=');
  lData.Add('password='+pass);
  lData.Add('submsetup.x=0');
  lData.Add('submsetup.y=0');
  lData.Add('a=dologin');
  lData.Add('ss=1');
  lData.Add('yjd1332465386=457932');
  Memo1.Text:=IdHTTP1.Post('http://lost-abc.ru/panel/sub/', lData);
  lData.Free;
end;


Кидаешь на форму IdHTTP и IdCookieManager. У IdHTTP в свойстве CookieManager выбираешь IdCookieManager1. HandleRedirects устанавливаешь в true.

Насколько я понимаю yjd1332465386 и 457932 это твой идентификатор в системе ucoz.

В Memo1 будет текст страницы после авторизации.  smile 

Присоединённый файл ( Кол-во скачиваний: 11 )
Присоединённый файл  UCOZ.rar 3,03 Kb
PM MAIL   Вверх
Magister Y0da
Дата 31.8.2009, 20:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зелёненький
*


Профиль
Группа: Участник
Сообщений: 235
Регистрация: 30.11.2004

Репутация: нет
Всего: 2
mr_smit, а это что за окно перехвата?
--------------------
PM MAIL ICQ   Вверх
mr_smit
Дата 31.8.2009, 21:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 254
Регистрация: 27.2.2008
Где: Самара

Репутация: 3
Всего: 4
Дополнение Tamper Data для Mozilla.
PM MAIL   Вверх
ozzii
Дата 31.8.2009, 22:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

Репутация: нет
Всего: нет
Цитата(mr_smit @  31.8.2009,  19:34 Найти цитируемый пост)
Насколько я понимаю yjd1332465386 и 457932 это твой идентификатор в системе ucoz.


это не идентификатор, это походу скрипт java который генерирует случайное поле и значение. как получить эти значения если они каждый раз другие?
PM MAIL   Вверх
ozzii
Дата 1.9.2009, 09:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

Репутация: нет
Всего: нет
народ, так что, нет надежды вход автоматизировать? (
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0909 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.