Sub Service_Create
InitBillMan
End Sub
Sub CheckProducts
Dim r As Reflector
r.Target=BillingManager
r.Target=r.GetField("helper")
r.Target=r.GetField("mService")
If Not(r.IsNull) Then
BillingManager.GetOwnedProducts
Else
InitBillMan
End If
End Sub
Private Sub InitBillMan
BillingManager.Initialize("BillMan", BillingKey)
Wait For BillMan_BillingSupported (Supported As Boolean, Message As String)
If Supported Then
BillingManager.GetOwnedProducts
End If
End Sub