|
Модераторы: Snowy, Poseidon, MetalFan |
|
nod3264 |
|
|||
Шустрый Профиль Группа: Участник Сообщений: 68 Регистрация: 2.8.2009 Репутация: нет Всего: 1 |
Подскажите где найти актуальный Протокол [email protected]?
Это сообщение отредактировал(а) nod3264 - 4.10.2009, 14:45 |
|||
|
||||
Telepyz |
|
|||
Шустрый Профиль Группа: Участник Сообщений: 119 Регистрация: 9.7.2007 Репутация: нет Всего: 1 |
--------------------
обновить драйвер |
|||
|
||||
nod3264 |
|
|||
Шустрый Профиль Группа: Участник Сообщений: 68 Регистрация: 2.8.2009 Репутация: нет Всего: 1 |
А компонентом есть? Это я видел, хотелось бы компонент
|
|||
|
||||
Данкинг |
|
|||
Yersinia pestis Профиль Группа: Завсегдатай Сообщений: 8302 Регистрация: 7.11.2006 Где: მოსკოვი Репутация: 1 Всего: 130 |
Какой ещё компонент - вроде как TicqClient? Угу, размечтался. -------------------- There's nothing left but silent epitaphs. |
|||
|
||||
nod3264 |
|
|||
Шустрый Профиль Группа: Участник Сообщений: 68 Регистрация: 2.8.2009 Репутация: нет Всего: 1 |
Да, типа него... Вообще нету или никто не выкладывает? а за $?
|
|||
|
||||
Proxin |
|
|||
Опытный Профиль Группа: Участник Сообщений: 363 Регистрация: 21.6.2008 Репутация: 1 Всего: 3 |
Есть опенсорсный клиент andml - сайт его andml.org.ru. Тоже на дельфи, посмотри их реализацию протокола.
Вообще, совет - реализуй по спецификации на сайте. Учись. В крайнем случае смотри и понимай, как реализовано у них. А то так дальше формочек с одной-двумя кнопками не пойдёшь. К слову, я не видел ни одного рабочего клиента аськи на ticqclient. |
|||
|
||||
Rodeon |
|
|||
Шустрый Профиль Группа: Участник Сообщений: 124 Регистрация: 28.8.2008 Где: Россия, Ухта Репутация: нет Всего: нет |
По этому протоколу есть хороший, рабочий компонент для делфей, с небольшим примером!
Компонент маленько резаный, убрана часть с отправкой СМСок, что бы не делали СМС спамеры! Лично пользовался, все работает! Примеры выложить не могу, все дома! Если что завтра! Тут! |
|||
|
||||
darkmamba |
|
|||
Шустрый Профиль Группа: Участник Сообщений: 98 Регистрация: 16.10.2008 Репутация: 1 Всего: 1 |
Выложи плз исходники, если есть отправка смсок то будет просто гуд!
Это сообщение отредактировал(а) darkmamba - 26.10.2009, 19:44 |
|||
|
||||
Rodeon |
|
|||
Шустрый Профиль Группа: Участник Сообщений: 124 Регистрация: 28.8.2008 Где: Россия, Ухта Репутация: нет Всего: нет |
Так вот по этой ссылке как раз можно качнуть и сам компонент и есть несколько примеров, сюда все писать смысла нету, так как объем большой.
Ссылка |
|||
|
||||
darkmamba |
|
|||
Шустрый Профиль Группа: Участник Сообщений: 98 Регистрация: 16.10.2008 Репутация: 1 Всего: 1 |
протокл сменился, поснифав, кажется какойто RAND_ID добавился, как вычесляется - хз, какойто код кудрявый в оле запарился сидеть... ктонибуть пробовал разобратся?
|
|||
|
||||
Rodeon |
|
|||
Шустрый Профиль Группа: Участник Сообщений: 124 Регистрация: 28.8.2008 Где: Россия, Ухта Репутация: нет Всего: нет |
Сменилась версия, с 1.7 на 1.12 в файле proto смените цифру - все будет ОК!
Проверил - все работает после смены версии и не работает, т.е. не коннектиться до смены! |
|||
|
||||
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 найденных контактов! В прикрепленном компоненте кажись урезанный вариант для рассылки СМСок, но в инете видел полный такой же компонент с указанием где и что именно измененно и путем обратных изменений получаем готовый СМС спаммер, сам не скажу точно, правда или нет, так как СМС меня не сильно интересовало! Присоединённый файл ( Кол-во скачиваний: 139 ) Mrim.rar 29,96 Kb |
||||||||||||||
|
|||||||||||||||
Sukablia |
|
|||
Новичок Профиль Группа: Участник Сообщений: 2 Регистрация: 26.11.2009 Репутация: нет Всего: нет |
А как получить Имя Фамилия и т.д. Залогинившегося аккаунта?)
|
|||
|
||||
Sukablia |
|
||||
Новичок Профиль Группа: Участник Сообщений: 2 Регистрация: 26.11.2009 Репутация: нет Всего: нет |
Сделал вот так:
|
||||
|
|||||
alf138 |
|
|||
Бывалый Профиль Группа: Участник Сообщений: 161 Регистрация: 15.11.2009 Репутация: нет Всего: нет |
Rodeon, а не подскажите где можно скачать ваш компонент MailClient а то все ссылки битые а поиск в гугле не дал результатов.
|
|||
|
||||
wed |
|
|||
Новичок Профиль Группа: Участник Сообщений: 1 Регистрация: 4.11.2010 Репутация: нет Всего: нет |
ничего из этого не работает. если у кого нибудь получилось отпишитесь пожалуйста!
|
|||
|
||||
Rodeon |
|
|||
Шустрый Профиль Группа: Участник Сообщений: 124 Регистрация: 28.8.2008 Где: Россия, Ухта Репутация: нет Всего: нет |
Исходник работающий и сам компонент с уже измененной версией, на момент написания сообщения все работает (коннектится, отправляет смс)
Присоединённый файл ( Кол-во скачиваний: 107 ) 1.rar 198,91 Kb |
|||
|
||||
Norfonzor |
|
|||
Шустрый Профиль Группа: Участник Сообщений: 121 Регистрация: 17.10.2008 Репутация: нет Всего: нет |
Rodeon, во время установки mrim, в pworks.pas появляется ошибки:
Помогите установить компонент! |
|||
|
||||
Rodeon |
|
|||
Шустрый Профиль Группа: Участник Сообщений: 124 Регистрация: 28.8.2008 Где: Россия, Ухта Репутация: нет Всего: нет |
Пользуюсь 7 delphi. Выбираем Component - Install Component. В строке Unit file name указываем путь к файлу client.pas
жмем ОК опять заходим в Component - New component. В Ancestor type набираем Tmail (после ввода tma остальное сам добьет). В Pallete page выбираем куда установить - жмем Install Не забываем добавлять путь к компоненту в библеотеке Tools - Enviroment options - Library - Library path |
|||
|
||||
Norfonzor |
|
|||
Шустрый Профиль Группа: Участник Сообщений: 121 Регистрация: 17.10.2008 Репутация: нет Всего: нет |
Rodeon, спс за помощь! Программа из проекта не хотела работать. Переделал ее немножко. Рабочий экземпляр: http://webfile.ru/placed?id=4920688
Это сообщение отредактировал(а) Norfonzor - 23.11.2010, 13:02 |
|||
|
||||
poisk |
|
||||
Новичок Профиль Группа: Участник Сообщений: 1 Регистрация: 12.12.2010 Репутация: нет Всего: нет |
Можно дополнить компонент, чтобы он принимал и телефонные номера. Они перечисляются через запятую в строке.
Для этого нужно подправить файл pworks.pas:
И файл client.pas:
В нём так же надо дополнить заголовки функции OnContact, чтобы она возвращала и значение Phone. Полностью изменённые файлы в архиве. Присоединённый файл ( Кол-во скачиваний: 46 ) mrim.rar 6,73 Kb |
||||
|
|||||
Cash1 |
|
|||
Новичок Профиль Группа: Участник Сообщений: 2 Регистрация: 6.1.2012 Репутация: нет Всего: нет |
у меня не получается поиск , пожалуста помогите!!!!
|
|||
|
||||
Rodeon |
|
|||
Шустрый Профиль Группа: Участник Сообщений: 124 Регистрация: 28.8.2008 Где: Россия, Ухта Репутация: нет Всего: нет |
Поднял клиентский протокол до 1.13 Добавил 2 параметры: x_status, unknown (другого названия не придумал, скорее всего - что слушает в данный момент пользователь из поиска).
Появились возможносмть видеть x_status. Поиск работает, странно что запускается не с первого раза, приходиться 3-4 раза запрос сделать прежде чем выдаст результат, а дальше уже как по маслу. Пока работает. Внесенные изменения:
Присоединённый файл ( Кол-во скачиваний: 39 ) agent_protocol.rar 14,92 Kb |
|||
|
||||
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 Присоединённый файл ( Кол-во скачиваний: 83 ) client.rar 14,97 Kb |
|||
|
||||
ZCoder |
|
|||
Новичок Профиль Группа: Участник Сообщений: 2 Регистрация: 14.2.2012 Репутация: нет Всего: нет |
Добрый день!
Можно еще раз перезалить файл последний, а тоссылка битая. |
|||
|
||||
Rodeon |
|
|||
Шустрый Профиль Группа: Участник Сообщений: 124 Регистрация: 28.8.2008 Где: Россия, Ухта Репутация: нет Всего: нет |
Нормальная ссылка. Все качается. Боюсь что именно этого файла в том виде что тут уже у меня нету - давно видоизменен.
|
|||
|
||||
Q98 |
|
||||
Новичок Профиль Группа: Участник Сообщений: 1 Регистрация: 25.4.2014 Репутация: нет Всего: нет |
Здравствуйте. Извиняюсь, что поднимаю старую тему. Хочется узнать, как можно узнать ответ на выполнение команды?
В инди можно так увидеть:
С этим компонентом не могу разобраться, посмотрел уже весь client.pas. Подскажите. |
||||
|
|||||
winner13 |
|
|||
Новичок Профиль Группа: Участник Сообщений: 4 Регистрация: 21.4.2012 Репутация: нет Всего: нет |
Понятно, что какахи мамонта поднимать не комильфо, но это лучше чем плодить темы.
Установил компонент под XE7, не работает зараза, где - то наткнулся, что работает только с седьмым делфи. Может кто помочь с установкой под ХЕ или рад 2010? Возможно я неправильно поправил либы... Вроде всё делаю правильно:
Прикрепляю ниже отредактированные мной либы. Это сообщение отредактировал(а) winner13 - 14.7.2016, 02:30 Присоединённый файл ( Кол-во скачиваний: 1 ) Mrim.7z 13,04 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. |