#AdditionalJar: com.google.android.play:review
Sub Globals
Private InAppReview As InAppReviewHelper
End Sub
Sub Activity_Create(FirstTime As Boolean)
' UseFakeReviewManager = True - This should only be used For unit or integration tests to verify the behaviour of the app once the review Is completed.
' Note: FakeReviewManager does not simulate the UI (no pop-up will be shown).
' It only fakes the API method result by always providing a fake ReviewInfo object and returning a success status when the in-app review flow is launched.
' UseFakeReviewManager = False - Use it for production app.
InAppReview.Initialize(Me, "InAppReview", False)
End Sub
Private Sub BtnAppReview_Click
Try
Dim oContext As JavaObject
oContext.InitializeContext
InAppReview.LaunchReview(oContext)
Wait For InAppReview_Complete (Success As Boolean, ErrorDetails() As String)
Log("InAppReview Success = " & Success)
Log("ErrorType = " & ErrorDetails(0))
Log("ErrorDescription = " & ErrorDetails(1))
Log("IsReviewDialogLikelyToAppear = " & InAppReview.IsReviewDialogLikelyToAppear)
Return
Catch
Log(LastException)
Return
End Try
End Sub