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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Накрутчик баннера 
:(
    Опции темы
serezhka1986
  Дата 10.7.2009, 11:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 0
Хочу написать накрутчик баннера. Вопрос: Как это лучше реализовать? 
Вроде надо сделать такую штуку: выбрать из списка прокси (чтоб сменился IP), войти на сайт и кликнуть по баннеру.
Помогите разобраться с прокси!!!!  smile

Добавлено через 8 минут и 32 секунды
Вот нашел в нете такой код, но там какая-то проблема - Вылетает ошибка: Access violation at address **** in module winnet.dll. Read of adress ******
Код

uses
 urlmon, wininet...
...

var
  Form1: TForm1;
  PIInfo: PInternetProxyInfo;
  proxy:string;

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('site.ru');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  New(PIInfo);
  proxy:='прокси:порт';
  PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
  PIInfo^.lpszProxy := PChar(proxy);
  UrlMkSetSessionOption(INTERNET_OPTION_PROXY, 
piinfo,SizeOf(Internet_Proxy_Info), 0);
  Dispose(PIInfo);
  WebBrowser1.Refresh;
end;

Может кто знает в чем ошибка???!!!
--------------------
Для некоторых лучший способ написать что-нибудь осмысленное - это сесть жопой на клавиатуру... 
PM   Вверх
serezhka1986
Дата 11.7.2009, 13:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 0
Нашел в интернете такую прогу. Как осуществить такую же смену IP?  smile 

Присоединённый файл ( Кол-во скачиваний: 9 )
Присоединённый файл  anonimsurfer.rar 318,88 Kb
--------------------
Для некоторых лучший способ написать что-нибудь осмысленное - это сесть жопой на клавиатуру... 
PM   Вверх
Keeper89
Дата 11.7.2009, 16:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 6
Всего: 58
Может это поможет:
http://forum.vingrad.ru/index.php?showtopi...t&p=1118763


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
serezhka1986
Дата 11.7.2009, 17:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 0
если честно, то это мне не очень помогло... :-(
--------------------
Для некоторых лучший способ написать что-нибудь осмысленное - это сесть жопой на клавиатуру... 
PM   Вверх
serezhka1986
Дата 11.7.2009, 21:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 0
Перепробовал все... Ничего не могу понять: код, который написан выше, иногда проскакивает и IP меняется, а так всегда выскакивает ошибка
user posted image
Скину еще исходник того что делаю, может кто разберется в чем дело...  smile 


Это сообщение отредактировал(а) serezhka1986 - 11.7.2009, 21:21

Присоединённый файл ( Кол-во скачиваний: 16 )
Присоединённый файл  Bunner.rar 242,11 Kb
--------------------
Для некоторых лучший способ написать что-нибудь осмысленное - это сесть жопой на клавиатуру... 
PM   Вверх
Chonga
Дата 13.7.2009, 02:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Во-первых: красть - грешно : ) это про накрутку.
Во-вторых: непонятно вообще зачем юзается twebbrowser. Автокликер, в котором самому надо кликать ручками - довольно странный автокликер.
В-третьих: Все равно побанят, если траф проксевый пойдет исключительно.
В-четвертых: По коду - нехорошо освобождать указатель на структуру, если ты ее еще планируешь использовать.
PM MAIL   Вверх
serezhka1986
Дата 13.7.2009, 13:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 0
twebbrowser использую чтобы после входа на сайт после смены прокси еще осуществлялось несколько переходов по сайту. 
Можно конкретнее по коду, лучше примерчик если есть другой способ это сделать или исправить старый код. 
А на счет накрутки, то я знаю что это нехорошо, но хочется попробовать.  smile 
--------------------
Для некоторых лучший способ написать что-нибудь осмысленное - это сесть жопой на клавиатуру... 
PM   Вверх
Chonga
Дата 13.7.2009, 16:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Ну, вообще-то, от ошибки можно избавиться полностью инициализировав структуру.


Код

  PIInfo^.lpszProxy := PChar(proxy);
  PIInfo^.lpszProxyBypass := nil; // <-- вот так, например, допиши и будет тебе счастье.
  UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo,SizeOf(Internet_Proxy_Info), 0);
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

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

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

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

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

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


 




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


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

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