Как отправить СМС

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"
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

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