Public Sub SubscribeToTopics
Log("SubscribeToTopics")
fm.SubscribeToTopic(starter.Phone.GetSettings("android_id")) 'you can subscribe to more topics
fm.SubscribeToTopic("general") 'you can subscribe to more topics
CheckToken
End Sub
Sub CheckToken
Log("CheckToken: "&fm.Token)
Do While fm.Token = ""
Log("Sleep250")
Sleep(250)
Loop
If fm.Token <> "" Then
Log("Register Device with Token: "&fm.Token)
Dim j As HttpJob
j.Initialize("",Me)
j.Download2("http://yourdomain.com",Array As String("action","register","token",fm.Token,"deviceID",starter.Phone.GetSettings("android_id")))
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Log(j.GetString)
Else
Log(j.ErrorMessage)
End If
j.Release
End If
End Sub