رفتن به مطلب
بیسیک فور ایکس
  • اطلاعیه ها

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
    • H@mid.RS

      راه اندازی وبلاگ برای انجمن   دوشنبه, 18 اردیبهشت 1396

      درود به همه دوستان عزیز از این پس کاربران ویژه  - همکاران - و مدیران میتوانند در انجمن برای خود وبلاگ بسازند

Recommended Posts

دوستان درود


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


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


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


 


کد :



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

در پناه حق


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


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

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

 

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

با سپاس

 

 

سلام و درود

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

	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

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


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

من طوری گفتم که راحت سید متوجه بشه و گیج نشه :lol:

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


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

مجتبی جان استاد شرط برای 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

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


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


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


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

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

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

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

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

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


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

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

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

 

 

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

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

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

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

 

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

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

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


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

با سپاس 

 

salmana

 

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

 

با سپاس

 

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

 

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

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

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


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

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

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

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

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

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

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

سلام

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

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

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


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

 

با سپاس 

 

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

 

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

 

ممنون

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

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


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

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

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

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

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

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

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

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

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
در در 1395/03/11, 10:42:44، H@mid.RS گفته است :

درود به دوستان عزیز

 

همون طور که می دونید این کتابخانه برای ارسال ایمیل FTP, SMTP and POP3 هست

 

 

که اخرین نسخه این کتابخانه رو براتون قرار دادم

 

 

نسخه :

 

 

 

 

 

V1.62

 

 

 

 

 

کتابخانه پیوست شد

 

 

Net.zip

 

 

در در 1395/10/07, 17:28:32، mojtaba68 گفته است :

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

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

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

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

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

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

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

سلام

 

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

 

ممنون

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
Dim share As Intent                                                         'برای اشتراک گذاری
            share.Initialize(share.ACTION_SEND,"")
            share.SetType("text/plain")
            share.PutExtra("android.intent.extra.TEXT","matne morede nazar")
            share.WrapAsIntentChooser("اشتراک گذاری")
            StartActivity(share)
'برای باز کردن کانال یا گروi
Try
				Dim i As Intent
				i.Initialize(i.ACTION_VIEW,"https://telegram.me/Basic4x")
				StartActivity(i)
			Catch
				Return
End Try

 

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


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

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

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

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

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

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

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

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

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

  • مطالب مشابه

    • توسط saeedkaramian
      سلام چطور میشه با توجه به آیپی موقعیت روی نقشه نمایش داد توی چندتا سایت زدم ip رو ولی موقعیت اشتباه میداد (می زد دبی)
    • توسط saeedkaramian
      سلام من میخوام یک برنامه فروشگاه آنلاین بنویسم مثل دیجیکالا (بشه متن و عکس کالا گذاشت)لطفا راهنمایی کنید
    • توسط batman1
      سلام به همه بزرگواران
      کسی هست بتون برنامه ای بنویسه که بشه باهاش لینک زیر رو کامل باز کرد و به سایت لاگین شد؟!
      https://reg.pnu.ac.ir/forms/authenticateuser/login.htm
      اصلا نمیخوام برنامه پیچیده ای باشه
      میخوام توی یک وب ویو این لینک کاملا باز بشه
      توجه داشته باشید که این لینک رو هرمرورگری  نمیتونه باز کنه
      فقط IE
      دستمزد برنامه نویس هم محفوظه
      ممنون.
×