Send sms use api v2 by SMSMKT

    Send Sms By API2 (ASP.Net , VB.Net) - SMSMKT

    เมื่อเรากดปุ่ม ส่ง SMS ให้เรียก Function จาก PIC 2. ในการส่ง SMS ที่เป็น API2 ได้เลยครับ 

    จากตัวอย่างเป็นการส่ง SMS ของ web : บริการ SMS ส่ง SMS คุณภาพสูง ใช้งานง่าย ส่งเร็ว ราคาถูก | SMSMKT

    ลองสมัครใช้บริการได้ที่ SMSMKT.COM นะครับ มีการส่ง API2 ได้หลายๆภาษา PHP,JAVA,PYTHON, .NET C# และ อื่นๆครับ

PIC 1.หน้าจอเมื่อเรากดปุ่มส่ง SMS  จะไปเรียก Function SendSMS_By_SMSMKT() ในการส่ง

PIC 2.SendSMS_By_SMSMKT() ใช้ในการส่ง SMS ASP.Net (VB.Net)

Coding ครับ

Private Sub SendSMS_By_SMSMKT()

        Try

            Dim strURL As String = "https://portal-otp.smsmkt.com/api/send-message"

            Dim json, jsonOri, strCH As String

            Dim strSender, strReceiver, strMessage As String

            strSender = "Demo-SMS" 'SenderName : 

            strReceiver = "01234567891" 'Telephone No

            strMessage = "Test send SMS By API2 of SMSMKT"

            ServicePointManager.Expect100Continue = True

            ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls

            Dim request As HttpWebRequest = CType(WebRequest.Create(strURL), HttpWebRequest)

            request.Method = "POST"

            request.Headers("api_key") = "XXX"  'API Key

            request.Headers("secret_key") = "XXX" 'API Secret

            request.ContentType = "application/json; charset=utf-8"

            Using streamWriter = New StreamWriter(request.GetRequestStream())

                strCH = """"

                jsonOri = "{ ""message"":""Test send SMS"",""phone"":""01234567891"",""sender"":""Demo-SMS"" }" ' From WEB for looking                

                json = "{ " & strCH & "message" & strCH & ":" & strCH & strMessage & strCH & ","

                json = json & strCH & "phone" & strCH & ":" & strCH & strReceiver & strCH

                json = json & "," & strCH & "sender" & strCH & ":" & strCH & strSender & strCH & " }"

                streamWriter.Write(json) : streamWriter.Flush()

            End Using

            Dim webResponse As WebResponse = request.GetResponse()

            Using webStream As Stream = If(webResponse.GetResponseStream(), Stream.Null)

                Using responseReader As StreamReader = New StreamReader(webStream)

                    Dim response As String = responseReader.ReadToEnd()

                    Console.Out.WriteLine(response)

                End Using

            End Using

        Catch e As Exception

            Console.Out.WriteLine("-----------------")

            Console.Out.WriteLine(e.Message)

        End Try

    End Sub