API для отправки SMS сообщений

[sd]

Не могу пометить входящие сообщения как прочитанные.
получаю список сообщение с what=2

делаю запрос к апи.
с action=mark id = id сообщения и isread=1 + логины пароли и тп

получаю ответ 200 ОК

потом снова получаю список с what=2
поле msg_read = 0
и все те же самые сообщения которые и были с первого запроса.

Спасибо за информацию. Постараемся исправить в ближайшее время.

[zelib0ba]

отпишите как исправите, протестирую

[Sajanagr]

Добрый день.
Тестирую скрипт передачи в одном запросе файл с номерами и текстом для массовой рассылки смс. За основу взят пример со страницы 12. В параметрах указываю: acnion, numfile, username. Но при запуске скрипта возвращается ошибка с кодом 400, отсутствие параметров message, to. Если добавляю эти параметры, скрип выполняется но смс создается только по номеру указанному в параметре to. Что не так?

Код: Выделить всё

#!/usr/bin/php
<?php
$password="mypas";
function BuildUrlParamsWithSignature($params, $password, $exclude = '')
{

    ksort($params);
    $url = '';

    if (!is_array($params))
        return $url;

    if ($exclude && !is_array($exclude))
        $exclude = array($exclude);

    foreach($params as $key => $value)
    {
        if ($exclude && in_array($key, $exclude)) continue;

        $url .= $key . "=" . urlencode($value) . "&";
    }
    $signature = md5($url . "&password=".urlencode($password));
    $url .= "signature=" . $signature;
    $params['signature'] = $signature;
    return $url;
}

$baseurl = "http://api.comtube.ru/scripts/sms_api/sendsms.php";

$params = array();
$params["username"] = "myname";
$params["action"] = "send";
$params["message"] = " ";
//$params["to"] = "mytel";
$params["vmsgfile"] = "@./testfile.txt";

$urlparams = BuildUrlParamsWithSignature($params, $password, array('numfile','vmsgfile'));

$url = $baseurl . "?" . $urlparams;

$ch = curl_init($url);

curl_setopt($ch, CURLOPT_URL, $url);
curl_setopt($ch, CURLOPT_POST, 1);
curl_setopt($ch, CURLOPT_POSTFIELDS, $params);

$data = curl_exec($ch);
curl_close($ch);

$res = json_decode($data, true);

?>

[sd]

Добрый день.
Тестирую скрипт передачи в одном запросе файл с номерами и текстом для массовой рассылки смс. За основу взят пример со страницы 12. В параметрах указываю: acnion, numfile, username. Но при запуске скрипта возвращается ошибка с кодом 400, отсутствие параметров message, to. Если добавляю эти параметры, скрип выполняется но смс создается только по номеру указанному в параметре to. Что не так?

У вас, случаем,не опечатка вот тут:

Код: Выделить всё

$params["vmsgfile"] = "@./testfile.txt";

Файл с номерами должен указываться так:

Код: Выделить всё

$params["numfile"] = "@./testfile.txt";

Ну и message не может содержать просто пробел - как раз будет ошибка 400.

[Sajanagr]

У вас, случаем,не опечатка вот тут:
КОД: ВЫДЕЛИТЬ ВСЁ
$params["vmsgfile"] = "@./testfile.txt";


Файл с номерами должен указываться так:
КОД: ВЫДЕЛИТЬ ВСЁ
$params["numfile"] = "@./testfile.txt";

Это признаю, моя не доработка.

Ну и message не может содержать просто пробел - как раз будет ошибка 400.

А как же это:

message - Текстовое сообщение для отправки. Может быть пустым. В этом случае, текст сообщения будет браться из файла с номерами телефонов. Для action = send. В тексте сообщения разрешается использовать следующие переменные:

%CT_N% – имя получателя из адресной книги пользователя,
%CT_F% – фамилия получателя,
%CT_M% – отчество получателя,
%CT_FN% – отображаемое имя получателя,
%CT_COL_N% – номер колонки в текстовом файле, где N – номер от 1 (на данный момент еще не поддерживается).

Мне надо чтоб текст сообщения брался из файла, поэтому параметр message оставляю пустым .

[sd]

Ну и message не может содержать просто пробел - как раз будет ошибка 400.

А как же это:

message - Текстовое сообщение для отправки. Может быть пустым. В этом случае, текст сообщения будет браться из файла с номерами телефонов. Для action = send. В тексте сообщения разрешается использовать следующие переменные:

%CT_N% – имя получателя из адресной книги пользователя,
%CT_F% – фамилия получателя,
%CT_M% – отчество получателя,
%CT_FN% – отображаемое имя получателя,
%CT_COL_N% – номер колонки в текстовом файле, где N – номер от 1 (на данный момент еще не поддерживается).

Мне надо чтоб текст сообщения брался из файла, поэтому параметр message оставляю пустым .

Тут ситуация такая: если параметр message пустой, то файл numfile должен содержать в каждой строке в первой колонке номер телефона, потом точка с запятой и затем текст сообщения. Пример:

Код: Выделить всё

79261234567;Привет! Как жизнь?

Если формат файла не распознан и параметр message пустой, то придет ошибка 400.

[Sajanagr]

Файл numfile содержит в каждой строке в первой колонке номер телефона, потом точка с запятой и текст сообщения. Это как раз у вас хорошо было расписано. А вот параметр message если указать с пробелом как раз ошибки не выдает, а вот пустой выдает ошибку с кодом 400.
Напишите пример как должна выглядеть строка запроса если содержится параметр numfile.

[malec]

Немного модернизировал код уважаемого donexpress_premium VB.NET 2013 .NET 3.5
Отправка SMS методом POST c ответом от сервера в виде XML

Код: Выделить всё

Module SMS2
    Private c_login As String = ""
    Private c_password As String = ""

    Public Function SendSMS2(from As String, tonum As String, message As String) As Boolean
        Dim W As New Net.WebClient
        Dim NC As New System.Collections.Specialized.NameValueCollection
        NC.Add("action", "send")
        NC.Add("message", message)
        NC.Add("number", tonum)
        NC.Add("senderid", from)
        NC.Add("username", c_login)
        NC.Add("type", "xml")

        Dim NC_SORT() As String = NC.AllKeys
        Array.Sort(NC_SORT)

        Dim res As String = ""

        For Each i As String In NC_SORT
            res &= i & "=" & ESCAPE(NC(i)) & "&"
        Next
        res = res & "&password=" & ESCAPE(c_password)

        NC.Add("signature", getMD5Hash(res))

        Dim RESP As Byte()
        RESP = W.UploadValues("https://api.comtube.com/scripts/api/sms.php", NC)

        Dim R As String
        R = System.Text.Encoding.UTF8.GetString(RESP)
        MsgBox(R)

    End Function

    Public Function ESCAPE(ByRef TEXT As String)
        ESCAPE = Uri.EscapeDataString(TEXT).Replace("%20", "+").Replace("!", "%21").Replace("*", "%2A").Replace("(", "%28").Replace(")", "%29").Replace("'", "%27")
    End Function

    Function getMD5Hash(ByVal strToHash As String) As String
        Dim md5Obj As New Security.Cryptography.MD5CryptoServiceProvider
        Dim ByteHash() As Byte = System.Text.Encoding.Default.GetBytes(strToHash)
        ByteHash = md5Obj.ComputeHash(ByteHash)
        Dim strResult As String = ""
        For Each b As Byte In ByteHash
            strResult += b.ToString("x2")
        Next
        Return strResult
    End Function

End Module

Вот только проблема есть, некоторые антивирусы определяют как вирус https://www.virustotal.com/ru/file/958b ... 424268417/

[sd]

Немного модернизировал код уважаемого donexpress_premium VB.NET 2013 .NET 3.5
Отправка SMS методом POST c ответом от сервера в виде XML

Код: Выделить всё

Module SMS2
    Private c_login As String = ""
    Private c_password As String = ""

    Public Function SendSMS2(from As String, tonum As String, message As String) As Boolean
        Dim W As New Net.WebClient
        Dim NC As New System.Collections.Specialized.NameValueCollection
        NC.Add("action", "send")
        NC.Add("message", message)
        NC.Add("number", tonum)
        NC.Add("senderid", from)
        NC.Add("username", c_login)
        NC.Add("type", "xml")

        Dim NC_SORT() As String = NC.AllKeys
        Array.Sort(NC_SORT)

        Dim res As String = ""

        For Each i As String In NC_SORT
            res &= i & "=" & ESCAPE(NC(i)) & "&"
        Next
        res = res & "&password=" & ESCAPE(c_password)

        NC.Add("signature", getMD5Hash(res))

        Dim RESP As Byte()
        RESP = W.UploadValues("http://api.comtube.ru/scripts/api/sms.php", NC)

        Dim R As String
        R = System.Text.Encoding.UTF8.GetString(RESP)
        MsgBox(R)

    End Function

    Public Function ESCAPE(ByRef TEXT As String)
        ESCAPE = Uri.EscapeDataString(TEXT).Replace("%20", "+").Replace("!", "%21").Replace("*", "%2A").Replace("(", "%28").Replace(")", "%29").Replace("'", "%27")
    End Function

    Function getMD5Hash(ByVal strToHash As String) As String
        Dim md5Obj As New Security.Cryptography.MD5CryptoServiceProvider
        Dim ByteHash() As Byte = System.Text.Encoding.Default.GetBytes(strToHash)
        ByteHash = md5Obj.ComputeHash(ByteHash)
        Dim strResult As String = ""
        For Each b As Byte In ByteHash
            strResult += b.ToString("x2")
        Next
        Return strResult
    End Function

End Module

Вот только проблема есть, некоторые антивирусы определяют как вирус https://www.virustotal.com/ru/file/958b ... 424268417/

Насколько знаю, небольшая модификация исходников и все будет ок.

[malec]

Да
если исправить строку на

Код: Выделить всё

RESP = W.UploadValues("https://api.comtube.com/scripts/api/sms.php", NC)

то проблема исчезает =)