воскресенье, 9 марта 2014 г.

[Delphi] Guerrillamail компонент

Этот компонент предназначен для удобной работы с почтой, а точнее с временной почтой! Зачем регистрировать кучу почтовых ящиков ради одного сайта и тратиться на антигейт, прокси и прочие? Воспользовавшись этим сервисом мы сократим расходы и сделаем регистрацию аккаунтов в несколько раз удобнее и выгоднее!



Компонент работает на Synapse.

Устанавливать не обязательно, можно просто закинуть в папку с программой и подключить в USES модуль GuerrillaMail.pas

Пользоваться просто:

var nemail:TFormatMessage;

GM:=TGM.Create(nil); //создаём компонент

GM.CreateMail; //регистрируем почту

GM.YourEmail; //тут будет наш мэйл на который регать

while nemail.From<>'admin@forum.com' do begin //ждём письмо

 nemail:=GM.CheckNewMail; //проверяем входящие
 if nemail.From='admin@forum.com' then begin
//проверяем отправителя
  nemail:=GM.GetBodyMail(nemail.id);
//получаем тело письма
  nemail.Excerpt; //тут будет тело нужного письма
 end;
end;
GM.Free;

Таким образом можно получить ссылку с подтверждением регистрации и прочее что очень удобно!
 
Буду рад выслушать предложения по улучшению компонента.

http://yadi.sk/d/nq0zXI_xKCwk8

23 комментария:

  1. Спасибо конечно, но вместо того чтобы выкладывать разные стати, исходники и т.д. и т.п. о которых большинство людей представления даже не имеет, то лучше сделайте какой-то многопоток для накрутки соц сетей, или брут/чеккер чего-то там, так как люди каждый день заходят на данный сайт именно для того, чтобы увидеть это. Спасибо.
    П.С. без обид.

    ОтветитьУдалить
    Ответы
    1. Этот компонент я начал делать ещё очень давно, сейчас понадобился в коммерческом проекте и когда я его доделал, то решил выложить. Кто занимается регистрациями разных аккаунтов знает на сколько он может быть полезным.

      Удалить
    2. Спасибо огромное ,то какой пользовался апи навернулось а темпмайл апи не очень.Спасибо огромное.Не вижу смысла в брутах/чекеров кому надо те найдут :)

      Удалить
    3. мне на халяву дал, там код пришёл

      Удалить
  2. Ванс не найдётся бази знаний для IDR на XE1, XE2 ???
    Если так дай свои контакти плз

    ОтветитьУдалить
    Ответы
    1. Спрашивайте у автора, он мне 2010-ю дал бесплатно, главное хорошо попросить. И на сколько я знаю, базы XE* ещё в стадии тестирования.

      Удалить
    2. И все-таки ти гдето писал что те по блату досталось

      Удалить
  3. на ошибки через try except end можно проверять?

    ОтветитьУдалить
    Ответы
    1. Посмотрите код компонента, там написан пример создания ИСКЛЮЧЕНИЯ (не путайте с ошибками!), туда можно вписать что угодно, но лучше смотреть в переменной GM.Response ответ сервера, а там уже по обстановке.

      Удалить
  4. или значения при ошибках выдает какие-то?

    ОтветитьУдалить
  5. Спасибо, как раз для авторегера пригодилось

    ОтветитьУдалить
  6. а сделай пожалуйста такой же исходник для C#

    ОтветитьУдалить
    Ответы
    1. Если Вы знаете си - переделать не составит проблем, всё разбито на функции, если не знаете как - переходите на делфи, компонентов и примеров куча.

      Удалить
  7. Ну пожалуйста переведите. Я абсолютно не знаю delphi. И при этом мне говорят что c# дальновиднее. Мне это нужно для очень серьёзной программы. И пожалуйста учтите то что у меня visual studio c# 2008. Она у меня крякнутая на диске. А на обновления трафика не хватает. Переведешь - буду очень благодарен. Если хочешь за это дам мою программу для заработка!!!

    ОтветитьУдалить
    Ответы
    1. Очевидно что надо было выбирать делфи - это нативный язык. Он тоже развивается и совсем не плохо, к тому же идеальный вариант для написания малвари, а так же есть КУЧА уроков с примерами.

      Кстати, твою "серьёзную" программу отломают глазом не моргнув, весь код добывается рефлектором.

      Удалить
  8. Ванс, я понял тебя . Перешёл на Delphi. Прочёл уже одну книгу по Delphi. Но не могу никак подключить данный компонент к моему проекту. И pasxalabc пробовал и embarcadero rad studio. Ничего не вышло. Пожалуйста сделай на основе этого исходника авторегер по рефферальной ссылке для сайта BongaCams. Кинь пожалуйста связанный рабочий проект(включающий данный компонент для работы с почтой) с исходниками на мыло tlupovislam@gmail.com И пожалуйста добавь в комплекте synapse. И напиши: на какой системе разработки ты сделал этот проект? Заранее благодарю!!! Я был бы очень благодарен за эту услугу!!!

    ОтветитьУдалить
    Ответы
    1. Версия делфи: 2007 - 2010
      Синапс тут: _synapse.ararat.cz/doku.php/download

      Удалить
  9. Ванс прошу сделай авторегер для сайта BongaCams(при регистрации который использует временную почту GuerillaMail) И если можно вышли мне на tlupovislam@gmail.com эту прогу с исходниками(на любом языке но вам наверное предпочтительнее на delphi). Буду очень счастлив за эту услугу. Ванс выполнить пожалуйста мою просьбу. Очень просто надо!!!

    ОтветитьУдалить
    Ответы
    1. http://www.vans-soft.ru/2011/09/mailru-regera.html

      Удалить
    2. А можешь сделать авторегер для bongacams. Ну пожалуйста!!!!

      Удалить
    3. Есть исходник регера с основными принципами и есть компонент с подробностями. Делай, это просто.

      Удалить
    4. Ну ванс пожалуйста . буду благодарен

      Удалить