Форум АНТИЧАТ - ProxyFucker by elimS или как быстро накрутить посещения по ссылке

ProxyFucker by elimS или как быстро накрутить посещения по ссылке

07.09.2008, 01:34

elimS2

Постоянный

Регистрация: 21.03.2008

Сообщений: 400

Провел на форуме:
1606680

Репутация: 367

Отправить сообщение для elimS2 с помощью ICQ

ProxyFucker by elimS или как быстро накрутить посещения по ссылке

Предистория:

Думаю всем часто попадались ссылки вроде этих:

http://uzhgorodelims.myminicity.com/ind - Перейдя по этой ссылке вы приведете в этот город еденицу индустрии. Идея построить свой город.

или например: http://fishki.net/fun/opengirl.php?fun_og=maNJOQzKYUfE - Перейдя по этой ссылке, вы откроете мне плюс одну фотографию интимного содержания.

Под новый год популярным становиться как можно больше позвать по своей рефссылке пользователей и вырастить свою елочку.

Иногда бывает интересно действительно посмотреть, что будет, если по Вашей рефссылке ломанеться народ. Но как-то откровенно влом спамить всем своим контактам в асе и бегать по ирц-каналам прося народ зайти по ссылке.

Но зачем нам, опытным пользователям компьютера, страдать такой херней? Особенно если мы знаем что есть такое, как прокси.

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

Написал для себя, а потом подумал почему б не выложить. Может кому пригодиться.

Итак скрины и описание возможностей программы:

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

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

Кнопка "Старт": собственно начинаем работу. Начинает заходить по ссылке с самого начала списка проксей, когда дойдет до последней - начинает покругу, снова с первой . Не забудьте заполнить поля с ссылкой, временем и списком проксей.

Кнопка "Стоп": останавливает работу, но открытое окошко интернет експлорера не закрывает. Можно использовать в качестве паузы.

Кнопка "Открыть файл с проксями": открывает диалоговое окно, где Вы выбираете текстовый файл со списком прокси. Список должен быть в таком формате:

proxy:рort

Пример:

Код:

200.19.159.34:3128
193.136.191.26:3128
72.36.112.74:3128
194.36.10.154:3124
142.150.238.13:3128
156.17.10.52:3124
130.37.198.243:3124
193.167.182.130:3124
64.157.13.111:80
208.185.127.41:80
218.103.71.153:80
216.194.70.3:8118

Кнопка "Продолжить": после того как вы остановили работу кнопкой "Стоп", вы можете продолжить работу с той прокси, на которой остановились. А не с самого начала списка. Так же эту кнопку можно использовать как "next", тоесть когда программа работает, перескочить на следующую проксю, не задерживаясь на текущей.

Поле readonly "Текущая прокся": указывает через какую проксю мы сейчас лезем.

Поле readonly "Номер прокси в листе": номер текущей прокси в листе. Сделано для того, чтоб знать на каком этапе прохождения всего листа мы находимся.

Ну и самое большее поле ввода "Поле для проксей":
Сюда загружаеться список прокси из файла. Также в него можно ручками копипастнуть список.

Теперь раскажу о принципе работы:
Как я уже выше писал, эту програмку я создавал на скору руку, не хотел сильно заморачиваться и пошел самым легким путем. После того как Вы нажимаете кнопочку старт, в настройках InternetExplorer (через реестр) включаеться использование прокси и там же указываеться какое именно прокси. После чего запускаеться InternetExplorer с заходом на ссылку. Отсчитываеться время, которое Вы указали. InternetExplorer закрываеться и открываеться с ипользованием следующей прокси. Имейте ввиду, что закрываються все копии InternetExplorerа со всеми вкладками, но так как очень мало из нас используют этот браузер для серфинга, то это не проблема. При закрытии программы использование прокси отключаеться. И еще одна "фича" - когда вы закрываете програмку, в директории где эта програмка находиться, создаеться текстовый файл saves.txt. Внутри которого:

Код:

C:\Documents and Settings\elimS\Desktop\_proxy.txt
http://free-proxy.org.ua/proxy-judge.php
15
6

Первая строка - адрес к вашему файлу с проксям
Вторая строка - ссылка
Третья строка - с каким периодом заходить
Четвертая строка - на какой проксе мы остановились

При следуйщем запуске программы - автоматически подгрузиться список проксей с последнего файла.
Сылка и время уже будут введены в соответсвующие поля. Ну и Вам надо нажать только на кнопку "продолжить" - и программа начнет с того места, на котором мы предыдущий раз остановились.

Скачать ProxyFucker:
http://narod.ru/disk/2450791000/ProxyFucker.rar.html

Скачать Сорсы:
http://narod.ru/disk/2455362000/source.rar.html

pass: forum.antichat.ru

Исходный код программы, написанной на Delphi7:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,ShellAPI, ExtCtrls, registry ;

type
  TForm1 = class(TForm)
    ButtonStart: TButton;
    Timer1: TTimer;
    OpenDialog1: TOpenDialog;
    ButtonOpen: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Edit4: TEdit;
    Label2: TLabel;
    ButtonStop: TButton;
    ButtonContinue: TButton;
    Memo1: TMemo;
    procedure ButtonStartClick(Sender: TObject);
    procedure ButtonStopClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ButtonOpenClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ButtonContinueClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   Reg : TRegistry;
  i,j,Lines_Count:integer;
  knopky_nazali:boolean;
  saves_file:TextFile;
  dir,temp:string;
  b:byte;

implementation

{$R *.DFM}

procedure TForm1.ButtonStartClick(Sender: TObject);
begin  
Lines_Count:=Form1.Memo1.Lines.Count ;
j:=0;
i:=0;
knopky_nazali:=true;
Timer1.Enabled:=true;
 if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings', True)
    then Reg.WriteInteger('ProxyEnable',1);
end;

procedure TForm1.ButtonStopClick(Sender: TObject);
begin
Timer1.Enabled:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var t:string;
t2:pchar;
begin
if knopky_nazali = true then begin
if i = 0 then i:=strtoint(edit2.text);
if  i = strtoint(edit2.text) then begin
 if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings', True)
    then Reg.WriteString('ProxyServer',form1.memo1.lines.Strings[j]);
    t:='explorer ' + char(34) + edit1.text + char(34);
    t2:=pchar(t);
    WinExec( t2 , SW_SHOW);
    edit3.Text:=form1.memo1.lines.Strings[j];
    edit4.Text:=inttostr(j) + ' èç ' + inttostr(Lines_Count);
    Append(saves_file);
    Writeln(saves_file,OpenDialog1.FileName);
    CloseFile(saves_file);

end;
dec(i);
if i = 0 then begin
WinExec('taskkill /f /im iexplore.exe ', SW_SHOW);
inc(j);
if j > Lines_Count then j:=0;
end;
end;
end;

procedure TForm1.ButtonOpenClick(Sender: TObject);
begin
 if OpenDialog1.Execute and FileExists(OpenDialog1.FileName) then Form1.Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Reg := TRegistry.Create;
 Reg.RootKey:=HKEY_CURRENT_USER;
 b:=0;
 knopky_nazali:=false;
 getdir(b,dir);
 AssignFile(saves_file, dir + '\saves.txt');
 If(FileExists('saves.txt'))Then begin
  Reset(saves_file);
  Readln(saves_file,temp); if FileExists(temp) then begin
   OpenDialog1.FileName:=temp; //filename
   Form1.Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
  end;
  Readln(saves_file,temp); edit1.text:=temp;           //url
  Readln(saves_file,temp); edit2.text:=temp;           //time
  Readln(saves_file,temp); edit4.text:=temp; if temp<>'' then j:=strtoint(edit4.text);  // # of proxy
  CloseFile(saves_file);
 end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Rewrite(saves_file);
  Writeln(saves_file,OpenDialog1.FileName);
  Writeln(saves_file,edit1.text);
  Writeln(saves_file,edit2.text);
  Writeln(saves_file,inttostr(j));
  CloseFile(saves_file);
  if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings', True)
    then Reg.WriteInteger('ProxyEnable',0);
end;

procedure TForm1.ButtonContinueClick(Sender: TObject);
begin
WinExec('taskkill /f /im iexplore.exe ', SW_SHOW);
Lines_Count:=Form1.Memo1.Lines.Count ;
inc(j);
if j >= Lines_Count then j:=0;
i:=0;
Reg := TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
knopky_nazali:=true;
Timer1.Enabled:=true;
end;

end.

Все пожелания и сведения о ошибках пишите сюда. Приятно использования

Надеюсь кому-то пригодиться.

PS: прошу прощения у модеров если запостил не в ту ветку форума или не выполнил одно из условий темы.

Последний раз редактировалось elimS2; 07.09.2008 в 15:06..