باسلام . نمونه کدی که استفاده کردم به قرار زیر هستش
Sub pardakht_PurchaseCompleted (Success As Boolean, Product As Purchase)
If Success=True Then
Log("success")
If Product.DeveloperPayload="kharidurgent" Then
ar.SaveBoolean("kharidurgent",True)
material_toast.Initialize2(" فعال شدند",material_toast.LENGTH_LONG,material_toast.TYPE_SUCCESS,samim_font)
End If
Else
ToastMessageShow("anjam nashod",False)
End If
End Sub
کد دکمه ای که به سمت خرید میره هم به قرار زیر هستش
Sub pnl_urgent_Click
If ar.GetBoolean("kharidurgent",False) = False Then
pardakht.RequestPayment("kharidurgent","inapp","kharidurgent")
Else
StartActivity(urgentmodule)
Activity.Finish
End If
End Sub
وقتی روی دکمه کلیک میکنم صفحه بازار می یاد که لطفا صبر کنید و دیگه مهو میشه و هیچی و log برنامه هم به قرار زیر هستش
requestCode = 12
** Activity (menumodule) Pause, UserClosed = false **
sending message to waiting queue (OnActivityResult)
running waiting messages (1)
Arrived: 12, 12
success
** Activity (menumodule) Resume **
** Activity (menumodule) Pause, UserClosed = false **
** Activity (menumodule) Resume **
** Activity (menumodule) Pause, UserClosed = false **
** Activity (menumodule) Resume **
requestCode = 13
** Activity (menumodule) Pause, UserClosed = false **
sending message to waiting queue (OnActivityResult)
running waiting messages (1)
Arrived: 13, 13
success
** Activity (menumodule) Resume **
** Activity (menumodule) Pause, UserClosed = false **
دلیل چی هست؟
