Interested with Bulk SMS Thailand? Contact Us HERE

Sending Bulk SMS With VB.net

วิธีการส่ง SMS เป็นกลุ่มที่มี VB.net

หากคุณกำลังพัฒนาโปรแกรม VB.NET และต้องการที่จะบูรณาการ iSMS Thailand ส่งคุณลักษณะ SMS, คุณสามารถดูตัวอย่างด้านล่าง. คุณสามารถส่ง SMS ผ่าน Visual Basic ใช้คีย์ SMS API ของเรา.

เพื่อทำความเข้าใจเพิ่มเติมเกี่ยวกับ iSMS Thailand API คุณสมบัติที่สำคัญของเราโปรดไปที่หน้า API นักพัฒนาซอฟต์แวร์. คุณสมบัติที่มีอยู่ทั้งหมดและการกำหนดค่าจะแสดงที่หน้านักพัฒนาซอฟต์แวร์ API iSMS Thailand.

Download VB.NET Demo Files

ค้นหาข้อมูลเพิ่มเติมเกี่ยวกับคีย์ API SMS ในการเขียนโปรแกรมภาษาอื่น ๆ.

ตัวอย่างรหัส

โปรดเปลี่ยนพารามิเตอร์ต่อไปนี้ในสคริปต์ด้วยiSMS Thailand ข้อมูลบัญชีของคุณ.

  1. un - ชื่อผู้ใช้
  2. pwd - รหัสผ่าน
  3. dstno - หมายเลขปลายทาง (พร้อมรหัสประเทศเต็ม)

หมายเลขโทรศัพท์มือถือที่สามารถแยกออกจากกันโดยค่าเครื่องหมายจุลภาค ยกตัวอย่างเช่น "669217311111,669217322222"

Imports System.IO
Imports System.Text


Public Function SendSMS(ByVal phoneno As String, ByVal msg As String)
phoneno = phoneno.Replace(",", ";")
Dim phone_arr As String() = Split(phoneno, ";")


For Each pno As String In phone_arr
Dim url As New System.Uri("http://www.isms.com.my/isms_send.php?un=" + isms_username +
"&pwd=" + isms_password + "&dstno=" + pno + "&msg=" + msg + "&type=1&sendid=")
Dim req As System.Net.WebRequest
req = System.Net.WebRequest.Create(url)
Dim resp As System.Net.WebResponse
Try
resp = req.GetResponse()
Dim reader As StreamReader = New StreamReader(resp.GetResponseStream())


Dim balance_str As String = Trim(Strip(reader.ReadToEnd().Trim()))


resp.Close()
req = Nothing
Catch ex As Exception
req = Nothing
End Try
Next


Return True
End Function