VB.NET SMS API Entegrasyonu

Güvenlik, bilgilendirme ve tanıtım mesajlarınızı otomatikleştirin. Müşterilerinizi her durumda otomatik olarak gidecek mesajlarla anında haberdar edin, iletişiminiz ve marka değeriniz yükselsin. En çok kullanılan yazılım dillerine göre hazırladığımız örnek kodlarımızı inceleyin.

VB.NET dilinde oluşturduğumuz SMS API servisimizi VatanSMS kullanıcı adı ve şifre bilgilerinizi girerek kolayca sisteminize entegre edebilir ve mesaj gönderimini otomatik hale getirebilirsiniz.

PHP SMS API SDK (Github):

ASP.NET SMS API SDK (Github):

Delphi SMS API SDK (Github):

VB.NET SMS API SDK (Github):

Kod Örnekleri

Sisteminize kolayca entegre edebileceğiniz VB.NET SMS API servisimiz ile müşterilerinize şifre doğrulama, otomatik onay veya bilgi mesajları gönderin. Toplu SMS gönderimi gibi birçok avantaj elde edeceğiniz VB.NET SMS API scripti örnek ve dokümanlarımızı inceleyin.

Hesabım - API Bilgilerimi Görüntüle kısmından api_id ve api_key bilgilerinize ulaşabilirsiniz.

1 - N

sender olarak hesabınıza tanımlanmış olan gönderici adını göndermelisiniz. Türkçe SMS gönderimi için 'message_type': turkce olarak gönderilmelidir.

İleri tarihli SMS göndermek için datanın içerisine 'send_time' : '2021-05-25 12:00:00' (Y-m-d H:i:s) şeklinde gönderilmelidir. Hemen gönderim yapmak için send_time'ı göndermemelisiniz.

                                                                                    
                                                                                    
Imports System
Imports System.IO
Imports System.Net
Imports System.Text

Module SmsApiExample
    Sub Main()
        Dim apiUrl As String = "https://api.vatansms.net/api/v1/1toN"
        Dim jsonData As String = """{
            \"api_id\": \"API_ID\",
            \"api_key\": \"API_KEY\",
            \"sender\": \"SMSBASLIGINIZ\",
            \"message_type\": \"normal\",
            \"message\": \"Bu bir test mesajıdır.\",
            \"message_content_type\": \"bilgi\",
            \"phones\": [\"555555555\"]
        }"""

        Dim request As HttpWebRequest = CType(WebRequest.Create(apiUrl), HttpWebRequest)
        request.ContentType = "application/json; charset=utf-8"
        request.Method = "POST"

        Using streamWriter As New StreamWriter(request.GetRequestStream())
            streamWriter.Write(jsonData)
        End Using

        Try
            Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
            Using streamReader As New StreamReader(response.GetResponseStream())
                Dim result As String = streamReader.ReadToEnd()
                Console.WriteLine(result)
            End Using
        Catch ex As WebException
            Using streamReader As New StreamReader(ex.Response.GetResponseStream())
                Dim errorResult As String = streamReader.ReadToEnd()
                Console.WriteLine("Error: " & errorResult)
            End Using
        End Try
    End Sub
End Module

N - N

sender olarak hesabınıza tanımlanmış olan gönderici adını göndermelisiniz. Türkçe SMS gönderimi için 'message_type': turkce olarak gönderilmelidir.

                                                                                    
                                                                                    
Imports System
Imports System.IO
Imports System.Net
Imports System.Text

Module SmsApiExample
    Sub Main()
        Dim apiUrl As String = "https://api.vatansms.net/api/v1/NtoN"
        Dim jsonData As String = """{
            \"api_id\": \"API_ID\",
            \"api_key\": \"API_KEY\",
            \"sender\": \"SMSBASLIGINIZ\",
            \"message_type\": \"normal\",
            \"send_time\": \"2021-05-19 15:33:00\",
            \"message_content_type\": \"bilgi\",
            \"phones\": [
                { \"phone\": \"5xxxxxxxxx\", \"message\": \"Bu bir test mesajıdır.\" },
                { \"phone\": \"5xxxxxxxxx\", \"message\": \"Bu bir test mesajıdır.\" }
            ]
        }"""

        Dim request As HttpWebRequest = CType(WebRequest.Create(apiUrl), HttpWebRequest)
        request.ContentType = "application/json; charset=utf-8"
        request.Method = "POST"

        Using streamWriter As New StreamWriter(request.GetRequestStream())
            streamWriter.Write(jsonData)
        End Using

        Try
            Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
            Using streamReader As New StreamReader(response.GetResponseStream())
                Dim result As String = streamReader.ReadToEnd()
                Console.WriteLine(result)
            End Using
        Catch ex As WebException
            Using streamReader As New StreamReader(ex.Response.GetResponseStream())
                Dim errorResult As String = streamReader.ReadToEnd()
                Console.WriteLine("Error: " & errorResult)
            End Using
        End Try
    End Sub
End Module

Gönderici Adı Sorgulama

                                                                                    
                                                                                    
Imports System
Imports System.IO
Imports System.Net
Imports System.Text

Module SmsApiExample
    Sub Main()
        Dim apiUrl As String = "https://api.vatansms.net/api/v1/senders"
        Dim jsonData As String = """{
            \"api_id\": \"API_ID\",
            \"api_key\": \"API_KEY\"
        }"""

        Dim request As HttpWebRequest = CType(WebRequest.Create(apiUrl), HttpWebRequest)
        request.ContentType = "application/json; charset=utf-8"
        request.Method = "POST"

        Using streamWriter As New StreamWriter(request.GetRequestStream())
            streamWriter.Write(jsonData)
        End Using

        Try
            Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
            Using streamReader As New StreamReader(response.GetResponseStream())
                Dim result As String = streamReader.ReadToEnd()
                Console.WriteLine(result)
            End Using
        Catch ex As WebException
            Using streamReader As New StreamReader(ex.Response.GetResponseStream())
                Dim errorResult As String = streamReader.ReadToEnd()
                Console.WriteLine("Error: " & errorResult)
            End Using
        End Try
    End Sub
End Module

Kullanıcı Bilgilerini Alma

                                                                                    
                                                                                    
Imports System
Imports System.IO
Imports System.Net
Imports System.Text

Module SmsApiExample
    Sub Main()
        Dim apiUrl As String = "https://api.vatansms.net/api/v1/user/information"
        Dim jsonData As String = """{
            \"api_id\": \"API_ID\",
            \"api_key\": \"API_KEY\"
        }"""

        Dim request As HttpWebRequest = CType(WebRequest.Create(apiUrl), HttpWebRequest)
        request.ContentType = "application/json; charset=utf-8"
        request.Method = "POST"

        Using streamWriter As New StreamWriter(request.GetRequestStream())
            streamWriter.Write(jsonData)
        End Using

        Try
            Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
            Using streamReader As New StreamReader(response.GetResponseStream())
                Dim result As String = streamReader.ReadToEnd()
                Console.WriteLine(result)
            End Using
        Catch ex As WebException
            Using streamReader As New StreamReader(ex.Response.GetResponseStream())
                Dim errorResult As String = streamReader.ReadToEnd()
                Console.WriteLine("Error: " & errorResult)
            End Using
        End Try
    End Sub
End Module

Rapor Sorgulama - Rapor Detayı

report_id her SMS gönderimi sonrasında dönen id değeridir.

Eğer datanın sayfalamalı dönmesini istiyorsana url içerisinde page'i göndermeniz gerekmektedir. Sayfalar default olarak 20 şerli dönmektedir. Eğer isterseniz 1-100 arasında bir değeri pageSize'da göndererek değiştirebilirsiniz.

Eğer direkt sayfalamasız olarak bütün datayı almak istemiyorsanız page ve pageSize göndermemelisiniz.

                                                                                    
                                                                                    
Imports System
Imports System.IO
Imports System.Net
Imports System.Text

Module SmsApiExample
    Sub Main()
        Dim apiUrl As String = "https://api.vatansms.net/api/v1/report/detail?page=1&pageSize=20"
        Dim jsonData As String = """{
            \"api_id\": \"API_ID\",
            \"api_key\": \"API_KEY\",
            \"report_id\": 926410
        }"""

        Dim request As HttpWebRequest = CType(WebRequest.Create(apiUrl), HttpWebRequest)
        request.ContentType = "application/json; charset=utf-8"
        request.Method = "POST"

        Using streamWriter As New StreamWriter(request.GetRequestStream())
            streamWriter.Write(jsonData)
        End Using

        Try
            Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
            Using streamReader As New StreamReader(response.GetResponseStream())
                Dim result As String = streamReader.ReadToEnd()
                Console.WriteLine(result)
            End Using
        Catch ex As WebException
            Using streamReader As New StreamReader(ex.Response.GetResponseStream())
                Dim errorResult As String = streamReader.ReadToEnd()
                Console.WriteLine("Error: " & errorResult)
            End Using
        End Try
    End Sub
End Module

Rapor Sorgulama - Tarih Bazlı

                                                                                    
                                                                                    
Imports System
Imports System.IO
Imports System.Net
Imports System.Text

Module SmsApiExample
    Sub Main()
        Dim apiUrl As String = "https://api.vatansms.net/api/v1/report/between"
        Dim jsonData As String = """{
            \"api_id\": \"API_ID\",
            \"api_key\": \"API_KEY\",
            \"start_date\": \"2021-05-17 11:22:00\",
            \"end_date\": \"2021-05-18 11:31:00\"
        }"""

        Dim request As HttpWebRequest = CType(WebRequest.Create(apiUrl), HttpWebRequest)
        request.ContentType = "application/json; charset=utf-8"
        request.Method = "POST"

        Using streamWriter As New StreamWriter(request.GetRequestStream())
            streamWriter.Write(jsonData)
        End Using

        Try
            Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
            Using streamReader As New StreamReader(response.GetResponseStream())
                Dim result As String = streamReader.ReadToEnd()
                Console.WriteLine(result)
            End Using
        Catch ex As WebException
            Using streamReader As New StreamReader(ex.Response.GetResponseStream())
                Dim errorResult As String = streamReader.ReadToEnd()
                Console.WriteLine("Error: " & errorResult)
            End Using
        End Try
    End Sub
End Module

Rapor Sorgulama - Sonuç Sorgusu

report_id her SMS gönderimi sonrasında dönen id değeridir.

                                                                                    
                                                                                    
Imports System
Imports System.IO
Imports System.Net
Imports System.Text

Module SmsApiExample
    Sub Main()
        Dim apiUrl As String = "https://api.vatansms.net/api/v1/report/single"
        Dim jsonData As String = """{
            \"api_id\": \"API_ID\",
            \"api_key\": \"API_KEY\",
            \"report_id\": 926382
        }"""

        Dim request As HttpWebRequest = CType(WebRequest.Create(apiUrl), HttpWebRequest)
        request.ContentType = "application/json; charset=utf-8"
        request.Method = "POST"

        Using streamWriter As New StreamWriter(request.GetRequestStream())
            streamWriter.Write(jsonData)
        End Using

        Try
            Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
            Using streamReader As New StreamReader(response.GetResponseStream())
                Dim result As String = streamReader.ReadToEnd()
                Console.WriteLine(result)
            End Using
        Catch ex As WebException
            Using streamReader As New StreamReader(ex.Response.GetResponseStream())
                Dim errorResult As String = streamReader.ReadToEnd()
                Console.WriteLine("Error: " & errorResult)
            End Using
        End Try
    End Sub
End Module

Kullanıcı Bilgilerini Alma

                                                                                    
                                                                                    
Imports System
Imports System.IO
Imports System.Net
Imports System.Text

Module SmsApiExample
    Sub Main()
        Dim apiUrl As String = "https://api.vatansms.net/api/v1/user/information"
        Dim jsonData As String = """{
            \"api_id\": \"API_ID\",
            \"api_key\": \"API_KEY\"
        }"""

        Dim request As HttpWebRequest = CType(WebRequest.Create(apiUrl), HttpWebRequest)
        request.ContentType = "application/json; charset=utf-8"
        request.Method = "POST"

        Using streamWriter As New StreamWriter(request.GetRequestStream())
            streamWriter.Write(jsonData)
        End Using

        Try
            Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
            Using streamReader As New StreamReader(response.GetResponseStream())
                Dim result As String = streamReader.ReadToEnd()
                Console.WriteLine(result)
            End Using
        Catch ex As WebException
            Using streamReader As New StreamReader(ex.Response.GetResponseStream())
                Dim errorResult As String = streamReader.ReadToEnd()
                Console.WriteLine("Error: " & errorResult)
            End Using
        End Try
    End Sub
End Module

İleri Tarihli SMS İptal

İleri tarihli SMS iptal etmek için datanın içerisine 'id (Rapor ID)' : 'xxx' şeklinde gönderilmelidir.

                                                                                    
                                                                                    
Imports System
Imports System.IO
Imports System.Net
Imports System.Text

Module SmsApiExample
    Sub Main()
        Dim apiUrl As String = "https://api.vatansms.net/api/v1/cancel/future-sms"
        Dim jsonData As String = """{
            \"api_id\": \"API_ID\",
            \"api_key\": \"API_KEY\",
            \"id\": xxx
        }"""

        Dim request As HttpWebRequest = CType(WebRequest.Create(apiUrl), HttpWebRequest)
        request.ContentType = "application/json; charset=utf-8"
        request.Method = "POST"

        Using streamWriter As New StreamWriter(request.GetRequestStream())
            streamWriter.Write(jsonData)
        End Using

        Try
            Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
            Using streamReader As New StreamReader(response.GetResponseStream())
                Dim result As String = streamReader.ReadToEnd()
                Console.WriteLine(result)
            End Using
        Catch ex As WebException
            Using streamReader As New StreamReader(ex.Response.GetResponseStream())
                Dim errorResult As String = streamReader.ReadToEnd()
                Console.WriteLine("Error: " & errorResult)
            End Using
        End Try
    End Sub
End Module