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
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
ไม่มีความคิดเห็น:
แสดงความคิดเห็น