13 ارسال در این موضوع قرار دارد

دوستان درود


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


که تونستم با قاطی کردن کد جاوا و بیسیک بتونم چنل در تلگرام یا یک چت رو با یک کاربر باز کنم


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


 


کد :



Dim in As Intent
in.Initialize(in.ACTION_VIEW,"https://telegram.me/basic4x")
Dim jo As JavaObject = in
jo.RunMethod("setPackage", Array("org.telegram.messenger"))
StartActivity(jo.RunMethod("createChooser", Array As Object(in, "")))

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


 


در پناه حق


به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

سلام و درود


کافیه یه تری کش بذاری خودش راهنمایت میکنه به صورت زیر که من نوشتم اگه با مشکل روبه رو بود، پیام بده



Dim pm As PackageManager
Dim salam As String
Try
salam = pm.GetVersionName("org.telegram.messenger")
Dim in As Intent
in.Initialize(in.ACTION_VIEW,"https://telegram.me/basic4x")
Dim jo As JavaObject = in
jo.RunMethod("setPackage", Array("org.telegram.messenger"))
StartActivity(jo.RunMethod("createChooser", Array As Object(in, "")))
Catch
ToastMessageShow("برنامه تلگرام در گوشی شما نصب نمی باشد.",True)
End Try

در پناه حق


salmana و طاها الیاس زاده پسند شده است

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

ممنون مجتبی جان

 

دقیقا متوجه شدم خیر ببینی

با سپاس

 

 

سلام و درود

کافیه یه تری کش بذاری خودش راهنمایت میکنه به صورت زیر که من نوشتم اگه با مشکل روبه رو بود، پیام بده

	Dim pm As PackageManager
	Dim salam As String
	Try
	 salam = pm.GetVersionName("org.telegram.messenger")
	   Dim in As Intent
       in.Initialize(in.ACTION_VIEW,"https://telegram.me/basic4x")
       Dim jo As JavaObject = in
       jo.RunMethod("setPackage", Array("org.telegram.messenger"))	   
       StartActivity(jo.RunMethod("createChooser", Array As Object(in, "")))	
	Catch
		ToastMessageShow("برنامه تلگرام در گوشی شما نصب نمی باشد.",True)	
	End Try

در پناه حق

 

 

این ترای کچ که مجتبی خان گفت کارت را راحت راه میندازه ولی خاب گاهی اوقات نیاز داری که بفهمی فلان برنامه نصب شده یا نه دیگه باید کد اصلی بفهمی که چجوری تشخیص بده

کد پایین محض افزایش دانشت میگم :

Dim far As Intent
Dim pm As PackageManager
far=pm.GetApplicationIntent("com.whatsapp")
If far.IsInitialized Then
ToastMessageShow("برنامه نصب هست",True)
Else
ToastMessageShow("برنامه نصب نیست",True)	
End If
طاها الیاس زاده، H@mid.RS و Sina پسندیده اند

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

مجتبی جان استاد شرط برای 4 نوع تلگرام گزاشتن  پشت سر هم برنامه چک کنه کدوم نصبه و یکیش رو باز کنه به چه صورت هست 

 

یعنی بهش بگیم اول موبوگرام بعد نصب نبود تلگرام بعد نصب نبود تلگراف و غیره .................

 

ممنون میشم یه تو ضیحی بدی

 

با سپاس

 

اینجا دیگه باید از کدی که سلمانا گذاشتن استفاده کنی به صورت Else if

از بالا به پایین شروع میشه چک میکنه هر کدوم شرط برقرار شد میره داخلش

کلیک کن:

پست شش

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

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



Dim far,far2 As Intent
Dim pm As PackageManager
far=pm.GetApplicationIntent("پکیج نیم موبوگرام")
far2=pm.GetApplicationIntent("پکیج نیم تلگرام")

If far.IsInitialized Then

salam = pm.GetVersionName("پکیج نیم موبوگرام")
Dim in As Intent
in.Initialize(in.ACTION_VIEW,"https://telegram.me/basic4x")
Dim jo As JavaObject = in
jo.RunMethod("setPackage", Array("org.telegram.messenger"))
StartActivity(jo.RunMethod("createChooser", Array As Object(in, "")))

Else If far2.IsInitialized Then
Dim salam2 As String
salam2 = pm.GetVersionName("پکیج نیم تلگرام")

Dim in2 As Intent
in2.Initialize(in.ACTION_VIEW,"https://telegram.me/basic4x")
Dim jo2 As JavaObject = in2
jo2.RunMethod("setPackage", Array("org.telegram.messenger"))
StartActivity(jo2.RunMethod("createChooser", Array As Object(in2, "")))

else
ToastMessageShow("هیچ برنامه ای نصب نیست.",True)
End If

توجه کن من دوتا برنماه قرار دادم شما هرچی عشقت کشید قرار بده


تست کن اطلاع بده


طاها الیاس زاده و Sina پسند شده است

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

کد پیشنهادی من:

Dim far1 As Intent

Dim far2 As Intent

Dim far3 As Intent

Dim far4 As Intent

Dim pm As PackageManager

far2=pm.GetApplicationIntent("com.whatsapp")

far2=pm.GetApplicationIntent("com.whatsapp")

far2=pm.GetApplicationIntent("com.Whatsapp")

far1=pm.GetApplicationIntent("com.whatsapp")

If far1.IsInitialized Then

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

Else If far2.IsInitialized Then

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

Else If far3.IsInitialized Then

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

Else If far4.IsInitialized Then

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

End If

ببخشید کدها قر و قاطی هست

دارم از نسخه مبایل استفاده میکنم که کد باکس نداره

H@mid.RS پسند دیده است

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

ویرایش 5 دیماه 95 : کدی که در پایین دادم در موبوگرام خطا میزنه و بدرد نمیخوره

--------------------------------------------------------------------------------------

 

 

کدی براتون میزارم چنتا خاصیت داره

1- چت,کانال و گروه را باز میکنه

2- مستقیم وارد تلگرام میشه(نیاز به باز شدن وب نداره)

3- هر نوع تلگرامی باشه خودش میشناسه(با روشهای بالا اگر یک تلگرامی دیگه بیاد چی؟)

 

جای salmanfardan اسم مورد نظرت بنویس

Dim i As Intent 
 i.initialize (i.action_view,"tg://resolve?domain="salmanfardan) 
 StartActivity (i)
H@mid.RS پسند دیده است

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

با سپاس 

 

salmana

 

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

 

با سپاس

 

یه ذره اشتباه تایپ کردم

 

بجای salmanfardan آیدی شخصی یا کانال یا گروه بدین

	Dim i As Intent 
 i.initialize (i.action_view,"tg://resolve?domain="&"salmanfardan") 
 StartActivity (i)
ali.1020 پسند دیده است

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

کدی براتون میزارم چنتا خاصیت داره

1- چت,کانال و گروه را باز میکنه

2- مستقیم وارد تلگرام میشه(نیاز به باز شدن وب نداره)

3- هر نوع تلگرامی باشه خودش میشناسه(با روشهای بالا اگر یک تلگرامی دیگه بیاد چی؟)

جای salmanfardan اسم مورد نظرت بنویس

Dim i As Intent 
 i.initialize (i.action_view,"tg://resolve?domain="salmanfardan) 
 StartActivity (i)

سلام

تشکر از پست  خوبتون

اگه در تایپک جدید این رو بذارید خیلی بهتر میشه

salmana پسند دیده است

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

 

با سپاس 

 

اصلا احتیاج به کتابخانه خاصی نیست 

 

من که به صورت پایین نوشتم جوابم گرفتم رو چند تا تلگرام رسمی و غیر رسمی

 

ممنون

Sub btn4_Click
	Dim i2 As Intent 
	If i2.IsInitialized Then
	i2.initialize (i2.action_view,"tg://resolve?domain="&"basi4x") 
	StartActivity (i2)
Else
ToastMessageShow("نه تکرام نصب داری نه موبوگرام لطفا ایمیل کن آیدی تلگرامت رو جوینت بدم",True)    
StartActivity("mail")
End If

End Sub

 

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

ولی در این حالت جواب میده .

Dim i As Intent 
 i.initialize (i.action_view,"tg://resolve?domain="&"salmanfardan") 
 StartActivity (i)

راه حلی برای این موضوع به ذهنتون میرسه؟

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

راه حلی برای این موضوع به ذهنتون میرسه؟

ویرایش: این روش توسط موبوگرام غیرفعال شده و بیفایده هست . یعنی متن پایین ماله قدیم هستش

 

اینطور بنویس

try
Dim i As Intent 
 i.initialize (i.action_view,"tg://resolve?domain="&"salmanfardan") 
 StartActivity (i)
catch
توست بده و بگو تلگرام نصب نیست
end try
dostmobile، Sina و طاها الیاس زاده پسندیده اند

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

سلام دوستان
ممنون از این فعالیت شما .....

من تا اینجا متوجه شدم که چطور میشه وارد محیط تلگرام شد ....

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

چطور باید انجام بدم

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

اگر میشه زحمت براتون نیست .... لطفا سورس تست شده کدنویسیتون که کامپایل کردید بزارید ......

ممنون از زحماتی که میکشید ....

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !


ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید


ورود به حساب کاربری

  • مطالب مشابه

    • توسط koorosh
      من یه برنامه نوشتم که با دیزاین ساپورته و سه تا تب توش درست کردم ولی متاسفانه نمیشه اکتیویتی اد کرد توی تبها و فقط میشه لایوت اضافه کرد حالا از اساتید محترم در خواست دارم که اگه راهی هست کمکم کنن که خیلی گیر کردم ؟
       
      میخوام یه جوری اکتیویتی توی تب ها اد کنم
    • توسط H@mid.RS
      نسجه جدید بیسیک فور اندروید منتشر شد!
       
      روش نصب:
       
      فایل را از حالت فشرده خارج کنید محتویات داخل را با نسخه فدیمی که نصب کردید جایگزین کنید!
       
      امکانات جدید در نسخه ۶٫۵۰ بتا :
       

      ۱ مرتب کردن خودکار کدها با زدن دکمه alt + F
       

       

      امکان استفاده از فونت های آیکنی در دیزاینر
       

       

      منبع : کوئیک لرن
    • توسط H@mid.RS
      IRBazaarAssistant
      مشاهده فایل
      دستیار بازار به شما کمک می کند تا امکاناتی بیشتر از بازار را در برنامه خود بدون کد نویسی پیچیده انجام دهید همانند زیر :





      کتابخانه همراه یک مثال در اختیار شما قرار داده شد.


      :iranmap:

      ارسال کننده H@mid.RS ارسال ۱۶/۰۴/۱۲ دسته کتابخانه