RSS-канал службы push-уведомлений Apple

Насколько я понимаю, вам нужно отслеживать все идентификаторы устройств (как? Лично я создал базу данных). Когда человек впервые устанавливает приложение и подписывается на службу уведомлений, приложение должно отправить вам идентификатор устройства и имя пользователя (некоторый тип ключа) на ваш сервер.

VB Отправка push-уведомлений ANPSLibrary это просто функция, которую я создал для отправки push-уведомлений, вам нужно вызвать эту функцию, чтобы отправить уведомление.

Imports System.Net
Imports System.IO
Imports System.Text
Imports System.Security.Cryptography.X509Certificates
Imports System.Security.Cryptography
Imports System.Net.Security
Imports System.Net.Sockets
Imports System.Threading
Imports System.Linq
Imports System.Collections.Generic
Imports System.Runtime.Serialization
Imports System





Public Class PushNotification



    'Send PushNotifications
    '///sanbox is true, if we are developing, and false if we are out of developing
    '///testDeviceToken is the id of the device you want to send the push notfication to
    '///Message is the message we want the to send to the device
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Public Shared Function sendrequest(ByVal sandbox As Boolean, ByVal testDeviceToken As String, ByVal Message As String)

        Dim strHost As String
        Dim strP12FileName As String
        Dim strP12FilePassword As String
        Dim strJsonMsg As String
        Dim certificate As X509Certificate2
        Dim certificateCollection As X509CertificateCollection
        Dim nPort As Integer = 2195
        Dim apnsClient As TcpClient
        Dim apnsStream As SslStream


        Try
            ' Sets the Host to the correct server. 
            '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If sandbox = True Then
                strHost = "gateway.sandbox.push.apple.com"
            Else
                strHost = "gateway.push.apple.com"
            End If


            'The path of the certificate 
            '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            strP12FileName = "C:\Users\filelocation"
            strP12FilePassword = "password"

            'Putting Message in json format
            '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            strJsonMsg = "{""aps"":{""alert"":""" & Message & """,""badge"":1}}"


            certificate = New X509Certificate2(strP12FileName, strP12FilePassword)
            certificateCollection = New X509CertificateCollection
            certificateCollection.Add(certificate)

            'builds connection
            '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

            apnsClient = New TcpClient(strHost, nPort)
            apnsStream = New SslStream(apnsClient.GetStream(), True, _
                                       New RemoteCertificateValidationCallback(AddressOf validateServerCertificate), _
                                        New LocalCertificateSelectionCallback(AddressOf selectLocalCertificate))

            apnsStream.AuthenticateAsClient(strHost, certificateCollection, System.Security.Authentication.SslProtocols.Ssl3, False)

            'Turns everything in Bytes
            '-------------------------------------------------------------------------------------------------------------------------

            'Cannot be more than Binary size of 32
            Dim DeviceToken((testDeviceToken.Length / 2) - 1) As Byte
            For i As Integer = 0 To 31
                DeviceToken(i) = Byte.Parse(testDeviceToken.Substring(i * 2, 2), System.Globalization.NumberStyles.HexNumber)
            Next


            'Cannot be more than Binary size of 256
            Dim payload() As Byte = Encoding.UTF8.GetBytes(strJsonMsg)

            Dim DeviceTokenSize() As Byte = BitConverter.GetBytes(IPAddress.HostToNetworkOrder(Convert.ToInt16(DeviceToken.Length)))
            Dim payloadSize() As Byte = BitConverter.GetBytes(IPAddress.HostToNetworkOrder(Convert.ToInt16(payload.Length)))

            'Creates a Byte Array
            '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            Dim NotificationSize As Integer = 1 + DeviceTokenSize.Length + DeviceToken.Length + payloadSize.Length + payload.Length
            Dim Notification(NotificationSize) As Byte

            Notification(0) = 0
            Buffer.BlockCopy(DeviceTokenSize, 0, Notification, 1, DeviceTokenSize.Length)
            Buffer.BlockCopy(DeviceToken, 0, Notification, 1 + DeviceTokenSize.Length, DeviceToken.Length)
            Buffer.BlockCopy(payloadSize, 0, Notification, 1 + DeviceTokenSize.Length + DeviceToken.Length, payloadSize.Length)
            Buffer.BlockCopy(payload, 0, Notification, 1 + DeviceTokenSize.Length + DeviceToken.Length + payloadSize.Length, payload.Length)

            'Sends the Notification and closes and stream
            '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            apnsStream.Write(Notification)
            apnsStream.Close()
        Catch




        Finally
            'cleaning
            strHost = Nothing
            strP12FileName = Nothing
            strP12FilePassword = Nothing
            strJsonMsg = Nothing
            certificate = Nothing
            certificateCollection = Nothing
            nPort = Nothing
            apnsClient = Nothing
            apnsStream = Nothing
        End Try
        Return True

    End Function
    'This is needed for RemoteCertificateValidationCallback
    Public Shared Function validateServerCertificate(ByVal sender As Object, ByVal certificate As X509Certificate, ByVal chain As X509Chain, ByVal sslPolicyErrors As SslPolicyErrors)

        Return True 'Dont care about server's cert

    End Function
    'This is needed for LocalCertificateSelectionCallback
    Public Shared Function selectLocalCertificate(ByVal sender As Object, ByVal targetHost As String, ByVal localCertificates As X509CertificateCollection, _
        ByVal remoteCertificate As X509Certificate, ByVal acceptableIssuers As String())

        Dim certificate As X509Certificate2
        certificate = New X509Certificate2("C:\Users\filelocation", "password")
        Return certificate

    End Function

End Class

VB drive// по существу создает форму с двумя текстовыми полями, одно для ввода токена устройства и одно для сообщения. затем создайте драйвер ниже

Imports ANPSLibrary
Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click


        PushNotification.sendrequest(True, txtToken.Text, txtMsg.Text)
    End Sub
End Class