سلام دوستان در خرید اشتراکی 365 روزه کافه بازار با b4a میخوام چک کنم اگر کاربر قبلا محصول رو خریده دیگه پرداخت انجام نشه و برنامه فعال بشه
کد بررسیش چطوریه
من کد اشتراکی رو زدم و شخص پرداخت میکنه و فعال میشه اما وقتی کاربر برنامه رو پاک کنه و دوباره نصب کنه ، هنگام پرداخت مبلغ کسر میکه در صورتی که باید چک کنه اگر قبلا پرداخت کرده و از مهلتش باقی مانده ، نباید مبلغ کسر بشه
لطفا کمکم کنید
Sub Button1_Click
If (File.Exists(File.DirInternalCache,"MANIFEST.js") =False) Then
InAppBilling.Initialize("InAppBilling", "bazaar", key)
InAppBilling.DebugLogging = True
Else
Msgbox("نسخه کنونی ، نسخه کامل می باشد","هشدار")
End If
End Sub
Sub InAppBilling_SetupFinished(Supported As Boolean, Message As String)
If Supported = True Then
Try
InAppBilling.RequestPayment("mmpi71_2", "subs", DeveloperPayload)
Catch
Log(LastException)
End Try
End If
End Sub
Sub InAppBilling_PurchaseFinished (Success As Boolean, Purchase As Purchase)
Log(Success)
If Success = True Then
' InAppBilling.ConsumeProduct(Purchase) ' Baray Mahsolat eshteraki ya masraf nashodani estefade nashavad
File.WriteString(File.DirInternalCache, "MANIFEST.js" , DeveloperPayload)
MsgboxAsync("پرداخت با موفقیت انجام شد. نمایش نیمرخ ، فعال شد","پیام")
Wait For Msgbox_Result(pResult As Int)
Else
MsgboxAsync("پرداخت ناموفق بود 1","پیام")
End If
End Sub
Sub InAppBilling_ConsumeFinished(Success As Boolean, Purchase As Purchase)
If Success = True Then
File.WriteString(File.DirInternalCache, "MANIFEST.js" , DeveloperPayload)
MsgboxAsync("پرداخت با موفقیت انجام شد. نمایش نیمرخ ، فعال شد","پیام")
Wait For Msgbox_Result(pResult As Int)
Else
MsgboxAsync("پرداخت ناموفق بود 2","پیام")
End If
End Sub
سوال
seyed_27 170
سلام دوستان در خرید اشتراکی 365 روزه کافه بازار با b4a میخوام چک کنم اگر کاربر قبلا محصول رو خریده دیگه پرداخت انجام نشه و برنامه فعال بشه
کد بررسیش چطوریه
من کد اشتراکی رو زدم و شخص پرداخت میکنه و فعال میشه اما وقتی کاربر برنامه رو پاک کنه و دوباره نصب کنه ، هنگام پرداخت مبلغ کسر میکه در صورتی که باید چک کنه اگر قبلا پرداخت کرده و از مهلتش باقی مانده ، نباید مبلغ کسر بشه
لطفا کمکم کنید
Sub Button1_Click If (File.Exists(File.DirInternalCache,"MANIFEST.js") =False) Then InAppBilling.Initialize("InAppBilling", "bazaar", key) InAppBilling.DebugLogging = True Else Msgbox("نسخه کنونی ، نسخه کامل می باشد","هشدار") End If End Sub Sub InAppBilling_SetupFinished(Supported As Boolean, Message As String) If Supported = True Then Try InAppBilling.RequestPayment("mmpi71_2", "subs", DeveloperPayload) Catch Log(LastException) End Try End If End Sub Sub InAppBilling_PurchaseFinished (Success As Boolean, Purchase As Purchase) Log(Success) If Success = True Then ' InAppBilling.ConsumeProduct(Purchase) ' Baray Mahsolat eshteraki ya masraf nashodani estefade nashavad File.WriteString(File.DirInternalCache, "MANIFEST.js" , DeveloperPayload) MsgboxAsync("پرداخت با موفقیت انجام شد. نمایش نیمرخ ، فعال شد","پیام") Wait For Msgbox_Result(pResult As Int) Else MsgboxAsync("پرداخت ناموفق بود 1","پیام") End If End Sub Sub InAppBilling_ConsumeFinished(Success As Boolean, Purchase As Purchase) If Success = True Then File.WriteString(File.DirInternalCache, "MANIFEST.js" , DeveloperPayload) MsgboxAsync("پرداخت با موفقیت انجام شد. نمایش نیمرخ ، فعال شد","پیام") Wait For Msgbox_Result(pResult As Int) Else MsgboxAsync("پرداخت ناموفق بود 2","پیام") End If End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.