Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Cricket93
143 / 44 / 1
Регистрация: 06.11.2012
Сообщений: 283
#1

Как отправить SMS с оператора Beeline - VB

27.12.2012, 00:49. Просмотров 739. Ответов 2
Метки нет (Все метки)

Никак не могу написать что-то подобное на билайн
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
Option Explicit
'Объявляем API функции
'Для открытия соединения и получения его дескриптора
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
'Для убивания дескриптора
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
'Для обращения к URL
Private Declare Function InternetOpenUrl Lib "wininet" _
            Alias "InternetOpenUrlA" _
            (ByVal hInternetSession As Long, _
            ByVal lpszUrl As String, _
            ByVal lpszHeaders As String, _
            ByVal dwHeadersLength As Long, _
            ByVal dwFlags As Long, _
            ByVal dwContext As Long) As Long
 
Private Sub cmdSend_Click()
 
Dim a As Long, b As Variant, Prefix As String, Message As String
 
'Делаем нужный префикс
 
Select Case cboPrefix.ListIndex
    Case 0
        Prefix = "7095"
    Case 1
        Prefix = "7910"
    Case 2
        Prefix = "7916"
    Case 3
        Prefix = "7918"
    Case 4
        Prefix = "7988"
    Case 5
        Prefix = "7962"
End Select
 
'Переделываем сообщение в такой формат, котоырй необходим для отправки,
'т.е. избавляемся от нежелательных в URL символов
 
Message = txtMessage
Message = Replace(Message, "%", "%25")
Message = Replace(Message, "?", "%3F")
Message = Replace(Message, "&", "%26")
Message = Replace(Message, vbCrLf, "%0D")
 
'создаем соединение и получаем его дескриптор
a = InternetOpen("Microsoft Internet Explorer 5.0", 0, vbNullString, vbNullString, 0)
'обращаемся к сценарию с заданными параметрами
b = InternetOpenUrl(a, "http://www.mts.ru:5051/cgi-bin/cgi.exe?function=sms_send&MMObjectType=0&MMObjectID=&To=" & Prefix & txtNumber & "&Msg=" & Message & "&Hour=23&Min=59&Day=31&Mon=12&Year=2005&Lang=2", vbNullString, 0, 0, 0)
'закрываем соединение
InternetCloseHandle a
 
'отключаем кнопку отправки и включаем таймер, чтобы затем ее включить опять
'делается это из-за того, что можно посылат сообщения не чаще 1 раза в минуту
Timer1.Enabled = True
cmdSend.Enabled = False
 
MsgBox "Done!", vbInformation
 
'чистим поля и вохвращаем фокус
txtNumber = ""
txtMessage = ""
cboPrefix.SetFocus
 
End Sub
 
Private Sub Form_Load()
cboPrefix.ListIndex = 2
End Sub
 
Private Sub Timer1_Timer()
cmdSend.Enabled = True
Timer1.Enabled = False
End Sub
 
Private Sub txtMessage_Change()
Label3 = "Осталось: " & 730 - Len(txtMessage)
End Sub

http://www.cyberforum.ru/visual-basic/thread1073362.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.12.2012, 00:49
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Как отправить SMS с оператора Beeline (VB):

Как отправить почту из VB?
Добрый день, Помогите коллеге в одном вопросике. Мне нужно запустить окно...

как отправить факс?
Начальник требует програмной отправки факсов, при этом говорит что-то про...

Как отправить письмо из VB?
Как отправить письмо из Вб?

Как отправить СМС
Или звонить

как отправить HTTPзапрос из VB постом ?
как отправить HTTPзапрос из VB постом ? Что то не могу найти негде! помогите...

2
Pro_grammer
Модератор
6134 / 2212 / 437
Регистрация: 24.04.2011
Сообщений: 3,869
Записей в блоге: 10
27.12.2012, 07:43 #2
Цитата Сообщение от Cricket93 Посмотреть сообщение
что-то подобное на билайн
А есть адрес сайта Билайн, с которого можно отправить СМС без ввода капчи?
Если нет, то у Билайн есть механизм проще. Отправка СМС сводится к отправке обычного e-mail на адрес типа 7903ХХХХХХХ@sms.beemail.ru, тема не передается, только текст письма.
Для предотвращения спама, эту возможность надо активировать для каждого конкретного номера.
0
Cricket93
143 / 44 / 1
Регистрация: 06.11.2012
Сообщений: 283
27.12.2012, 07:47  [ТС] #3
Цитата Сообщение от Pro_grammer Посмотреть сообщение
СМС без ввода капчи
Я только видел с вводом...
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.12.2012, 07:47
Привет! Вот еще темы с решениями:

Как создать и отправить S/MIME сообщение?
Господа, подскажите как создать и отправить S/MIME сообщение??? Заранее...

Как отправить post запрос на сайт?
Здравствуйте! Как отправить post запрос в vb6 с помощью winsock? Я пробовал у...

Как из MS FlexGrid отправить данные в Excel?
Кто посоветует, у меня из Грида данные в EXCEL переносятся ТОЛЬКО в первый...

Как отправить почту на мыло без winsock' а?
Товарисчи нужно позарез! плз каму не лень напишите исходник или дайте ссылку на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru