Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Накрутчик баннера

Автор: serezhka1986 10.7.2009, 11:49

Хочу написать накрутчик баннера. Вопрос: Как это лучше реализовать?
Вроде надо сделать такую штуку: выбрать из списка прокси (чтоб сменился 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;

Может кто знает в чем ошибка???!!!

Автор: serezhka1986 11.7.2009, 13:59

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

Автор: Keeper89 11.7.2009, 16:10

Может это поможет:
http://forum.vingrad.ru/index.php?showtopic=148980&view=findpost&p=1118763

Автор: serezhka1986 11.7.2009, 17:29

если честно, то это мне не очень помогло... :-(

Автор: serezhka1986 11.7.2009, 21:19

Перепробовал все... Ничего не могу понять: код, который написан выше, иногда проскакивает и IP меняется, а так всегда выскакивает ошибка
user posted image

Скину еще исходник того что делаю, может кто разберется в чем дело... smile

Автор: Chonga 13.7.2009, 02:04

Во-первых: красть - грешно : ) это про накрутку.
Во-вторых: непонятно вообще зачем юзается twebbrowser. Автокликер, в котором самому надо кликать ручками - довольно странный автокликер.
В-третьих: Все равно побанят, если траф проксевый пойдет исключительно.
В-четвертых: По коду - нехорошо освобождать указатель на структуру, если ты ее еще планируешь использовать.

Автор: serezhka1986 13.7.2009, 13:44

twebbrowser использую чтобы после входа на сайт после смены прокси еще осуществлялось несколько переходов по сайту.
Можно конкретнее по коду, лучше примерчик если есть другой способ это сделать или исправить старый код.
А на счет накрутки, то я знаю что это нехорошо, но хочется попробовать. smile

Автор: Chonga 13.7.2009, 16:03

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

Код


  PIInfo^.lpszProxy := PChar(proxy);
  PIInfo^.lpszProxyBypass := nil; // <-- вот так, например, допиши и будет тебе счастье.
  UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo,SizeOf(Internet_Proxy_Info), 0);