Вашият спамер в Delphi, DELPHI и HACKER, Статии, Програмиране - C, Delphi, C# програмиране

Както вече разбрахте от заглавието на статията, ще напишем програма за изпращане на спам. За да постигнем нашата цел, се нуждаем от набор от компоненти на SakEmail. Може лесно да бъде намерен на www.torry.net.

Няколко думи за този набор от компоненти. Всички компоненти са безплатни и идват в изходен код, така че ако искате, можете да ги подобрите. Не би трябвало да има проблеми с инсталацията, тествах на Delphi 6.7 и в двата случая инсталацията мина като по часовник.

Всичко, с всички дребни проблеми, подредени, сега нека да преминем към писането на самата програма. Създайте нов проект и пуснете следните компоненти в главния формуляр:

1). Седемте компонента на TEdit

2). Един TMemo компонент

3). Един TListBox

4). Четири ТБутона

5). Два TOpenDialogs

6). SakMsg, SakSmtp

7). Един TProgressBar

Можете да видите формата ми на снимката по-долу.

Всичко, нашата форма е готова, време е да преминем към писане на код. Създайте OnClick процедура за бутон, при щракване на който ще посочим пътя към нашия спам списък. Имам този бутон, разположен срещу първия ред. Напишете следния код в процедурата:

Тук присвояваме пътя към нашия спам списък на първия ред.

Сега, като натиснете този бутон, ще се появи стандартен диалогов прозорец за отваряне на файл. Сега нека напишем кода за бутона за добавяне. Този бутон ще добавя прикачени файлове към имейли. Така че кодът на процедурата е:

Изтрийте маркирания път на файла

Сега създайте процедура OnClick за бутона Изпращане и напишете следния код:

---