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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> типа браузер 
:(
    Опции темы
Zorak
Дата 20.8.2011, 18:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 3
Доброго времени суток. Вопрос таков: Мне надо написать программу, которую нигде не будет видно (Трей, процеси (хотя процесы куда не шло, главное трей), в поле где окошка свернутые показываются и т д.) Мало того... Эта программа должна ожидать подключения интернет-соединения и открыть определенную страницу и кликнуть на определенную ссылку (УРЛ страницы есть, УРЛ ссилки нету... известно тольео местоположение ссылки) и главное - этого ничего не должен видеть юзер. Можно ли такое организовать и в какую сторону начинать смотреть ?
Спасибо!


--------------------
Знание - сила. А сила есть, ума не надо...
Занимаюсь интернет бизнесом и ищу новых партнеров. Кому интересно - обращайтесь в ЛС, скайп или мыло.
PM MAIL ICQ   Вверх
14SatanA88
Дата 20.8.2011, 21:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 5
Цитата(Zorak @  20.8.2011,  18:59 Найти цитируемый пост)
Можно ли такое организовать и в какую сторону начинать смотреть ?

можно, но процесс все равно будет висеть.

скрыть прогу от таскбара, не показывать ее в трее... - это уже многократно обсуждалось
погугли
PM MAIL ICQ   Вверх
Zorak
Дата 20.8.2011, 21:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 3
Цитата
можно, но процесс все равно будет висеть.

Это пол беды. 

Цитата
скрыть прогу от таскбара, не показывать ее в трее... - это уже многократно обсуждалось
погугли

Ок, это погуглю, думаю найду.
А вот как насчет
Цитата
в какую сторону начинать смотреть ?

Гуглил.. но столько разных обьяснений что аж страшно немного стало. Это должен быть браузер или это должно быть нечто другое ?...


--------------------
Знание - сила. А сила есть, ума не надо...
Занимаюсь интернет бизнесом и ищу новых партнеров. Кому интересно - обращайтесь в ЛС, скайп или мыло.
PM MAIL ICQ   Вверх
Данкинг
Дата 20.8.2011, 22:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130
Цитата(Zorak @  20.8.2011,  22:35 Найти цитируемый пост)
Это должен быть браузер или это должно быть нечто другое ?... 

Скачай страницу, загрузи её в TStringList, в её тексте найди нужную ссылку. А открыть можно как с помощью TWebBrowser, так и браузером по умолчанию через ShellExecute; это уж как захочешь.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
kami
Дата 20.8.2011, 22:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 6
Всего: 72
Первая же ссылка. Ку?
PM MAIL WWW   Вверх
Poseidon
Дата 21.8.2011, 01:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 4
Всего: 133
Цитата(Zorak @  20.8.2011,  18:59 Найти цитируемый пост)
известно тольео местоположение ссылки
Вот это как? Известно где ссылка в html коде и так: "там слева, сразу за картинкой, что под табличкой"?



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Zorak
Дата 21.8.2011, 08:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 3
Цитата(Poseidon @ 21.8.2011,  01:24)
Вот это как? Известно где ссылка в html коде и так: "там слева, сразу за картинкой, что под табличкой"?

Да, типа чтото того)


--------------------
Знание - сила. А сила есть, ума не надо...
Занимаюсь интернет бизнесом и ищу новых партнеров. Кому интересно - обращайтесь в ЛС, скайп или мыло.
PM MAIL ICQ   Вверх
Чучмек
Дата 22.8.2011, 13:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


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

Репутация: 4
Всего: 41
Код

program Project1;

uses
  Forms,
  SHDocVw,
  activex,
  classes,
  MSHTML,
  windows;




var wb,wb2:twebbrowser;
var stop:boolean=false;

type
 twbtr=class(tthread)
   page_url,go_url:string;
   procedure execute;override;
   procedure DocumentComplete(Sender: TObject; const pDisp: IDispatch;var URL: OleVariant);
   procedure NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);
 end;


procedure twbtr.NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppDisp:=wb2.ControlInterface;
end;

procedure twbtr.execute;
label sud;
begin
page_url:='http://ya.ru/';
with wb do
 begin
// Left:=screen.Width+200;                           //Раскоментировать чтобы скрыть
// Top:=screen.Height+200;                           //Раскоментировать чтобы скрыть
 showwindow(Handle,SW_SHOWNORMAL{ and SW_HIDE});     //Раскоментировать чтобы скрыть
 OnDocumentComplete:=DocumentComplete;
 OnNewWindow2:=NewWindow2;
 end;
with wb2 do
 begin
 Left:={screen.Width+}200;                          //Раскоментировать чтобы скрыть
 Top:={screen.Height+}200;                          //Раскоментировать чтобы скрыть
 showwindow(Handle,SW_SHOWNORMAL{ and SW_HIDE});    //Раскоментировать чтобы скрыть
 OnNewWindow2:=NewWindow2;
 end;
sud:
wb.Navigate(page_url);
{Если надо обработать несколько страниц - ожидаем DocumentComplete; указываем новый page_url, goto sud;
+код завершения по тамауту stop:=true }
end;

procedure twbtr.DocumentComplete(Sender: TObject; const pDisp: IDispatch;var URL: OleVariant);
var s,s1:string;
begin
if TWebBrowser(sender).DefaultInterface=pDisp as IWebBrowser then
 begin
 s:=URL;
 s1:=(TWebBrowser(sender).Document as ihtmldocument2).body.innerHTML;
 //ищем в s1 искомую сылку,сохраняем ее в  go_url, wb2.Navigate(go_url);
 //или загружаем в wb скрипт, который находит сылку и открывает ее в новом окне
 messagebox(0,pchar(s1),pchar(s),0);

 end;
end;


var wbtr:twbtr;



var msg:TMsg;
begin
//
//Здесь цикл проверки-ожидания подключения 
//

coinitialize(nil);
wb :=twebbrowser.Create(nil);
wb2:=twebbrowser.Create(nil);
wbtr:=twbtr.Create(false);
while GetMessage(msg,0,0,0)and not stop do
 begin
 translatemessage(msg);
 DispatchMessage(msg);
 end;
end.


webbrowser далеко не самый лучший вариант.
Если в скрипте страницы будет alert ???
И вообще, очень нехорошо накручивать  клики на рекламу ( обманывая пользователей, создавая трояны/вирусы итп)


--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
Akella
Дата 23.8.2011, 15:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 4
Всего: 329
Zorak, программа, которую ты задумал, называется вирус. Ну если не вирус, то потенциально нежелательная или потенциально опасная. На Винграде обсуждение подобных программ не есть хорошо.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

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

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

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

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

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


 




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


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

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