Консольная программа для отправки SMS - SMSPILOT.RU

  1. Программа не требует установки.
  2. Скачайте архив SMSPILOT 1.0
  3. Разархивируйте в любую папку, рекомендуем:
    C:\smspilot\
  4. В некоторых случаях ругается Dr. Web, добавьте в исключения.

Описание параметров запуска

Пример запуска:
c:\smspilot\sms.exe send="Скидка 20%" to="79087964781" from="myshop.ru" apikey="ABCDEFGH...."

Параметр Наличие Описание
Без параметров   выводится краткая справка
send="TEXT" обязательный текст SMS сообщения
to="NUMBER(S)" обязательный номер телефона в международном формате (для России должн начинаться с 7), или несколько номеров перечисленных через запятую
from="SENDER_ID" опциональный Подмена номера отправителя
apikey="APIKEY" обязательный значение API-ключа доступка к шлюзу SMS Пилот
proxy="user:pass@ip:port" опциональный настройки прокси, в формате логин:пароль@хост:порт, порт по умолчанию 8080, можно указать только хост:порт (без авторизации)

Работает в кодировке WINDOWS-1251
Не используйте двойные кавычки в тексте сообщения

Пример отправки SMS средствами языка 1c

Пример SMS из 1с


КомСтрока = "c:\sms\sms.exe";
КомСтрока = КомСтрока + " send=""" + "Привет мир!" + """"; //текст сообщения
КомСтрока = КомСтрока + " to=""" + "79131231212,79021231212" + """"; // телефон(ы)
КомСтрока = КомСтрока + " from=""SMSFIRMA"""; // номер телефона или ID отправителя

//КомСтрока = КомСтрока + " proxy=""user:pass@192.169.1.14:8080"""; // настройка прокси

КомСтрока = КомСтрока + " apikey=""КЛЮЧ""";

ЗапуститьПриложение( КомСтрока );

Пример отправки SMS из Delphi

Пример SMS из Delphi

uses
  ShellApi;
//
//
procedure TForm1.Button1Click(Sender: TObject);
var
  cmd,params: string;
begin
  cmd := 'c:\sms\sms.exe';
  params := 'send="Привет мир!"'; // текст сообщения
  params := params+' to="79131231212,79021231212"'; // телефон(ы)
  params := params+' from="SMSFIRMA"'; // Номер отправителя или ID
  params := params+' apikey="КЛЮЧ"'; //
  // params := params + ' proxy="user:pass@192.169.1.14:8080"'; // прокси
  ShellExecute(Self.Handle, 'open', PChar(cmd), PChar(params), nil, SW_SHOWNORMAL);
end;