امین شاهدی

با سلام...

اینم یه کتابخونه که آماده کردم
که کار های زیر رو میتونین باش انجام بدین :

 

 AriaLib :

 

-باز کردن صفحه نظر دادن برنامه بازار

-باز کردن صفحه برنامه های توسعه دهنده در برنامه بازار

-امکان به اشتراک گذاری برنامه  و یا هر برنامه ی نصب شده بر روی گوشی 

-اضافه کردن فایل های تصویری و صوتی بلافاصله به گالری و موزیک پلیر 

 

 

AriaMultipleSharing :

 

با استفاده از این کلس میتونین هرچندتا فایل رو به صورت همزمان به اشتراک بزارین (هر نوع فایلی)
برای مثال اشتراک همزمان 5 یا 10 یا هر تعداد عکس به برنامه هایی که از این امکان پشتیبانی میکنن مثل تلگرام ، لاین، زاپیا و ....
فقط یه نکته در صورتی که از StartSharingToApp استفاده کردین قبلش مطمعا شین که اون برنامه از این حالت پشتیبانی میکنه، :

 

AriaMarkets :

 

-باز کردن صفحه برنامه در کافه بازار ، ایران اپس ، کندو ، مایکت ، پارس هاب

-باز کردن صفحه نظر دهی به برنامه در کافه بازار ، ایران اپس ، کندو ، مایکت ، پارس هاب

-باز کردن صفحه برنامه های توسعه دهنده در کافه بازار ، ایران اپس ، کندو ، مایکت ، پارس هاب

 

و امکانات اضافی مارکت ها مثل :

- باز کردن صفحه برنامه و دانلود خودکار ( مایکت)

- تعیین امتیاز در ایران اپس از 1 تا 5 و بعد باز شدن صفحه نظر

- جستجو   ( ایران اپس)

- لیست دسته بندی   ( ایران اپس)

- ارتباط با توسعه دهنده  (پارس هاب)

 

 

میتونین برای جلو گیری از ارور نصب نبودن مارکت ها متد ها رو با اسفاده ار Try , Catch استفاده کنین.  مثال : 

Dim AM as AriaMarkets

Try
AM.IranApps_SafheNazarDehi("PACKAGENAME",5)
Catch
ToastMessageShow("برنامه ایران اپس بر روی گوشی نصب نیست",False)
End Try

اگه هم پیشنهادی دارین حتما بگین  
 

 

دانلود  v6.0

دانلود + سورس استفاده از v6.5     AriaCustomShareList

 

 

دانلود ورژن 7 کتابخانه :

AriaLib-v7.rar

با سلام.

عدد یه تبلیغات کلیکی که میتونین تو برنامتون بزارین که از هر کلیک حدودا +20تومان (بستگی به قیمت تبلیغات دهنده داره) میاد رو اعتبارتون

برای شروع میرین توی سایت عدد : www.adad.ir

سایت عدد نیاز به عضویت نداره و میتونین با یکی از اکانت های زیر واردش بشین :

-اکانت کافه بازار (پیشنهاد میشه با این اکانت وارد شین)
-اکانت گوگل
-اکانت یاهو

---

مرحله بعد :
1- 2تا کتابخانه مورد نیازه که اونو دانلود کنین و توی پوشه Libraries قرار بدین (برای دانلودش اینجا رو کلیک کنین)

2- باید رسانه یا برنامتون رو توی عدد ثبت کنین به این صورت که طبق عکس زیر اول میرین توی قسمت نمایش دهندگان و بعد توی قسمت رسانه های من و بعد هم بر روی دکمه رسانه جدید کلیک میکنین

http://answercenter.ir/attachment.php?attachmentid=1540&stc=1

3-مثل عکس زیر PackageName برنامه تون رو مینویسین و اونو ثبت میکنین. (برای تغییر Packagename برنامه در B4A ابتدا کلید های Ctrl+B رو بزنید و بعد جلوی قسمت Package اونو تغییر بدین)

http://answercenter.ir/attachment.php?attachmentid=1541&stc=1

4-در این مرحله طبق عکس زیر پیش میرین و شناسه برنامه رو دریافت میکنین

http://answercenter.ir/attachment.php?attachmentid=1544&stc=1
http://answercenter.ir/attachment.php?attachmentid=1546&stc=1


تا اینجا شناسه رو دریافت کردیم ... از اینجا به بعد توی خود B4a انجام میشه :
1-کتابخانه های زیر رو تیک میزنین:
-adad
-Reflection

2- این کد رو به مانیفست برنامه اضافه میکنین:
 

AddApplicationText(
    <Activity
            android:name="ir.adad.AdadActivity"
            android:theme="@android:style/Theme.Dialog">
    </Activity>
    <meta-data android:name="ir.adad.token" android:value="YOUR_TOKEN"></meta-data>
    <meta-data android:name="ir.adad.test_mode" android:value="true"></meta-data>
)

3- مثل عکس زیر به جای مقدار YOUR_TOKEN شناسه برنامه خودتون رو بزارین
http://answercenter.ir/attachment.php?attachmentid=1547&stc=1
نکته : برای اینکه تبلیغات از حالت آزمایشی در بیاد قبل از کامپایل نهایی مقدار ir.adad.test_mode که به صورت پیش فرض True هست رو False کنین
برای دیدن عکس کلیک کنید (5تا عکس بیشتر نمیشه ضمیمه کرد.)


5- این کد رو هم توی یه خط جدا به مانیفست اضافه کنید(در صورتی که برنامه شما دسترسی به اینترنت رو داره دیگه لازم نیست این کد رو اضافه کنید)

AddPermission(android.permission.INTERNET)

6- در Sub Activity_Create این کد رو قرار بدین :

Sub Activity_Create(FirstTime As Boolean)    
    Dim verticalPosition As String = "bottom" '"top" or "bottom"
    Dim horizontalPosition As String = "center" '"left", "right" or "center"
    Dim r As Reflector 
    Dim args(3) As Object = Array As Object(r.GetActivity, verticalPosition, horizontalPosition)
    Dim types(3) As String = Array As String("android.app.Activity", "java.lang.String", "java.lang.String")    
    r.RunStaticMethod("ir.adad.AdadB4APlugin", "createAdView", args, types)
End Sub

برای تغییر مکان نمایش تبلیغ مقدار verticalPosition رو میتونین به bottom برای پایین و top برای بالا قرار بدین
و برای horizontalPosition مقدار center برای وسط و left و right برای چپ و راست

---

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

Dim disabled As String = "true"
Dim args(1) As Object = Array As Object(disabled)
Dim types(1) As String = Array As String("java.lang.String")
r.RunStaticMethod("ir.adad.AdadB4APlugin", "setDisabled", args, types)

امیدوارم مفید بوده باشه

 

 

 

آموزش تصویری این آموزش در لینک زیر که توسط آقای فرقانی آموزش داده شده است :

http://answercenter.ir/topic/4674-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%AA%D8%B5%D9%88%DB%8C%D8%B1%DB%8C-%D8%AA%D8%A8%D9%84%DB%8C%D8%BA%D8%A7%D8%AA-%D8%B9%D8%AF%D8%AF-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-%D9%85%D8%AB%D8%A7%D9%84/