ستاره دادن و ثبت نظر

[mahdavifar 20]

با سلامی مجدد

 

 

میخوام کاربر بتونه بعد از نصب برنامه نظر ثبت کنه و ستاره بده

و این ثبت ونظرش در برنامه ی بازار ذخیره بشه.....

یعنی به جای اینکه لینک برنامه ی ما رو توی بازار باز کنه و بخواد نظر بده و یا ستاره بده این امکان وجود داشته باشه که توی خود برنامه نظرش و بده و در بازار ثبت بشه....

 

مثل نظردهی در برنامه ی باد صبا...البته اگر دیده باشید

[reza2001 587]

سلام ، معمولا هنگام خروج از برنامه از کاربر تقاضای نظر دادن می کنن ! این کد ها رو ببین :

Dim result As Int
    result=Msgbox2("آیا می خواهید خارج شوید ?!","","آره","دادن ستاره","نه",Null)
    If result=DialogResponse.POSITIVE Then
    Activity.Finish
    ExitApplication
    Else If result=DialogResponse.NEGATIVE Then
    Return True
    Else If result=DialogResponse.CANCEL Then
    Dim i As Intent
    i.Initialize(i.ACTION_EDIT,"bazaar://details?id=PackageName")
    StartActivity(i)
    End If

اینو توی باتون یا کی پرس بزار کارت راه میفته

[amirhossein16 0]

سلام ، معمولا هنگام خروج از برنامه از کاربر تقاضای نظر دادن می کنن ! این کد ها رو ببین :

Dim result As Int
    result=Msgbox2("آیا می خواهید خارج شوید ?!","","آره","دادن ستاره","نه",Null)
    If result=DialogResponse.POSITIVE Then
    Activity.Finish
    ExitApplication
    Else If result=DialogResponse.NEGATIVE Then
    Return True
    Else If result=DialogResponse.CANCEL Then
    Dim i As Intent
    i.Initialize(i.ACTION_EDIT,"bazaar://details?id=PackageName")
    StartActivity(i)
    End If

اینو توی باتون یا کی پرس بزار کارت راه میفته

عالی بود

 

اما اجرا نمی کنه باید چی کار کنم؟؟

[Alireza.Ghafari 2,104]

براای نظر دهی از این کد استفاده کنید : 

	Dim intent1 As Intent
   intent1.Initialize(intent1.ACTION_EDIT,"bazaar://details?id=PACKAGE")
StartActivity(intent1)

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

If File.Exists(File.DirInternal, "nazar.text") = False Then
اینجا کد ثبت نظر بالا رو بزنید و یک فایل به اسم nazar.text درست کنید تا دفعه بعد سوال نشه.
else
msgbox("خطا","شما قبلا نظر داده ایی")
End If

در ضمن با استفاده کتابخانه آریا ک آقا امین عزیز زحمتشو کشیدن هم میشه نظر گرفت به این صورت :

Dim aria As AriaLib
aria.NazarInCafebazaar("PACKAGE NAME")

[mahdavifar 20]

تشکر

بزارید چک کنم ببینم جواب میده