Нужна помощь по Delphi Вкратце: Нужно написать функцию спама лс на сайте vceti.by Скинул HTTP Analyzer но не получается в нём тольком разобраться.. пытался набросать что то но думаю что иду совсем не в том направлении.. направьте на путь истинный Code: begin http:=TIdHTTP.Create(nil); cook:=TIdCookieManager.Create(nil); http.CookieManager:=cook; http.HandleRedirects:=true; http.AllowCookies:=true; s:=TStringList.Create; s.Add('act=sent'); s.Add('to_id'+edit3.text); s.Add('message='+edit4.text); try resp:=http.Post('http://vseti.by/mail.php', s); if pos('good', resp)>0 then begin resp:=UTF8ToAnsi(http.Get('http://vseti.by/mail.php'+resp)); result:=resp; end; except end; http.Free; cook.Free; s.Free; end;
В s должно быть: act=sent ajax=1 chas= нужно парсить to_id= id кому title= тема message= сообщение from_box=1 r=0 pm_id=0
