Public Sub Firebase_FCMConnected
xc.Logd("fm_FCMConnected")
xc.registerTopics
Dim token As String=GetToken
If token<>"" Then
xc.logd("firebaseToken:" & token)
kvs.Put("firebaseToken", token)
xc.registerToken
End If
End Sub
Private Sub GetToken As String
Dim no As NativeObject
Dim token As NativeObject = no.Initialize("FIRInstanceID").RunMethod("instanceID", Null).RunMethod("token", Null)
If token.IsInitialized Then Return token.AsString Else Return ""
End Sub