Исходники фейка на дельфи. ( С отправкой логов на почту).

Дело было вечером.. Делать было нечего, решил помочь другу, который увлекся фейками.

Предлагаю вам свой сурец + подробное описание фейка, с отправкой логов на почту, написанного на дельфи.

Из-за проблем с Indy 10 в Borland Delphi 7, будем кодить в Embarcadero RAD Studio XE3. Кстати, я все чаще, для своих проектов использую именно Rad Studio.

Итак, приступим.

Открываем нашу среду разработки, и создаем новый проект. (File -> New -> VLC Forms Application).

Закидываем на форму нужные компоненты, в моем случае это: 2 GroupBox`a, 4 Edit`a, 4 Button`a, 4 label`a, Progressbar, TIdMessage, TIdSMTP, TTimer, и SkinManager ( Дизайн, о нем позже).

Получиться у нас что-то вроде этого:

Спойлер

Далее к событию onClick, для кнопки на которую у нас будет отправка данных на маил, пишем следующий код:

Далее сделаем кнопочки: "Выход", "Автор", и что-то на подобии "Start/go go go".

К событию onClick кнопки, на которую у нас будет "Выход", пишем следующий код:

К событию onClick кнопки, на которую у нас будет "Авторе", пишем следующий код:

К событию onClick кнопки, на которую у нас будет "Авторе", пишем следующий код:

К событию onTimer Таймера, пишем следующий код:

Ну вот в принципе и все. Дизайн не стал описывать. Полные исходники внизу. Все вопросы в коментарии.

 

Спасибо,как раз искал коды

 

Всегда рад, тут я описал чисто отправку логов, по поводу дизайна, могу сделать отдельный урок!