مشکل در درون پرداخت کندو

[ahmadsolgi 11]

سلام

من ی برنامه درون پرداخت بازار دارم که میخوام درون پرداخت کندو رو روش پیاده کنم برنامه حالت کتابه

تا یه جاهایی رفتم و به مشکل برخوردم از دوستان میخوام اگه کسی بلده راهنمایی کنه

ممنون

[مهران محمودی 778]

من ی برنامه درون پرداخت بازار دارم که میخوام درون پرداخت کندو رو روش پیاده کنم برنامه حالت کتابه

درون پرداخت بازاره که میخوای کندو رو پیاده کنی؟ چی شد نفهمیدم...

[ahmadsolgi 11]

اره داداش بازارو روش پیاده کردم و الان میخوام کندو رو پیاده کنم

[ahmadsolgi 11]

کاملشو بفرستم به ایمیلت میتونی ی نگاه بهش بندازی؟؟*قلب*

[ahmadsolgi 11]

ممنوم دوستان واقعا کمک کردین خیییییییییییلی ممنون ااز همه اساتید

[ahmadsolgi 11]

زمانیکه که دکمه ارتقا رو میزنم میره به صفحه درون پرداخت کندو و سریع میاد بیرون و توجه کنید که قیمت و مشخصات برنامم رو نشون نمیده و سریع میاد بیرون

فقط فوریه اگه کمک کید ممنون میشم اگه دوستان کسی هست من سورس رو براش بفرستم و ایرادم رو بگیره ممنون میشم

[ahmadsolgi 11]

    Dim oBillingManager As BillingManager
   Private key As String = "kelid barname""
   Dim opid As PhoneId

این کد اول برنامه هست

[ahmadsolgi 11]

If FirstTime Then
       oBillingManager.Initialize("oBillingManager", key)
       '-> its for debug , set it to false afte test and when ready to build the App 
       oBillingManager.DebugLogging = True 'False 'True
   End If

و این

[ahmadsolgi 11]

و اینجا برنامه میره برا ارتقا

Sub ImageView1_Click
   StartBuy
End Sub

توسط این تابع زیر

Sub StartBuy()
   oBillingManager.RequestPayment("solgi.ostad.pc","inapp",opid.GetDeviceId)
End Sub 

واینم چک کردن خرید

Sub oBillingManager_PurchaseCompleted (Success As Boolean, Product As Purchase)
           If Success Then

               File.WriteString(File.DirInternal,"upgrade","true")

           Else

               Msgbox("انگار این بار قسمت نبود","")

           End If



End Sub

ولی متاسفانه خریدی انجام نمیشه و برمیگرده به برنامه