[F] Post-Datein senden per Delphi

[tkiela]

Hallo.

Ich möchte per Delphi ein Formular auf einer Homepage abschicken.
Meine einfache Frage: wie geht das?^^

Ich wollte bei buffed.de ein Spamprogramm schreiben^^

[Jut4h.tm]

ganz easy geht das .... zieh dir nen idhttpclienten aufs form und nen coockiemanager

function SendPostData(Ahttp: TIdHTTP; const AtoURL: String; const aParams: TStrings): String; //Funktion zum senden von Postdaten mit den Indys
  //Ahttp: Die HTTP Komponente von Indy 8.0 bzw. 9.0
  //AtoURL: An diese URL werden die Informationen gesendet
  //Result: HTML-Ergebnis (Antwort des Scripts)
Var
  lStream: TMemoryStream; //HTML-Result des PHP-Scripts
  lParams: TStringStream;
  I: Integer;
begin
  Result:='';
  if not Assigned(aHttp) then
    exit;
  lStream := TMemoryStream.create;
  lParams := TStringStream.create('');
  try
    AHTTP.Request.ContentType := 'application/x-www-form-urlencoded';

    //Dieser Stream wird letztendlich gesendet
    //Stream mit Werten füllen
    for I:=0 to aParams.Count-1 do
      lParams.WriteString(aParams[I] + '&');

    try
      //Stream an das PHP-Script senden
      AHTTP.Post(AtoURL,
                 lParams,
                 lStream);
    except
      on E: Exception do
        showmessage('Fehler bei der Übertragung: ' + E.Message);
    end;
    SetLength(Result,lStream.Size);
    lStream.Position:=0;
    lStream.ReadBuffer(Result[1],lStream.Size);
  finally
    lParams.Free;
    lStream.Free;
  end;
end;

schreib diese funktion in die unit ...



und dann hier so wird das gepostet ... die wete musste dann halt selber anpassen bei fragen pm

[code] http := TidHTTP.create(idhttp1);
//cookie := TidCookieManager.create(idcookiemanager1);
list := TStringList.create;
try
http.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)';
http.cookiemanager := IdCookieManager1;
http.AllowCookies := true; //wenn dann auch einschalten Wink
http.HandleRedirects := true; //um weiterleitungen zu folgen
list.add('page=index.php?action=login');
list.add('benutzer='+edit1.Text);
list.add('passwort='+edit2.Text);
s := SendPostData(http,'http://www.yooliety.de/index.php?action=login',list);
// s := http.post('https://www.yooliety.de/index.php?action=login',list);
//nun sollte in "s" der quellcode von
memo2.Text:= http.Get('http://www.yooliety.de/nickpage.php?nick=seppi_tm&open=guestbook');
//deiner site sein nachdem du dich eingeloggt hast
finally
http.free;
cookie.free;
list.free;
end;
memo1.Text:=s;
end;

[K1ngC0bra]

Wieso beschäftigen sich Anfänger nicht mit etwas sinnvollem? Wieso ein Spamprogramm? Wie wäre es mit einem Chat/Messanger? Das bruacht man sowieso als Grundlage wenn man wie die meisten hier im Forum einen eigenen RAT programmieren will. Oder ein Player etc. Es gibt soviele möglichkeiten, wieso ein Spamprogramm? Vielleicht bist du ja doch kein Anfänger mehr aber dann solltest du erst recht wissen das es Blödsinn wäre sowas zu programmieren. An alle Leuts da daraußen die Anfänger sind: Beschäftigt euch mit Grundlagen, und nicht mit einem Spamprogramm bei dem ihr sowieso nur Copy & Paste macht. Wer keine Idee hat was er Programmieren kann kann mich geren fragen

[ERRORexe]

Lol sowas solte man nicht unterschtützen eine der beliebsten online rollen spiele Website zu Spammen

mfg ERRORexe