[Обсуждение] Бот автоголосования с использованием POST запросов

[DikanYa]

Здравствуйте форумчане
Есть такой вопрос.
Нужно написать программу автоголосования.
Суть проста
На сайте есть ComboBox с выбором оценки (1-5)
И кнопочка голосовать.
При нажатии на кнопку 'Голосовать' засчитывается голос и информация о том, что было совершено голосование, заносится в куки, а в это время сниффер отлавливает 5 пар-ов:

1. rating = 4 +++
   Выбор оценки от 1-5 (но отсчёт на сайте ведётся от 0-4)
   В данном случае продемонстрирован пример с голосованием на оценку 5
   
   
2. sessid = 4a7a04cf33d6a869c82d02b4e95b467c
3. back_page = /edu/projects/70-let-pobedy/ml2.php?ELEMENT_ID=6553
4. vote_id = 6553
5. vote = Голосовать

Собственно пытался всё через post запросы сделать
Code Delphi

Цитата: procedure TForm1.btn1Click(Sender: TObject); var post:tstringlist; result: string; begin post:=TStringList.Create; idhtp1.HandleRedirects:=True; try post.add ('rating=4'); post.add ('sessid=4a7a04cf33d6a869c82d02b4e95b467c'); post.add ('back_page=/edu/projects/70-let-pobedy/ml2.php?ELEMENT_ID=6553'); post.add ('vote_id=6553'); post.add ('vote=Голосовать'); result:=idhtp1.Post ('http://edu-new.baltinform.ru/edu/projects/70-let-pobedy/ml2.php?ELEMENT_ID=6553', post); except post.Free; end; end;

Но, что не удивительно - код по неопределённым причинам не работает
Ошибок не выскакивает никаких, но даже 1 голос и то - не засчитывает, не говоря уже о накрутке таким программным способом.
Кто и что может посоветовать по:
1) Как достать сид из исходной страницы, что бы в

Цитата: post.add ('sessid=4a7a04cf33d6a869c82d02b4e95b467c');

записать следущее

Цитата: post.add ('sessid='edit1.text);

(где в edit1.text будет внесён сид)
Code HTML

Цитата: <script type="text/javascript">(window.BX||top.BX).message({'LANGUAGE _ID':'ru','FORMAT_DATE':'DD.MM.YYYY','FORMAT_DATET IME':'DD.MM.YYYY HH:MI:SS','COOKIE_PREFIX':'BITRIX_SM','USER_ID':'' ,'SERVER_TIME':'1432674235','SERVER_TZ_OFFSET':'10 800','USER_TZ_OFFSET':'0','USER_TZ_AUTO':'Y','bitr ix_sessid':'2e1ecbb68f7bd93ecd270225a9f58d13','SIT E_ID':'s1'});</script>

2)Как сделать так, что бы куки при выполнении цикла сохранились, а по окончанию - удалились?
(Ну или, что бы вообще не сохранялись)

3) Как вообще запустить программу, что бы она заработала?

[NebesaBag]

Думаю, там проверка по айпи стоит.
Вот мой код:

function prost(link:String):String;
const pars='<input type="hidden" name="sessid" id="sessid" value="';
var loader:TIdHTTP; post:TStringList; sessid:String;
begin
loader:=TIdHTTP.Create(nil);
loader.AllowCookies:=False;
loader.HandleRedirects:=True;
post:=TStringList.Create;
try
sessid:=Loader.Get(link);
sessid:=copy(sessid,pos(pars,sessid)+Length(pars),32);
post.Add('rating=4');
post.Add('sessid='+sessid);
post.Add('back_page='+copy(link,pos('.ru',link)+3,Length(link)));
post.Add('vote_id='+copy(link,pos('ELEMENT_ID=',link)+11,Length(link)));
post.Add('vote=Голосовать');
Result:=loader.Post(link,post);
except
on e:Exception do Result:='Ошибка: '+E.ClassName+'. С сообщением: '+E.Message;
end;
post.Free;
loader.Free;
end;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Text:=prost('http://edu-new.baltinform.ru/edu/projects/70-let-pobedy/ml2.php?ELEMENT_ID=6553');
end;

[DikanYa]

Цитата: Сообщение от NebesaBag Думаю, там проверка по айпи стоит.

Только куки и ничего больше

Цитата: Сообщение от NebesaBag function prost(link:String):String; const pars='<input type="hidden" name="sessid" id="sessid" value="';

Прошу прощения, но куда это вставлять?

ДО implementation или после?

И если есть возможность, то можно исходник?

[MembRupt]

Цитата: Собственно пытался всё через post запросы сделать

Для запросов нужно точно знать, как передаются параметры, а не наугад

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

Внимательнее используйте сниффер, чтобы увидеть правильный запрос, и повторяйте его программой

Цитата: Как достать сид из исходной страницы

Как написали выше, нужен простой GET-запрос к странице голосования, там и будет ваш sessid

[DikanYa]

Цитата: Для запросов нужно точно знать, как передаются параметры, а не наугад

всё точно через post

Цитата: Внимательнее используйте сниффер, чтобы увидеть правильный запрос, и повторяйте его программой

скопировано 1 в 1
[Ссылки могут видеть только зарегистрированные пользователи. ]

Но при всём при этом код не работает...

[MembRupt]

Вы sessid правильно вытаскиваете по GET-запросу?

[NebesaBag]

MembRupt, тут проверка по айпи имеет быть место думаю)

[MembRupt]

Цитата: Сообщение от NebesaBag MembRupt, тут проверка по айпи имеет быть место думаю)

Если у автора вручную получается голосовать по нескольку раз, очищая cookies, то IP тут не причем

[NebesaBag]

MembRupt, ну глянь предложенный мною код. Там ведь куки всегда новые и с нуля, а голосовать по многу раз не выходит. Проверял)

[DikanYa]

Цитата: Там ведь куки всегда новые и с нуля, а голосовать по многу раз не выходит. Проверял)

тогда - отпадает
Кликер форевер)