Отправляется GET запрос(а надо POST)

@Nice-crazy · Регистрация: 10.03.2013

Author24 — интернет-сервис помощи студентам

Тут отправляется GET запрос с моей программы

Тут отправляется POST запрос с другой программы не моей

Как сделать чтоб в моей программе было как в 2 случае
Просто создаю программу для накрутки голосов на мониторингах и немогу понять как отсниферить запрос когда голос + идет когда сниферю выходит http://cs16servera.ru/up/ ....помогите
вот код

Delphi

procedure TForm1.Button2Click(Sender: TObject);
var
  Flags, Headers, TargetFrameName, PostData: OLEVariant;
  Url, Ref: string;
  IEApp: OLEVariant;
begin
  Flags := '1';
  TargetFrameName := '';
  PostData := '';
  Url := 'http://cs16servera.ru:80/up/';
  Ref := 'http://cs16servera.ru/serv-'+Form1.Edit1.Text+'/';
  // u cannot navigate to the url above without this referer
  Headers := 'Referer: ' + Ref + #10 + #13;
  Webbrowser1.Navigate(Url, Flags, TargetFrameName, PostData, Headers);
end;

@Nice-crazy · 10.03.2013, 19:57 **[ТС]**

Тот код что выше просто для примера но он не подходит...не дает +1 голос

Добавлено через 1 минуту
skype crazy-rulez добавте покажу обьясню...для вас это будет легко=)

Добавлено через 1 минуту
во 2 скрине чуть не ак как должно быть там нет referer я просто не тот процес сфоткал=)

@Rurr · 11.03.2013, 00:17

Delphi

var
data:TStringList;
begin
Data:=TStringList.Create;
Data.add('login=Vasya');    //в запросе передаются данные, сформируй запрос из данных
Data.add('pass=Vasya1990');
idHTTP1.Post('http://adres.zaprosa.com/script.php', Data); //отправит пост запрос с логином и паролем
end;

@Nice-crazy 5 / 5 / 5 Регистрация: 10.03.2013 Сообщений: 139
	10.03.2013, 19:57 [ТС]	2
	Тот код что выше просто для примера но он не подходит...не дает +1 голос Добавлено через 1 минуту skype crazy-rulez добавте покажу обьясню...для вас это будет легко=) Добавлено через 1 минуту во 2 скрине чуть не ак как должно быть там нет referer я просто не тот процес сфоткал=) 0

	11.03.2013, 00:17