![]() |
|
Модераторы: Snowy, Poseidon, MetalFan |
![]()
|
|
| Kr0LiK |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 54 Регистрация: 11.1.2006 Репутация: нет Всего: нет |
Помогите немогу понять как это все организовать?
если есть у кого какие нибуть исходники киньте пожалуйста! собственно мучает вопрос как подключиться к серверу и отправлять\получать сообщения? и каким компонентом это лутше зделать???? помогите пожалуйста буду очень признателен. |
|||
|
||||
| bartram |
|
|||
![]() Эксперт ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 1606 Регистрация: 22.2.2004 Где: Russia, Samara Репутация: 1 Всего: 29 |
||||
|
||||
| Kr0LiK |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 54 Регистрация: 11.1.2006 Репутация: нет Всего: нет |
да читал я этот протокол как отправить и принять пакет я просто несобо хорошо понимаю как это делаеться?
|
|||
|
||||
| Matematik |
|
|||
|
Эксперт ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 1027 Регистрация: 11.3.2006 Репутация: 24 Всего: 50 |
Тут http://forum.vingrad.ru/topic-95962.html есть переведенный на delphi *.h файл.
Работать можно через Indy/ Почитай это http://forum.vingrad.ru/topic-85659.html |
|||
|
||||
| Snowy |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 11363 Регистрация: 13.10.2004 Где: Питер Репутация: 53 Всего: 484 |
Чтобы для тебя написали компонент для работы с майлагентом? Тогда тебе на www.vingrad.ru - делай заказ, предлагай цену. Серъёзная работа стоит хороших денег. А нахаляву только хедеры и описание протокола |
|||
|
||||
| Kr0LiK |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 54 Регистрация: 11.1.2006 Репутация: нет Всего: нет |
Сапасибо за информацию но я это все видел!
мне интересен следуйщие факты! работать с ИНДИ можно только с клиентом или же надо использовать и клиент и сервер! И еще тупой вопрос какой командой отправлять пакет через сокет илиже еще как! я с инди неработал! Подскажите пожалуйста буду очень признателен! |
|||
|
||||
| Matematik |
|
|||
|
Эксперт ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 1027 Регистрация: 11.3.2006 Репутация: 24 Всего: 50 |
||||
|
||||
| Kr0LiK |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 54 Регистрация: 11.1.2006 Репутация: нет Всего: нет |
нет такого sendbuffer
есть writebuffer или sendbuffersize |
|||
|
||||
| yXo |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 17.3.2007 Репутация: нет Всего: нет |
Ну, т.к. я сегодня добрый выложу вам исходнички смс сендера на мэйл ру протоколе, скачал когда то давно с одного уже несуществующего сайтика. Можно взять за основу, есть конект к серверу и отправка смс. Не знаю сейчас может уже не робят, но для ознакомления и начала можно использовать. Исходники довольно сыроватые, все естественно на winsock, а не на каких то кривых инди, которые все тут рекламят.
Сам когда то начинал с этих исходников, описания протокола и снифера ;) Потом вкурив протокол создал с нуля уже нормальный компанентик ) Итак качаем тут P.S. В исходниках сделана маленькая ошибка авторами, так сказать антиламер систем, рядовым юзером найдется за 2 минуты.. P.S.S И еще исходнички на питоне - http://svn.xmpp.ru/repos/mrim/src/ Там можно взять заголовочный файлик, ибо он больше чем на мэйл ру ;) |
|||
|
||||
| Rodeon |
|
||||||||||||||
|
Шустрый ![]() Профиль Группа: Участник Сообщений: 124 Регистрация: 28.8.2008 Где: Россия, Ухта Репутация: нет Всего: нет |
По ссылке выше качаем компонент, в нем файлы:
client.dcu proto.dcu pworks.dcu base64.pas client.pas codes.pas proto.pas pworks.pas Делал в Delphi 7, под 2009 чето не получилось установить этот компонент. В делфях через меню Component\Install Component указываем путь к файлу client.pas, жмем ОК, в закладке Sample появился компонент MailClient - кидаем его на форму. Также кидаем TCPClient - он нам нужен будет что бы узнавать адресс на который в последующем будет коннектиться клиент! Кидаем кнопку и пару эдитов! В первый edit вводим свой емайл вида "имя@домен.ру" во второй edit вводим пароль к ящику! Настраиваем пару свойств для TCPClient: RemoteHost:=mrim.mail.ru; RemotePort:=2042; Настраиваем свойства для MailClient: MRIMHost:=mrim.mail.ru; MRIMPort:=2042; для кнопки делаем свойства onclick
Далее обрабатываем соеденение, если оно наступило
Затем еще Проходим авторизацию!
Конечное действие, если все прошло успешно, то подключение заканчивается загрузкой контакт листа
Как примеры: Отправка СМСок:
Edit14 и Edit15 соотвктственно телефон и само собщение! Допустим надо найти людей (со строковыми переменными как передавать не разобрался, майловсцы молчат): Первые три значения пустые - '' так и не понял как передать запрос текстовый, в каком формате! (0-любой пол, 1-мужчина, 2 -женщина) (возраст от) (возраст до) (город, береться по id из базы) (знак зодиака, от 1 до 12) (месяц рождения от 1 до 12) (день рождения от 1 до 31) (страна, опять же из базы, к примеру Россия код:24) значение -1 в числовых параметрах распознаеться как "любое зачение" как пример, что бы найти всех девушек в возрасте от 20 до 30 лет из россии надо передать строку
Все, ловим событие MailClient UserFound, приходит строка со всеми данными о пользователе За раз приходит только 1 найденный контакт, просто ставим событие, что как только находит сразу добавлять например в массив найденных, ищет за раз по 50 контактов, для следующего поиска еще раз отправлячем запрос на поиск.
Таким путем будет в мемо добавленно 50 найденных контактов! В прикрепленном компоненте кажись урезанный вариант для рассылки СМСок, но в инете видел полный такой же компонент с указанием где и что именно измененно и путем обратных изменений получаем готовый СМС спаммер, сам не скажу точно, правда или нет, так как СМС меня не сильно интересовало! Присоединённый файл ( Кол-во скачиваний: 28 )
Mrim.rar 29,96 Kb |
||||||||||||||
|
|||||||||||||||
| Rodeon |
|
|||
|
Шустрый ![]() Профиль Группа: Участник Сообщений: 124 Регистрация: 28.8.2008 Где: Россия, Ухта Репутация: нет Всего: нет |
||||
|
||||
| Rodeon |
|
|||
|
Шустрый ![]() Профиль Группа: Участник Сообщений: 124 Регистрация: 28.8.2008 Где: Россия, Ухта Репутация: нет Всего: нет |
Подправил поля поиска, теперь найденные данные соответствуют названиям полей.
Вот список полей: Username, Domain, Nickname, FirstName, LastName, Sex, Birthday, Zodiac, Country_id, City_ID, Location, Phone, mrim_status, status_uri, status_title, status_desc, ua_features Измененный клиент прикрепил! Осталось пока непонятным в какой кодировке выдаются поля статусов, у меня либо "???" либо пусто пока? Комментарий по status_desc: описание статуса (до 255 символов) Комментарий по status_title: заголовок статуса (до 16 символов) Комментарий по status_uri: STATUS_ONLINE - 'В сети' STATUS_AWAY - 'Отошел' STATUS_INVISIBLE - 'Невидимый' status_chat - 'Готов поболтать' status_dnd - 'Не беспокоить' status_0' - 'Отключен' status_1' - 'В сети' status_2 - 'Отошел' status_3 - ' => 'Невидимый' status_4 - 'Болею' status_5 - 'Дома' status_6 - 'Кушаю' status_7 - 'Где я?' status_8 - 'В туалете' status_9 - 'Готовлю' status_10 - 'Гуляю' status_11 - 'Я Инопланетный разум!' status_12 - 'Йа креветко!' status_13 - 'Я потерялся!' status_14 - 'Я сошел с ума!' status_15 - 'Йа утко!' status_16 - 'Играю' status_17 - 'Курю' status_18 - 'На работе' status_19 - 'На встрече' status_20 - 'Пью пиво' status_21 - 'Пью кофе' status_22 - 'Работаю' status_23 - 'Сплю' status_24 - 'Телефон' status_26 - 'В институте' status_27 - 'В школе' status_28 - 'Вы ошиблись номером' status_29 - ':-D' status_30 - ';-)' status_32 - '} status_33 - '8-)' status_34 - ':-(' status_35 - ':\'(' status_36 - 'В шоке...' status_37 - 'Злюсь!' status_38 - 'Диабло!' status_39 - '(_|_)' status_40 - 'Сердце' status_41 - 'Сплю' status_42 - 'Cool!' status_43 - 'Yo!' status_44 - 'Фига' status_45 - 'Fuck!' status_46 - 'Череп' status_47 - 'Ракета' status_48 - 'Осминог' status_49 - 'Коза' status_50 - 'Bad!' status_51 - 'Белка' status_52 - 'Звезда' status_53 - 'Музыка' Это сообщение отредактировал(а) Rodeon - 30.1.2012, 00:56 Присоединённый файл ( Кол-во скачиваний: 10 )
client.rar 14,97 Kb |
|||
|
||||
![]()
|
| Правила форума "Delphi: Сети" | |
|
|
Запрещено: 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делится вскрытыми компонентами
Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Сети | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |