Android Question Inapp billing error


Active Member
Licensed User
Longtime User
Hi ,
I am trying to test inapp billing in a small project . Followed Erel's tutorial . Uploaded apk to store . obtained key , added managed product in inapp products . When I tried to test in my device ,an error says "The item you were attempting to purchase could not be found "

this is my code :
Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Private btnBuy As Button
    Private btnGo As Button
    Dim manager As BillingManager3
    Private key As String = "MIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEAtKs+EKiUgwa4K+GxeBZp5FeD5pmb1R/JsOLLSu54zcugEHb445qM1tfvvO+Tmd+WkGVDYi8smi8M40W2X/93XrRg4y9TDh5dUrZxrM9JF7nkta8Jn3zmrCDZYnFHTxSKMWCcMmmUnop+uDCZY7aZ8+V3xvSIsWqQ26icdHCdV57zUWisLmZurwOyWGTzgg0wavuYcdP3lyhdXjkI9J11Ws6UzCrbY4KztXllAdaVlnuRNd+LKMvW7MopLU6Y8Q1znajAVYDUswP2As8du2HXUyp4hIYNLpuoLdCDKEBjNnI53VV2y30Ld7ecML40pDEI4hCz7mOWCTWMaVyn1dV29wIDAQAB"
    Dim Productid1 As String = "sgj_inapp_photo"
    Dim Producttype As String
    Dim DeveloperPayload As String
    DeveloperPayload = "Seller" ' ---> Name of my App "
    Producttype="inapp" ' ---> this is an input
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    btnGo.Visible = False
    If FirstTime Then
      manager.Initialize("manager", key)
      manager.DebugLogging = True
   End If

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub Manager_BillingSupported (Supported As Boolean, Message As String)
   Log(Supported & ", " & Message)
   Log("Subscriptions supported: " & manager.SubscriptionsSupported)
End Sub
Sub manager_OwnedProducts (Success As Boolean, purchases As Map)
   If Success Then
      btnBuy.Visible = False
      btnGo.Visible = True
      For Each p As Purchase In purchases.Values
         Log(p.ProductId & ", Purchased? " & (p.PurchaseState = p.STATE_PURCHASED))
   End If
End Sub

Sub btnBuy_Click
    Dim s As Int
    s = Msgbox2("Please buy the full version","SGJoisa","Ok","","Cancel",Null)
    If s = DialogResponse.POSITIVE Then
    End If   
End Sub