comserv23: SMS Project

แสดงบทความที่มีป้ายกำกับ SMS Project แสดงบทความทั้งหมด

วันพฤหัสบดีที่ 2 มิถุนายน พ.ศ. 2565

Send sms use api v2 By ThaiBulkSms

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

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

จากตัวอย่างเป็นการส่ง SMS ของ web : บริษัทส่งข้อความผ่าน SMS Gateway ราคาเริ่ม 0.21 บาท | ThaiBulkSMS

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

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

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

Coding (ตัวนี้ต้อง Imports RestSharp ด้วยนะครับ โหลด RestSharp.dll แล้ว Add เข้า Reference )

Private Sub SendSMS_ThaiBulkSMS()
        Dim strSender, strReceiver, strMessage, strBody As String
        Dim client = New RestClient("https://api-v2.thaibulksms.com/sms")
        Dim request = New RestRequest(Method.POST)
        ' "msisdn=0821123456&message=TEST_SMS&sender=TBS."
        strSender = "TBS."
        strReceiver = Me.txtTelNo.Text
        strMessage = "TST_SMS"
        strBody = "msisdn=" & strReceiver & "&message=" & strMessage & "&sender="
        request.AddHeader("Accept", "application/json")
        request.AddHeader("Content-Type", "application/x-www-form-urlencoded")
        request.AddHeader("Authorization", "Basic dklZYklzaUJQMmRESjFDOWdSNHRlUC1Jc2hjNUFFOnFEaEp6T3pjb25GZEFNVVd5NXBGSnVDSktYMGFBNA==")
        request.AddParameter("application/x-www-form-urlencoded", strBody, ParameterType.RequestBody)
        Dim response As IRestResponse = client.Execute(request)
    End Sub

วันเสาร์ที่ 28 พฤษภาคม พ.ศ. 2565

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

Catch e As Exception

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

Console.Out.WriteLine(e.Message)

End Try

End Sub

วันพฤหัสบดีที่ 26 พฤษภาคม พ.ศ. 2565

SMS Project

ในปัจจุบันโรงงานผลิต ได้มีการนำการส่ง SMS เข้ามือถือ เพื่อให้ช่างมาซ่อมเครื่องจักรอย่างเร็วที่สุด เพราะเมื่อเครื่องจักรหยุด นั่นคือการสูญเสียกำลังการผลิตไป โดยทันที

comserv23

หน้าเว็บ