با سلام و سپاس به عزیران

 

بنا به در خواست یکی از دوستان که مینی بر کار با ایجاد شورتکات و حذف شورت کات بود.

 

که بتونه از هر اکتیویتی شورتکاتی ایجاد کنه و حذف کنه .

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

 

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

 

کد های مربوط به اکتیویتی به این صورت می باشد :

 

ساب مربوط به ایجاد کردن شورتکات 

 

Sub create
Dim shortcutIntent As Intent
shortcutIntent.Initialize("", "")
shortcutIntent.Action=shortcutIntent.ACTION_MAIN
shortcutIntent.SetComponent("b4a.example/.act2") ' اسم پکیج نیم و همچنین اسم اکتیویتی مورد نظر
Dim in As Intent
in.Initialize("", "")
in.PutExtra("duplicate",False)
in.PutExtra("android.intent.extra.shortcut.INTENT", shortcutIntent)
in.PutExtra("android.intent.extra.shortcut.NAME", "salmana") ' اسم آیکون شورتکات
in.PutExtra("android.intent.extra.shortcut.ICON", LoadBitmap(File.DirAssets,"ic_android.png"))' اندازه آیکون حتما ۷۲ در ۷۲ باشه چون اگر اندازه دیگه بدین رو گوشیهای دیگه کامل نشون نمیده. بهترین کار اینه که از ریسورس استفاده بشه ولی چون برای من که گوشی نوت ۵ با اندروید ۶ دارم نشون نداد و ایکن پیشفرض رو بجاش گذاشت دیگه نظرم اینه که عکس از دایراسست بدین و اندازه ۷۲ در ۷۲ که رو همه هم جواب میده
in.Action = "com.android.launcher.action.INSTALL_SHORTCUT"
Dim p As Phone
p.SendBroadcastIntent(in)
DoEvents
End Sub

 

ساب مربوط به حذف کردن شورتکات 

 

Sub remove
	Dim shortcutIntent As Intent
shortcutIntent.Initialize("", "")
shortcutIntent.Action=shortcutIntent.ACTION_MAIN
shortcutIntent.SetComponent("b4a.example/.act2") ' اسم پکیج نیم و همچنین اسم اکتیویتی مورد نظر
Dim in As Intent
in.Initialize("", "")
in.PutExtra("android.intent.extra.shortcut.INTENT", shortcutIntent)
in.PutExtra("android.intent.extra.shortcut.NAME", "salmana") ' اسم آیکون شورتکات
in.Action = "com.android.launcher.action.UNINSTALL_SHORTCUT"
Dim p As Phone
p.SendBroadcastIntent(in)
DoEvents
End Sub

 

کد مربوط به منیفست 

 

شایان به ذکر می باشد این act2 اسم اکتیویتی مورد نظر می باشد .

 

SetActivityAttribute(act2, android:exported, true)

 

دانلود سورس