Отправка смс на мобильный телефон - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д