سلام، توی انجمن مثله اینکه کتابخانه ای برای امنیت درون پرداخت درست شده بود که مشکلاتی داشت و روی بعضی دستگاه ها مشکل پیش میومد.
حالا با کتابخانه معمولی خود درون پرداخت اگه این کدها رو بدیم بازم مشکل پیش میاد احیانا برای کاربران یا مشکل از همین کدها هستش که بعضی کاربران مواجه میشن باهاش.
permissions: Get_Tasks
Sub e33bazarcheck As Boolean
Dim ActMan As JavaObject
Dim R As Reflector
R.Target=R.GetContext
ActMan = R.RunMethod2("getSystemService","activity","java.lang.String")
Dim TaskInfo As JavaObject = ActMan.RunMethod("getRunningTasks",Array As Object(1))
Dim CompInfo As JavaObject = TaskInfo.RunMethodJO("get",Array As Object(0)).GetField("topActivity")
Dim PackageName As String = CompInfo.RunMethod("getPackageName",Null)
If PackageName.CompareTo("com.farsitel.bazaar")=0 Then Return True
Return False
End Sub
Sub buy_PurchaseCompleted (Success As Boolean, Product As Purchase)
If e33bazarcheck Then
If Success Then
ToastMessageShow("خرید شد",True)
End If
Else
Msgbox("Warning","خطا در خرید!")
End If
End Sub
سوال
fito 45
سلام، توی انجمن مثله اینکه کتابخانه ای برای امنیت درون پرداخت درست شده بود که مشکلاتی داشت و روی بعضی دستگاه ها مشکل پیش میومد.
حالا با کتابخانه معمولی خود درون پرداخت اگه این کدها رو بدیم بازم مشکل پیش میاد احیانا برای کاربران یا مشکل از همین کدها هستش که بعضی کاربران مواجه میشن باهاش.
permissions: Get_Tasks Sub e33bazarcheck As Boolean Dim ActMan As JavaObject Dim R As Reflector R.Target=R.GetContext ActMan = R.RunMethod2("getSystemService","activity","java.lang.String") Dim TaskInfo As JavaObject = ActMan.RunMethod("getRunningTasks",Array As Object(1)) Dim CompInfo As JavaObject = TaskInfo.RunMethodJO("get",Array As Object(0)).GetField("topActivity") Dim PackageName As String = CompInfo.RunMethod("getPackageName",Null) If PackageName.CompareTo("com.farsitel.bazaar")=0 Then Return True Return False End Sub Sub buy_PurchaseCompleted (Success As Boolean, Product As Purchase) If e33bazarcheck Then If Success Then ToastMessageShow("خرید شد",True) End If Else Msgbox("Warning","خطا در خرید!") End If End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.