VPF::Программа робот - Форум программистов

Veve

Дата 14.2.2007, 19:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 291
Регистрация: 1.1.2005
Где: Латвия, Рига

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

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

Хотелось спросить вот о чём..
Возможно ли написать такую программу которая бы "нажимала" бы кнопку на какой нибудь веб странице, через какой-то промежуток времени? Если да, то подскажите пожалуйста с чего начать.
А то как-то интерестно стало! И не хотелось бы чтобы этот интерес попросту пропал бы. Зарание спасибо! smile

Alexeis

Дата 14.2.2007, 20:49 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Veve, это не так уж и сложно. Нужно скачать страничку, найти в HTML форме нужные поля, отвечающие за данные, сформировать новую страничку (с заполненными полями) и отправить ее назад серверу. Это если кнопка отвечала за отправку формы. Если кнопка выполняла ява скрипт, то уже сложнее... нужно определить результат, который должен выполнить скрипт.
Это будет случаем не программа для автоматической регистрации или отправки спама?

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Veve

Дата 15.2.2007, 17:36 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 291
Регистрация: 1.1.2005
Где: Латвия, Рига

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

Нет

это просто так для развития...
Не совсем понян правдо...
Ну допустим мне надо чтобы каждые пол часа в поле для ввода на этом форуме появлялся бы смайлик... smile

... Ну тоесть как бы если бы это делал я сам: Нажал на смайлик он появился... потом погулял пол часа ещё пришёл нажал, появился... только автоматом!

creas0ft

Дата 19.2.2007, 13:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

читерство плохо )))
idhttp и embededwb - в поиск по форуму

--------------------

Форум программистов уклонистов в сторону сео-шмео

Matematik

Дата 19.2.2007, 13:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

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

Доступ к DOM Webbrowser.
Тут описание всех интерфейсов.
http://msdn.microsoft.com/workshop/browser...s/interface.asp

Код


uses mshtml;

procedure TForm1.FormCreate(Sender: TObject);
begin
  webbrowser1.Navigate('ya.ru');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  IDoc : IHTMLDocument2;
  IElement : IHTMLElement;
  IInput : IHTMLInputElement;
  IForm : IHTMLFormElement;
  IDisp : IDispatch;
begin
  IDisp := webbrowser1.Document;
  if IDisp.QueryInterface(IHTMLDocument2, IDoc)=S_OK then
  begin
    IDisp := IDoc.forms.item('web',0);
    if IDisp.QueryInterface(IHTMLFormElement, IForm)=S_OK then
    begin
      IDisp := IForm.item('text',0);
      if IDisp.QueryInterface(IHTMLInputElement, IInput)=S_OK then
      begin
        IInput.value := 'привет';
      end;
      IForm.submit;
    end
  end
end;

Veve

Дата 20.2.2007, 15:51 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 291
Регистрация: 1.1.2005
Где: Латвия, Рига

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

Спасибо за помощь! Будем разбираться! smile

Alex103

Дата 17.1.2008, 11:27 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 5.1.2005
Где: Украина, г. Харьк ов

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

Цитата(Matematik @ 19.2.2007, 13:39)

Доступ к DOM Webbrowser.
Тут описание всех интерфейсов.
http://msdn.microsoft.com/workshop/browser...s/interface.asp

Код


uses mshtml;

procedure TForm1.FormCreate(Sender: TObject);
begin
  webbrowser1.Navigate('ya.ru');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  IDoc : IHTMLDocument2;
  IElement : IHTMLElement;
  IInput : IHTMLInputElement;
  IForm : IHTMLFormElement;
  IDisp : IDispatch;
begin
  IDisp := webbrowser1.Document;
  if IDisp.QueryInterface(IHTMLDocument2, IDoc)=S_OK then
  begin
    IDisp := IDoc.forms.item('web',0);
    if IDisp.QueryInterface(IHTMLFormElement, IForm)=S_OK then
    begin
      IDisp := IForm.item('text',0);
      if IDisp.QueryInterface(IHTMLInputElement, IInput)=S_OK then
      begin
        IInput.value := 'привет';
      end;
      IForm.submit;
    end
  end
end;

Вот ты привел код. Но твой код не работает а выводит ошибку, проверь правильность.

--------------------

Мой адресс не дом и не улица, мой адресс WWW

MetalFan

Дата 17.1.2008, 17:39 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

ну вот, воскресил мертвяка

Добавлено через 30 секунд

Цитата(Alex103 @ 17.1.2008, 11:27

)

Но твой код не работает а выводит ошибку, проверь правильность.

смени тон, "командир"

--------------------

There are always someone smarter than you...

Alex103

Дата 18.1.2008, 01:06 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 5.1.2005
Где: Украина, г. Харьк ов

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

Цитата(MetalFan @ 17.1.2008, 17:39)

ну вот, воскресил мертвяка

Добавлено @ 17:39

Цитата(Alex103 @ 17.1.2008, 11:27

)

Но твой код не работает а выводит ошибку, проверь правильность.

смени тон, "командир"

Я интересовался данной темой, и нашел ошибку в забытом, почему бы не разобратся.

--------------------

Мой адресс не дом и не улица, мой адресс WWW

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »