کتابخانه AriaLib (اشتراک گذاری)

[Big-M 5]

نمی خواستم اسپم کنم. اما حس کردم یه "پسندیدم" برای کارتون خیلی کمه.

واقعا خسته نباشید.

[امین شاهدی 5,765]

سلام آقا امین من دانلود مستقیم از بازار را چون احتیاج داشتم تست کردم جواب نداد با api 19 کامپایل کردم  رو آندورید 5 ( نوت 3) روی نسخه ی جدید بازار امتحان کردم نسخه ی کتابخونه 3 . اگر لطف کنید ببینید چه مشکلی داره ممنون میشم ضمنا صفحه ی بازار باز میشه برنامه هم میاد اما شروع به دانلود نمیکنه یا اگر روش دیگری میشناسید پیشنهاد کنید. 

 

بازار این امکان رو برداشته و از Intent Insert دیگه برای دانلود مستقیم نمیشه استفاده کرد.

[حمید زارع 331]

من برنامم دیتابیس داره میخام وقتی برنامه رو share می کنم یک دیتابیس خام ارسال بشه نه دیتابیسی که اطلاعات داره

 

میشه ؟؟؟

[امین شاهدی 5,765]

من برنامم دیتابیس داره میخام وقتی برنامه رو share می کنم یک دیتابیس خام ارسال بشه نه دیتابیسی که اطلاعات داره

 

میشه ؟؟؟

 

خب دوست عزیز به نظر شما اینجا جای پرسیدن همچین سوالیه ؟ بهتر نیس یه تاپیک جدا بزنید ؟

[sinaparsian 29]

آقا واقعا دست شما درد نکنه بابت این کتابخونه یه دونه باشی داداش ....

 

فقط کاش میشد این امکان رو هم به کتابخونت اضافه می کردی (ShareTextToAPPWithnumber)

 

که بتونیم متن رو به یه شماره خاص از بین مخاطبامون ارسال کنیم ........

 

یعنی میشه؟؟؟؟؟؟ :20:

 

:2: :2:

 

[cloner01001 38]

سلام ، من یه فایل صوتی دارم چطور با این کتابخونه میتونم اونو به اشتراک بزارم؟

[sinaparsian 29]

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

 

یه سوال دیگه در  مورد این لایبرری

 

من با این لایبرری پروفایلی رو توی لاین باز کردم

 

متن salam رو بدین وسیله : aria.SetClipboardText("salam")1

 

تو کلیپ برد قرار دادم

 

اما برای paste کردن متن  با کد aria.GetClipboardText در محل نوشتن پیام در لاین هیچ عملی انجام نمیشه متن کپی شده اما تو لاین paste نمیشه :fekr:

 

تازه اگر هم کپی بشه چه طور بگم دکمه ارسال هم زده بشه به صورت خودکار :crazy:

:89:

[امین شاهدی 5,765]

از ورژن جدید استفاده کنید ، توی ورژن جدید با یه متد میتونین هم متن رو قرار بدید و هم متن رو بگیرید ، به این صورت : 

 

قرار دادن متن در کلیپبورد  : 

Dim aria As AriaLib
aria.ClipboadText = "basic4android.org"

گرفتن هم دقیقا با همون متد به صورت برگشتی  انجام میشه : 

Dim aria As AriaLib
Msgbox( aria.ClipboadText , "" )

[sinaparsian 29]

مگه آخرین ورژن ، ورژن 5 نیست؟؟؟ منم با این ورژن کار میکنم aria.SetClipboardText("salam")1اینجوریه

 

 aria.ClipboadText همچین کدی نیست توش

 

 

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

[امین شاهدی 5,765]

ورژن 5.1 آخریشه ، شما فقط میشه کپی کنی ، برای پیست کردن باید توی لاین خود طرف باید paste کنه

[sinaparsian 29]

درود بر شما امین جان ممنونم  بسیار ممنون

 

فقط ببین درست منظورتو متوجه شدم : شما میگی که من فقط می تونم کپی کنم اگه بخوام تو لاین paste کنم باید دستی این کارو انجام بدم درسته یعنی یه تاچ طولانی رو جایی که پیام رو می فرستیم تو لاین انجام بدم و بعد paste رو بزنم دیگه درسته؟

 

در ضمن اگه زحمتی نیست ورژن 5.1 رو اینجا آپلود کنید لطفا با تشکر

[امین شاهدی 5,765]

همیشه آخرین ورژن رو میتونین از پست اول همین تاپیک دانلود کنید .

 

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

Dim aria As AriaLib
aria.ShareTextToAPP("Matn morede nazar",aria.PACKAGE_LINE)

[sinaparsian 29]

یعنی می فرمائید که :

 

 نمیشه تو داخل پروژه بیسیک آی دی یه نفر خاص با یه شماره تلفن مشخص که تو کانتکت ها هم وجود داره و عضو لاین هم هست رو داد و رویدادی رو برای دکمه ای تعریف کرد که با

 

کلیک اون دکمه متن مشخص شده از داخل یک EditText برای این مخاطب ارسال بشه ؟؟؟؟؟؟؟؟؟

 

 

[امین شاهدی 5,765]

خیر لاین همچین امکانی نداره

[sinaparsian 29]

ممنون و متشکر از راهنمایی هاتون و کتابخانه

[maryam 7]

سلام اقای شاهدی اگه امکانش هست باز کردن پروفایل توی تلگرام هم به کتابخونه اضافه کنین.

امکانش هست؟؟

خیلی نیاز دارم.

ممنونم

[Elyas Erfani 3,582]

سلام اقای شاهدی اگه امکانش هست باز کردن پروفایل توی تلگرام هم به کتابخونه اضافه کنین.

امکانش هست؟؟

خیلی نیاز دارم.

ممنونم

سلام دوست عزیز

سورس تلگرام سرچر‌ داخل قسمت سورس کدهای انجمن موجوده ک ب سادگی و با ۱ خط کد پروفایل تلگرام ایدی مورد نظرو باز میکنه و‌میتونید از اون استفاده‌ کنید

جست و جو کنید

[امین شاهدی 5,765]

سلام اقای شاهدی اگه امکانش هست باز کردن پروفایل توی تلگرام هم به کتابخونه اضافه کنین.

امکانش هست؟؟

خیلی نیاز دارم.

ممنونم

 

چشم ورژن بعدی اضافه میکنم ، تا اون موقع از این ساب که نوشتم استفاده کنید : 

Sub OpenTelegramID(username As String)
Dim a As AriaLib
If a.isAppInstalled(a.PACKAGE_TELEGRAM) Then
Dim i As Intent
i.Initialize(i.ACTION_VIEW, "http://telegram.me/"&username)
StartActivity(i)
Else
ToastMessageShow("تلگرام نصب نیست",False)
End If	
End Sub

به این صورت : 

OpenTelegramID("aminshahedi")

[maryam 7]

ممنونم.خیلی کمکم کردین

یه سوال دیگه هم داشتم چظور میتونم یک متن ثابت رو به این id که باز کردم بفرستم

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

[امین شاهدی 5,765]

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

http://stackoverflow.com/questions/26691289/using-telegram-to-send-a-message/31649857#31649857

این لینک رو ببینید جواب آخری کمکتون میکنه