procedure TForm1.Button1Click(Sender: TObject);
var i,l1:integer;
link,wpisz:string;
begin
wpisz:='ref=&ef_id=&server='+edit3.text+'&username='+edit1.text+'&password='+edit2.text+'&submitlogin=Zaloguj';
HTTP := THTTPSend.Create;
HTTP.UserAgent := 'User-Agent: Opera/9.80 (Windows NT 5.1; U; pl) Presto/2.2.15 Version/10.10';
HTTP.MimeType := 'application/x-www-form-urlencoded';
HTTP.Document.Write(Pointer(wpisz)^, Length(wpisz));
HTTP.HTTPMethod('POST', 'http://mojastrona.pl/login/proxy_login.php');
l1:=pos('Location:',HTTP.Headers[3]);
for i:=11 to length(HTTP.Headers[3]) do
link:=link+HTTP.Headers[3][i];
HTTP.Clear;
HTTP.HTTPMethod('GET', link);
HTTP.Clear;
link:='http://s'+edit3.text+'.mojastrona.pl/main.php?ref=';
HTTP.HTTPMethod('GET', link);
button2.enabled:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
wpisz,hpp,linia:string;
l1,l2,i:integer;
begin
HTTP.Clear;
HTTP.HTTPMethod('GET', 'http://s'+edit3.text+'.mojastrona.pl/nachrichten/new.php');
Memo2.Lines.LoadFromStream(HTTP.Document);
linia:=memo2.lines[120];
l1:=pos('name="hpc" value="',linia);
l2:=l1+30+19;
for i:=11+31 to l2 do
hpp:=hpp+linia[i];
wpisz:='hpc='+hpp+'&msg_to='+edit5.text+'&msg_subject='+edit4.text+'&msg_body='+memo1.text+'&msg_send=Wy%C5%9Blij';
HTTP.Clear;
HTTP.Document.Write(Pointer(wpisz)^, Length(wpisz));
HTTP.HTTPMethod('POST', 'http://s'+edit3.text+'.mojastrona.pl/nachrichten/new.php');
memo3.text:=wpisz;
end;
i po pierwszym kliknięciu loguje sie tak jak ma być, ale problem jest w button2 bo zapytanie wysyła ale jest niepoprawne i nic się nie dzieje bo musze pobrać zmienną hpp, a jak otworze tą strone kilka razy to zawsze jest inna, i w tym button2 właśnie pobieram raz strone potem robie co ma wpisać i potem chyba pobiera jeszcze raz i wtedy już hpp jest pewnie inny. To jak działa to: ?
HTTP.HTTPMethod('POST', 'http://s'+edit3.text+'.mojastrona.pl/nachrichten/new.php');
To tylko wysyła na dany adres? czy też pobiera kod?