Step 1 : Create a new visual basic project

Step 2: Add a command button to your form

Step 3: Add the “Microsoft internet Transfer Controls 6.0” to the form

Step 4: Name the command button “command1”

Step 5: Name the “Microsoft Internet Control” Inet1

 
Paste the following code into your project

Private m_SafeChar(0 To 255) As Boolean

Private Function URLEncode(ByVal txt As String) As String
Dim i As Integer
Dim ch As String
Dim ch_asc As Integer
Dim result As String

    SetSafeChars

    result = ""
    For i = 1 To Len(txt)
        ' Translate the next character.
        ch = Mid$(txt, i, 1)
        ch_asc = Asc(ch)
        If ch_asc = vbKeySpace Then
            ' Use a plus.
            result = result & "+"
        ElseIf m_SafeChar(ch_asc) Then
            ' Use the character.
            result = result & ch
        Else
            ' Convert the character to hex.
            result = result & "%" & Right$("0" & _
                Hex$(ch_asc), 2)
        End If
    Next i

    URLEncode = result
End Function


' Set m_SafeChar(i) = True for characters that
' do not need protection.
Private Sub SetSafeChars()
Static done_before As Boolean
Dim i As Integer

    If done_before Then Exit Sub
    done_before = True

    For i = 0 To 47
        m_SafeChar(i) = False
    Next i
    For i = 48 To 57
        m_SafeChar(i) = True
    Next i
    For i = 58 To 64
        m_SafeChar(i) = False
    Next i
    For i = 65 To 90
        m_SafeChar(i) = True
    Next i
    For i = 91 To 96
        m_SafeChar(i) = False
    Next i
    For i = 97 To 122
        m_SafeChar(i) = True
    Next i
    For i = 123 To 255
        m_SafeChar(i) = False
    Next i
End Sub

Private Sub Form_Load()

    Dim sUrl As String

    Dim sMessage As String

    Dim sMobile As String

    

    sMobile = "27821231234"

    sMessage = "Visual Basic to LogicSMS Demo"

    sUrl = "http://www.logicsms.co.za/postmsg2.aspx?"

    sUrl = sUrl & "username=yourusername@yourorganisation&"

    sUrl = sUrl & "password=*****&message="

    sUrl = sUrl & urlencode(sMessage) & "&originator=LogicSMS&mobile=" & sMobile

    

    

    If InStr(LCase(Inet1.OpenURL(sUrl)), "sent") > 0 Then

    

    Else

        'Unsuccessfull

        MsgBox ("The server returned an Error")

    End If

    

    

End Sub