Вход
Регистрация

Библиотека для отправки SMS на Visual Basic.NET (VB.NET)

Скачайте архив notisend.zip
Распакуйте и скопируйте содержимое архива в папку с вашим проектом, например в папку debug.
Подключите библиотеку к проекту и namespace SmsApi.

Пример использования библиотеки для отправки SMS VB.NET

Скачать 

    ' SmsApi Инициализация объекта
    ' Список параметров (project, apikey, is_test)
    ' project - название проекта, берется со страницы http: 'sms.notisend.ru/office/api_account
    ' apikey - ключ проекта, берется со страницы http: 'sms.notisend.ru/office/api_account
    ' is_test - не обязательный параметр, если true то сообщения не будут отправляться и деньги не будут списываться(используется для отладки)
    ' use_ssl - не обязательный параметр, если true то взаимодействие будет осуществляться по протоколу https иначе http
    Dim sms = New Sms.Sms("myshop", "c72a61ef07e80")
    
    ' balance() Запрос баланса
    Dim rBalance = sms.balance()
    If (rBalance.status = "success") Then
        MessageBox.Show(rBalance.balance) ' покажем текущий баланс
    Else : MessageBox.Show(rBalance.message) ' иначе выведем сообщение об ошибке
    End If
    
    'price(recipients, message) запрос стоимости отправки сообщения на указанные номера
    ' Параметры recipients - номера получателей в любом формате через запятую. message - текст сообщения.
    Dim rprice = sms.price("89121231234,9121231235", "api_test")
    If (rprice.status = "success") Then
        MessageBox.Show(rprice.price)  ' покажем стоимость отправки сообщения на указанные номера
    Else : MessageBox.Show(rprice.message)  ' иначе выведем сообщение об ошибке
    End If
    
    'send(sender, recipients, message) - отправка сообщения
    ' Параметры sender - имя отправителя. recipients - номера получателей в любом формате через запятую. message - текст сообщения.
    Dim rsend = sms.send("testsend", "89999999998,9999999999", "testtext")
    If (rsend.status = "success") Then
        MessageBox.Show("ok") ' если сообщение было успешно отправлено выведем ok
    Else : MessageBox.Show(rsend.message)  ' иначе выведем сообщение об ошибке
    End If
    ' status(messages_id) - запрос статуса сообщений
    ' messages_id - id сообщений через запятую
    Dim rstatus = sms.status("119,118")
    If (rstatus.status = "success") Then
        MessageBox.Show("119 - " + rstatus.messages("119") + "; 118 - " + rstatus.messages("118"))  ' Выводим ид сообщения и статус их доставки
    Else : MessageBox.Show(rstatus.message)  ' иначе выведем сообщение об ошибке
    End If
    
    'info(phones) - запрос информации по номерам
    Dim rinfo = sms.info("89121231234,9121231235")
    If (rinfo.status = "success") Then
        For Each pi As PhoneInfo In rinfo.info
            MessageBox.Show("Номер - " + pi.phone + "; Оператор - " + pi.name + "; Регион - " + pi.region)
        Next
    Else : MessageBox.Show(rinfo.message)
    End If
Скачать
Поддержка