小编mon*_*uiz的帖子

我正在使用此代码将Apple推送通知发送到iPhone:

Public Function SendPush() As String
    Dim rt As String = "Sended!"
    Dim deviceToken As String = "my token"
    Dim message As String = "Parabéns é Campeão!"
    Try

        Dim payLoad As New NotificationPayload(deviceToken, message, 1, "default")
        payLoad.AddCustom("RegionID", "IDQ10150")
        ' 51 is the badge no
        Dim notificationList = New List(Of NotificationPayload)() From { _
         payload _
        }

        Dim push = New PushNotification(True, "apn_developer_identity.p12", "password")
        Dim result = push.SendToApple(notificationList)
    Catch ex As Exception
        rt = "Error!"
    End Try

    Return rt

End Function …