[Delphi] Как отправить SMS сообщение на компьютер и обработать его =)
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
[Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-25 17:04:40.386666
|
|
|
Geekov
Сообщений: 23
Оценки: 0
Присоединился: 2010-10-25 16:59:20.303333
|
Здравствуйте господа тунеядцы и разбойники! =)
Сегодня мы с вами поговорим о вещице довольно новой и интересной
без которой современному уважающему себя ксакепу не обойтись! =)
А именно о ДжиИИИИнах =) нет-нет, не о тех которые живут в лампах олигархов
на ближнем востоке.
Jinn если кто ещё не знает это такая програмулина которая работает в связке с другой
програмулиной и выполняет ваши пожелания.
В качестве второй програмулины мы возьмём SMSER.
А точнее в качестве Первой.. потому что именно SMSER будет у нас всем руководить а джинн
будет выполнять его прихоти.
находится она здесь http://SMSER.mobi
SMSER это програмка приёмник SMS сообщений…
С её помощью можно отправить себе на компьютер любое SMS сообщение с вашего телефона.
Принцип такой вы скачиваете её себе на компьютер и регистрируетесь!
после регистрации у вас будет свой ID и KEY
ЧТобы отправить SMS себе на компьютер нужно написать:
SMSER 1000:1234 блаблабла
вместо 1000 ваш ID
вместо 1234 ваш KEY
и оправить это на номер 1141
Тут вроде всё просто всё понятно…
Но нам то нужно не блаблабла отправлять а команды для нашего джинна.
Вот и пришла очередь написать свой jinn который будет
выполнять наши команды когда мы отправим SMS сообщение.
На элементарном примере мы рассмотрим как можно отправить SMS и открыть/закрыть CD
Итак берём Delphi =)
procedure Send(Target: Hwnd; Text: PChar);
var
xData: TCopyDataStruct;
begin
xData.cbData:=Length(Text)+1;
xData.lpData:=Text;
SendMessage(Target,WM_COPYDATA,0,LParam(@xData));
end;
procedure TForm1.FormCreate(Sender: TObject);
var
SMSER: Integer;
Prefix, Command: String;
begin
if AnsiLowerCase(ParamStr(1))='jinn' then
begin
SMSER:=StrToInt(ParamStr(2));
Prefix:=Copy(ParamStr(3),0,Pos('#',ParamStr(3)));
Command:=Copy(ParamStr(3),Pos('#',ParamStr(3))+1,Length(ParamStr(3)));
if AnsiLowerCase(Command)='ocd' then
begin
Send(SMSER,PChar(Prefix+'Врага оттолкнул! иду по приборам! =)' );
mciSendString('Set cdaudio door open wait', nil, 0, 0); // Открываем CD
end;
if AnsiLowerCase(Command)='ccd' then
begin
Send(SMSER,PChar(Prefix+'Гаубица заряжена! =)' );
mciSendString('Set cdaudio door closed wait', nil, 0, 0); // Закрываем CD
end;
Halt;
end;
end;
Не забудьте добавить в uses MMSystem,
Схема такая.. по сути Джинн это обычный файл который запускается с 3 параметрами.
Главной его целью является получение и выполнение команды с ответом отправителю.
test.exe jinn 12345 z#ocd
1) указатель - jinn
2) хэндл отправителя - 12345 (SMSER)
3) команда для Джинна - z#ocd
Джинн должен проверить есть ли указатель jinn
если он есть то джинн начинает свою работу…
Джинн получает хэндл отправителя и копирует его в переменную
чтобы в дальнейшем отправить на него ответ.
Далее Джинн приступает к обработке команды
он делит её на 2 части префикс z# и собственно саму команду ocd.
Затем Джинн выполняет команду ocd - Открытие CD
после чего Джинн составляет ответ из префикса z# + сообщение 'Врага оттолкнул! иду по приборам! =)'
и отправляет это на хэндл 12345 (SMSER)
Далее это сообщение уже получает наш SMSER и отправляет его нам на телефон! =)
Всё просто! Осталось только подключить наш джинн к SMSER(у)
Открываем в SMSER(е) Конфигуратор и жмём Добавить
указываем путь к нашему файлу и ставим для нашего джинна префикс z#
Готово! =) теперь когда мы отправим на номер 1141
SMSER 1000:1234 z#ocd
CD откроется и нам на телефон придёт SMS: 'Врага оттолкнул! иду по приборам! =)'
чтобы закрыть CD нужно отправить
SMSER 1000:1234 z#сcd
ещё раз напомню
вместо 1000 ваш ID
вместо 1234 ваш KEY
Разумеется это всего лишь пример!
всегда можно придумать что-нибудь более полезное и интересное =)
например экстренную удалялку секретных файлов на тот случай
если доступ к компьютеру получил злоумышленник а вас рядом нет.
и многое-многое другое =)
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-25 17:08:55.476666
|
|
|
Geekov
Сообщений: 23
Оценки: 0
Присоединился: 2010-10-25 16:59:20.303333
|
Надеюсь сюда можно сразу статью кидать =) если что не ругайтесь))
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-25 17:44:58.430000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
quote:
ORIGINAL: Geekov
и оправить это на номер 1141
Тут вроде всё просто всё понятно…
Да, вы правы, тут всё понятно. Дальше можно не читать ;)
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-25 17:51:18.673333
|
|
|
Geekov
Сообщений: 23
Оценки: 0
Присоединился: 2010-10-25 16:59:20.303333
|
средня цена номера 1141 - 23 рубля
если кому то понадобится думаю не дорого…
PS
+ хорошему народу могу выделить халявные номерки
пишите если кому то это действительно нужно..
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-25 17:54:17.800000
|
|
|
Geekov
Сообщений: 23
Оценки: 0
Присоединился: 2010-10-25 16:59:20.303333
|
народу который будет свои джинны писать причём и полезные!
выделяю номерки по 3 рубля… дешевле просто не реально…
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-25 19:11:44.290000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
quote:
ORIGINAL: Geekov
народу который будет свои джинны писать причём и полезные!
Что такое "джинн"? В чём их практическая польза?
Вот сырцы твоего MMSystem (или как он там) были бы куда полезнее. И в нагрузку - описание всего процесса получения короткого номера, рекомендуемого оператора, смс-сервиса тоже мог бы написать для желающих.
quote:
ORIGINAL: Geekov
выделяю номерки по 3 рубля… дешевле просто не реально…
За такое, вроде, бан полагается?
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-25 19:28:51.343333
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
Если я правильно понял, человек пытается предложить и описать систему удаленного управления компьютером посредством смс. Нечто похожее *только рабочее и реальное* было описано в журнале с использованием протокола Jabber. Сама мысль, что персоналка может ловить SMS немного сомнительна, по крайней мере, до тех пор, пока не появится более подробное описание всей системы. Ссылок на заголовочные файлы не вижу, Delphi-код почти бессодержательный, из всего понятно только, что надо нечто послать на короткий номер… Кэп призывает модератора на голову ТС.
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-25 19:45:08.156666
|
|
|
Geekov
Сообщений: 23
Оценки: 0
Присоединился: 2010-10-25 16:59:20.303333
|
всмысле? за что бан?
есть номер 1141 - 23 рубля
а есть номер 1121 - 3 рубля
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-25 19:47:57.760000
|
|
|
Geekov
Сообщений: 23
Оценки: 0
Присоединился: 2010-10-25 16:59:20.303333
|
Товарищь Genco =) всё правильно понял =)
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-25 19:51:47.700000
|
|
|
Geekov
Сообщений: 23
Оценки: 0
Присоединился: 2010-10-25 16:59:20.303333
|
сейчас ещё раз по подробней!
SMSER это что-то вроде приёмника SMS сообщений(команд) на вашем компьютере…
а Джинны это програмки которые подключаются к SMSER(у) и выполняют команды…
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-25 19:55:54.050000
|
|
|
Geekov
Сообщений: 23
Оценки: 0
Присоединился: 2010-10-25 16:59:20.303333
|
ИНСТРУКЦИЯ:
К стандартной версии SMSER прилагается DemoJINN
который может выполнять различные функции.
Его префикс в конфигураторе - X#
к примеру команда для открытия CD-Rom(a) - OCD
следовательно SMS команда выглядит так:
SMSER 1000:1234 X#OCD
кидаем это сообщение на номер 1141 и CD открывается! =)
PS
вместо 1000 ваш ID
вместо 1234 ваш KEY
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-25 19:58:21.120000
|
|
|
Geekov
Сообщений: 23
Оценки: 0
Присоединился: 2010-10-25 16:59:20.303333
|
подробности тут: http://smser.mobi
Что такое джинн?
Джинн это дополнительная программа которая подключается к smser(у) и выполняет ваши пожелания.
Можно ли сделать свой джинн?
Если вы являетесь разработчиком программного обеспечения то можете легко создавать свои собственные джинны используя для этого JinnAPI.
сурсы: http://smser.mobi/JinnAPI.zip
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-25 20:07:08.540000
|
|
|
Geekov
Сообщений: 23
Оценки: 0
Присоединился: 2010-10-25 16:59:20.303333
|
что не понятного в джиннах? может то что они не обычные длл-ки?
так это специально чтобы каждый джин можно было отдельно настраивать конфигурировать инсталлировать итд…
если есть вопросы спрашивайте! =)
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-25 20:12:49.313333
|
|
|
Geekov
Сообщений: 23
Оценки: 0
Присоединился: 2010-10-25 16:59:20.303333
|
и вот ссылка на сам SMSER:
http://smser.mobi/smser.exe
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-25 20:34:14.930000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Тролль детектед! Пыщь ПЫЩЬ! Отаке!
Убить всю тему!
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-25 20:39:11.936666
|
|
|
Geekov
Сообщений: 23
Оценки: 0
Присоединился: 2010-10-25 16:59:20.303333
|
что??)) какой троль??)) если для тебя это очень сложно нечего на тему пенять… некоторым она может быть очень полезна…
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-26 00:32:41.546666
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Ты предлагаешь пользоваться твоим ПЛАТНЫМ сервисом в разделе, где реклама запрещена. Поправь, если я ошибся. Только укажи, в чём конкретно, а то обять всякой туфты 100500 сообщений напишешь.
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-27 11:13:46.396666
|
|
|
Geekov
Сообщений: 23
Оценки: 0
Присоединился: 2010-10-25 16:59:20.303333
|
я же написал про номер 1121 - 3 рубля
чего я там заработаю?? оператор почти всё себе берёт!
эт смешно))
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-27 13:51:29.886666
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Где админы?
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-27 17:58:59.983333
|
|
|
MotoKiller
Сообщений: 1732
Оценки: 56
Присоединился: 2008-03-02 20:08:53.810000
|
Смотрите мою подпись. Управляем компом по ICQ бесплатно. И никаких там смс.
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-27 19:20:38.010000
|
|
|
Geekov
Сообщений: 23
Оценки: 0
Присоединился: 2010-10-25 16:59:20.303333
|
управление компом через ICQ это как гонки на осле))
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-27 19:42:47.753333
|
|
|
Geekov
Сообщений: 23
Оценки: 0
Присоединился: 2010-10-25 16:59:20.303333
|
плюс я так понимаю телефон должен иметь доступ в интернет?
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-27 20:13:34.103333
|
|
|
CkopnuoH.zkn
Сообщений: 354
Оценки: 0
Присоединился: 2010-02-03 11:06:33.976666
|
Если посудить можно управлять через ICQ компом с компа) (хе) Ну можно конечно уж на телефон асю и все) Получится тоже самое, но первый вариант более удобней ИМХО.
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-27 20:31:04.340000
|
|
|
Geekov
Сообщений: 23
Оценки: 0
Присоединился: 2010-10-25 16:59:20.303333
|
Отправил СМС и дело сделано =) вот самый удобный вариант =)
нужные команды сохраняй в черновиках и всё…..никакой мутатни с этими аськами… доступ в инет даже не нужен))
плюс SMSER программа гибкая и удобная!
но на этом сайте как ни странно одни жмоты собрались вроде _SaZ_ которым 3 рубля за смс жалко)))
мне не понятно им реально жалко этих денег… или они не понимают что это минимальный тариф для такого рода услуг и меньше просто нельзя тк операторы берут себе с этого деньги…
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-27 20:42:58.443333
|
|
|
MotoKiller
Сообщений: 1732
Оценки: 56
Присоединился: 2008-03-02 20:08:53.810000
|
С аси с телефона выйдет дешевле. Да и отчет можно заказать.
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-27 21:01:19.520000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Смс из моей страны на твой сервис стоит 0.35$
Идея хорошая у тебя - накидать веб-сервис на коленке, который редиректит запросы от твоего провайдера смс услуг на нужный комп, база данных на 1-ну таблицу - и делать на этом деньги. .NET, часа 3-4 времени, включая отладку и деплоймент…
Где админы?!
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-27 21:21:49.083333
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
Я в "нарушители форума" сделал запись, но в том разделе все, видимо, очень заняты выяснением, кто на стенку выше писает.
Мне кстати, сначала показалось, что у ТС это нечто вообще не обязательно и работает. Но в любом случае это сути дела не меняет.
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-27 21:26:20.150000
|
|
|
MotoKiller
Сообщений: 1732
Оценки: 56
Присоединился: 2008-03-02 20:08:53.810000
|
С трех рублей хозяин сайте поимеет может рубль. А пользователей может быть очень много.
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-27 23:11:42.226666
|
|
|
Geekov
Сообщений: 23
Оценки: 0
Присоединился: 2010-10-25 16:59:20.303333
|
стукач))) стучишь и даже сам не знаешь на что стучишь)))
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-27 23:15:34.010000
|
|
|
Geekov
Сообщений: 23
Оценки: 0
Присоединился: 2010-10-25 16:59:20.303333
|
и хватит тут рекламировать свою небрежную троянскую Icq control
которая походу реально на коленке сделана))
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-27 23:21:39.410000
|
|
|
Geekov
Сообщений: 23
Оценки: 0
Присоединился: 2010-10-25 16:59:20.303333
|
ЗАВИСТЬ ТОВАРИЩИ! …ЗАВИСТЬ ЖИДНАДЯРЬ ПОГУБИТ =)
вы бы лучше преимущество в таких программах видели а не в чужой карман смотрели)))
а они говорял сколково)) какая тут силиконовая долина когда менталитет совковый))
|
|
|
|
|
RE: [Delphi] Как отправить SMS сообщение на компьютер и обработать его =) - 2010-10-28 00:29:20.813333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Тупой тролль. Примитивный тупой тролль.
|
|
|
|
|
|
