Public Sub SubscribeToTopics
fm.SubscribeToTopic(starter.Phone.GetSettings("android_id")) 'you can subscribe to more topics
Log("Token: "&fm.Token)
If fm.Token <> "" Then
Dim j As HttpJob
j.Initialize("",Me)
j.Download2("http://urltophpscript",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
fm.SubscribeToTopic("general") 'you can subscribe to more topics
'
End Sub