|
Бот автоголосования с использованием POST запросов - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе |
28.05.2015, 04:28
|
#1
|
|
|
|
Разведчик
|
Регистрация: 31.08.2013
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Бот автоголосования с использованием POST запросов
Здравствуйте форумчане
Есть такой вопрос.
Нужно написать программу автоголосования.
Суть проста
На сайте есть ComboBox с выбором оценки (1-5)
И кнопочка голосовать.
При нажатии на кнопку 'Голосовать' засчитывается голос и информация о том, что было совершено голосование, заносится в куки, а в это время сниффер отлавливает 5 пар-ов: - rating = 4 +++
Выбор оценки от 1-5 (но отсчёт на сайте ведётся от 0-4)
В данном случае продемонстрирован пример с голосованием на оценку 5
- sessid = 4a7a04cf33d6a869c82d02b4e95b467c
- back_page = /edu/projects/70-let-pobedy/ml2.php?ELEMENT_ID=6553
- vote_id = 6553
- 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) Как вообще запустить программу, что бы она заработала?
Последний раз редактировалось DikanYa; 28.05.2015 в 04:44.
|
|
|
28.05.2015, 20:34
|
#2
|
|
|
|
Пехотинец
|
Регистрация: 27.12.2011
Сообщений: 73
Популярность: 2425
Сказал(а) спасибо: 334
Поблагодарили 57 раз(а) в 27 сообщениях
|
Re: Бот автоголосования с использованием POST запросов
Думаю, там проверка по айпи стоит.
Вот мой код:
Код:
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;
|
|
|
29.05.2015, 02:25
|
#3
|
|
|
|
Разведчик
|
Регистрация: 31.08.2013
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Бот автоголосования с использованием POST запросов
|
|
|
29.05.2015, 07:12
|
#4
|
|
|
|
Сержант
|
Регистрация: 18.07.2013
Сообщений: 148
Популярность: 83981
Сказал(а) спасибо: 564
Поблагодарили 258 раз(а) в 195 сообщениях
|
Re: Бот автоголосования с использованием POST запросов
|
|
|
29.05.2015, 11:14
|
#5
|
|
|
|
Разведчик
|
Регистрация: 31.08.2013
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Бот автоголосования с использованием POST запросов
|
|
|
29.05.2015, 11:31
|
#6
|
|
|
|
Сержант
|
Регистрация: 18.07.2013
Сообщений: 148
Популярность: 83981
Сказал(а) спасибо: 564
Поблагодарили 258 раз(а) в 195 сообщениях
|
Re: Бот автоголосования с использованием POST запросов
Вы sessid правильно вытаскиваете по GET-запросу?
|
|
|
29.05.2015, 12:11
|
#7
|
|
|
|
Пехотинец
|
Регистрация: 27.12.2011
Сообщений: 73
Популярность: 2425
Сказал(а) спасибо: 334
Поблагодарили 57 раз(а) в 27 сообщениях
|
Re: Бот автоголосования с использованием POST запросов
MembRupt, тут проверка по айпи имеет быть место думаю)
|
|
|
29.05.2015, 12:44
|
#8
|
|
|
|
Сержант
|
Регистрация: 18.07.2013
Сообщений: 148
Популярность: 83981
Сказал(а) спасибо: 564
Поблагодарили 258 раз(а) в 195 сообщениях
|
Re: Бот автоголосования с использованием POST запросов
|
|
|
29.05.2015, 13:54
|
#9
|
|
|
|
Пехотинец
|
Регистрация: 27.12.2011
Сообщений: 73
Популярность: 2425
Сказал(а) спасибо: 334
Поблагодарили 57 раз(а) в 27 сообщениях
|
Re: Бот автоголосования с использованием POST запросов
MembRupt, ну глянь предложенный мною код. Там ведь куки всегда новые и с нуля, а голосовать по многу раз не выходит. Проверял)
|
|
|
30.05.2015, 02:32
|
#10
|
|
|
|
Разведчик
|
Регистрация: 31.08.2013
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Бот автоголосования с использованием POST запросов
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 10:49.
|
|