Private Sub Application_RemoteNotification (Message As Map, CompletionHandler As CompletionHandler)
Log($"Message arrived: ${Message}"$)
' Msgbox(Message, "Push message!")
Dim connection As HttpJob
connection.Initialize("durumcheck",Me)
connection.download2("https://www.ctmobilesoft.com/tahminhaneapp/tahminhane.php", Array As String ("action", "8", "girdi1", txtusername.text, "girdi2", txtpassword.text,"girdi3",gecerliid,"girdi4",cihazno))
CompletionHandler.Complete
End Sub