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^^
Druckbare Version
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^^
ganz easy geht das .... zieh dir nen idhttpclienten aufs form und nen coockiemanager
schreib diese funktion in die unit ...Code: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;
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;
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 ;)
Lol sowas solte man nicht unterschtützen eine der beliebsten online rollen spiele Website zu Spammen
mfg ERRORexe