Отправка смс на мобильный телефон - VB

Узнай цену своей работы

Формулировка задачи:

Я не профи, но понимаю программирование. Столько гуглил, но не нашел ответ. Как можно отправить смс на телефон? Имеется ученики с баллами им нужно отправить оценки на тел. Язык программирование не имеет значение. еще страну тоже нужно иметь ввиду, так как я живу в Таджикистане.

Решение задачи: «Отправка смс на мобильный телефон»

textual
Листинг программы
Sub SendTextMessage(PhoneNumber As String, Message As String)As Boolean 
   Dim SmsManager As PhoneSms ,r As Reflector, parts As Object
   If PhoneNumber.Length>0 Then
      Try
         If Message.Length <= 160 Then 
            SmsManager.Send(PhoneNumber, Message)
         Else
             r.Target = r.RunStaticMethod("android.telephony.SmsManager", "getDefault", Null, Null)
             parts = r.RunMethod2("divideMessage", Message, "java.lang.String")
            r.RunMethod4("sendMultipartTextMessage", Array As Object(PhoneNumber, Null, parts, Null, Null), Array As String("java.lang.String", "java.lang.String", "java.util.ArrayList", "java.util.ArrayList", "java.util.ArrayList"))
         End If
         Return True
      Catch
      End Try
   End If
End Sub

Оцени полезность:

15   голосов , оценка 3.8 из 5
Похожие ответы