Помощник
|
Скрипт отправки СМС |
v1rtus
|
Сообщение
#1
|
||
|
|
||
|
|||
Diablo_hb |
3.2.2008, 23:36;
Ответить: Diablo_hb
Сообщение
#2
|
|
сриптов Html не бывает в природе, в добавок скрипт отправки sms дают сами провайдеры сотовой связи - потому что все все равно через их ресурсы произходит
|
|
|
WildWolf_hb |
17.12.2008, 22:50;
Ответить: WildWolf_hb
Сообщение
#3
|
|
ахаххахаха..... извините)) html скрипт - это мощно!)
У меня есть скрипт на VisualBasicScript для отправки СМС на билайн, раьотает. К сожалению на VB пока не перевел,Ю время нет. Могу вот выложить мож кто на php переведет: Для танкистов: сохранять данный скрипт в .vbs '/// Скрипт бесплатной отправки SMS сообщений на номера Beeline 'К сожалению как и всего бесплатного так и у этого скрипта есть ограничения '1) Отправлять СМС можно только на номера Beeline '2) Количество отправляемых сообщений с одного IP ограничено '3) Плюс часто приходит ответ о том, что система перегружена. В этом случае повторите отправку ещё раз. Dim Operators(8) Operators(0) = "777 - K-Mobile (Казахстан)" Operators(1) = "095 - Beeline Damps (Россия)" Operators(2) = "901 - Beeline Damps (Россия)" Operators(3) = "903 - Beeline GSM (Россия)" Operators(4) = "905 - Beeline GSM (Россия)" Operators(5) = "906 - Beeline GSM (Россия)" Operators(6) = "909 - Beeline GSM (Россия)" Operators(7) = "960 - Beeline GSM (Россия)" Operators(8) = "961 - Beeline GSM (Россия)" Dim phone,message phone = InputBox("Введите номер на который хотите произвести отправку сообщения." & vbCrlf & vbCrlf & "Доступные операторы:" & vbCrlf & vbCrlf & Join(Operators,vbCrlf),"Отправка смс сообщения на номера Beeline","890") message = InputBox("Введите текст сообщения.","Отправка смс сообщения на номера Beeline","Сообщение") Dim Status Status = SendBeelineSMS(phone,message,1) If Err.Number = 0 Then Msgbox Status,vbInformation Else MsgBox Err.Number & " " & Err.Description,vbCritical End if Function SendBeelineSMS(phone,Message,translit) On Error Resume Next Dim operator, VarBody, XMLHTTP If Len(phone) <> 11 Then Err.Number = vbObjectError + 1 Err.Description = "Недопустимая длина номера. Номер должен быть формата 890XXXXXXXX" Exit Function End If operator = Mid(phone, 2, 3) Dim AvailableOperators AvailableOperators = "777,095,901,903,905,906,909,960,961" if Instr(1,AvailableOperators,operator) = 0 Then Err.Number = vbObjectError + 2 Err.Description = "Недопустимый (" & operator & ") оператор." Exit Function End if phone = Mid(phone, 5) if translit <> "" then translit="1" VarBody = "number_sms=number_sms_send&adv_year=&termtype=G&translit=" & translit & "&y=4&x=5&prf=7" & operator & "&phone=" & phone & "&message=" & EncodeURIcomponent(message) & "&submit=" & EncodeURIcomponent("Отправить") Set XMLHTTP = CreateObject("MSXML2.XMLHTTP") XMLHTTP.open "POST", "http://217.118.84.204/servlet/send/sms/", False XMLHTTP.SetRequestHeader "Content-type", "application/x-www-form-urlencoded" XMLHTTP.Send VarBody Select Case XMLHTTP.Status Case 200 SendBeelineSMS = XMLHTTP.responsetext Case Else Err.Number = vbObjectError + 3 Err.Description = "Ошибка при отправке запроса: " & XMLHTTP.Status & " " & XMLHTTP.StatusText & vbCrLf Exit Function End Select End Function Function EncodeURIcomponent(SourceString) Dim I, C, Out For I = 1 To Len(SourceString) C = Asc(Mid(SourceString, I, 1)) If C = 32 Then EncodeURIcomponent = EncodeURIcomponent + "+" ElseIf (C < 48 Or C > 126) Or (C > 56 And C <= 64) Then EncodeURIcomponent = EncodeURIcomponent + "%" + Hex(C) Else EncodeURIcomponent = EncodeURIcomponent + Chr(C) End If Next End Function где http://217.118.84.204/servlet/send/sms/ и есть официальный сервер билайна... |
|
|
dj2 |
29.7.2011, 8:59;
Ответить: dj2
Сообщение
#4
|
|
|
люди хто знает где скачать скрипт исходник для отправки смс по Украине знаю есть такие скрипты но немагу найти где их скачать если хто знает где скачать исходник скрипт для отправки смс по Украине нипишите можна на маю почту ynii@list.ru Или в асю 609-603-736
|
|
|
||
|
Похожие темы
Тема | Ответов | Автор | Просмотров | Последний ответ | |
---|---|---|---|---|---|
Продам скрипт rtb exchange suite - система перепродажи трафика dsp/ssp в реальном времени. | 5 | buypushplatform | 4302 | 23.4.2024, 21:02 автор: 100ftd |
|
Скрипт поисковика видео StrongTube | 3 | 3josoft | 1576 | 14.8.2023, 14:45 автор: 3josoft |
|
Google Voice аккаунты (Old/New) прием смс и звонков. | 1 | Chekon | 1297 | 10.7.2023, 18:33 автор: Chekon |
|
Скрипт приема платежей p2p с карты на карту card2card Скрипт приема платежей p2p с карты на карту card2card |
15 | zladey1986 | 7840 | 26.3.2023, 8:54 автор: Palundra |
|
Продам скрипт перевода постов и комментариев | 4 | Tutich | 788 | 19.1.2023, 17:23 автор: Tutich |
Текстовая версия | Сейчас: 25.4.2024, 3:52 |