استفاده از اینتنت

[raouf4850 150]

سلام

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

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

ممنون میشم

[مهدی ایزدی 9,203]

    Dim i As Intent
   i.Initialize(i.ACTION_SEND, "")
   i.SetType("text/plain")
   i.PutExtra("android.intent.extra.TEXT", "Matne Morede Nazaret")
   i.WrapAsIntentChooser("اشتراک گذاری متن با...")
   StartActivity(i)

[raouf4850 150]

    Dim i As Intent
   i.Initialize(i.ACTION_SEND, "")
   i.SetType("text/plain")
   i.PutExtra("android.intent.extra.TEXT", "Matne Morede Nazaret")
   i.WrapAsIntentChooser("اشتراک گذاری متن با...")
   StartActivity(i)

ممنون از پاسختون

ولی..

اونجایی ک نوشتین متن مورد نظرت

اون متن میخوام محتویات ادیت تکس 1 واردش بشه و ارسال بشه

Sub ImageView1_Click

i.Initialize(i.ACTION_SEND, "")

i.SetType("text/plain")

i.PutExtra("android.intent.extra.TEXT", "Matne Morede Nazaret")

i.WrapAsIntentChooser("اشتراک گذاری متن با...")

StartActivity(i)

mt.Send(EditText2.Text,EditText1.Text)

Msgbox("ارســال شد !","بگو و پیامک کن")

End Sub

[milad19 113]

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

    Dim i As Intent
   i.Initialize(i.ACTION_SEND, "")
   i.SetType("text/plain")
   i.PutExtra("android.intent.extra.TEXT",edittext1.text)
   i.WrapAsIntentChooser("اشتراک گذاری متن با...")
   StartActivity(i)

[raouf4850 150]

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

    Dim i As Intent
   i.Initialize(i.ACTION_SEND, "")
   i.SetType("text/plain")
   i.PutExtra("android.intent.extra.TEXT",edittext1.text)
   i.WrapAsIntentChooser("اشتراک گذاری متن با...")
   StartActivity(i)

نمیشه چون الان ک ازز وایبر میدم دقیقا اونجا مینویسه edittext1.tex

توی وایبر اینو مینویسه

[VAHIDGHA 13]

سلام .من هم این مشکل رو دارم .مشکل من اینه که متن من داخل فایل با پسوندtxtهستش.برای اشتراکش باید چکار کنم

ممنون

[amirhossein.kashan 22]

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

Dim i As Intent

i.Initialize(i.ACTION_SEND, "")

i.SetType("text/plain")

i.PutExtra("android.intent.extra.TEXT", "Matne Morede Nazaret")

i.WrapAsIntentChooser("اشتراک گذاری متن با...")

StartActivity(i)

[raouf4850 150]

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

Dim i As Intent

i.Initialize(i.ACTION_SEND, "")

i.SetType("text/plain")

i.PutExtra("android.intent.extra.TEXT", "Matne Morede Nazaret")

i.WrapAsIntentChooser("اشتراک گذاری متن با...")

StartActivity(i)

حل نشد !!!!!!!!!!!!!!!!!

[Elyas Erfani 3,582]

سلام .من هم این مشکل رو دارم .مشکل من اینه که متن من داخل فایل با پسوندtxtهستش.برای اشتراکش باید چکار کنم

ممنون

Dim Aria As AriaLib
Dim mtn As String
mtn = File.ReadString(File.DirAssets, "EsmeFileText.txt")
StartActivity(Aria.ShareText(mtn,"Share With :"))

[amirhossein.kashan 22]

حل نشد !!!!!!!!!!!!!!!!!

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

[raouf4850 150]

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

میدونی چیه؟ نمیدونم چرا هر متنی ک جای matn morde nazaret مینویسم همون میوفته توی وایبر

میخوام محتویات edit txt1 بیوفته

[پژمان نیکروان 6,055]

عزیز من واسه چی این همه شلوغش میکنی.

اگه خود ادیت تکست رو نشون میده پس این علامت دابل کوتیشن رو اینور و اونورش گذاشتی دیگه اینجوری: "edittext1.text"

علامت " رو وردار و فقط بنویس ادیست تکست :

 Dim i As Intent
   i.Initialize(i.ACTION_SEND, "")
   i.SetType("text/plain")
   i.PutExtra("android.intent.extra.TEXT",edittext1.text)
   i.WrapAsIntentChooser("اشتراک گذاری متن با...")
   StartActivity(i)

[milad19 113]

دقت نمیکنید متاسفانه

کدی که دادم کاملا درسته

[Alireza.Ghafari 2,104]

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

[raouf4850 150]

عزیز من واسه چی این همه شلوغش میکنی.

اگه خود ادیت تکست رو نشون میده پس این علامت دابل کوتیشن رو اینور و اونورش گذاشتی دیگه اینجوری: "edittext1.text"

علامت " رو وردار و فقط بنویس ادیست تکست :

 Dim i As Intent
   i.Initialize(i.ACTION_SEND, "")
   i.SetType("text/plain")
   i.PutExtra("android.intent.extra.TEXT",edittext1.text)
   i.WrapAsIntentChooser("اشتراک گذاری متن با...")
   StartActivity(i)

نه عزیزم نمیشه بازم

Sub ImageView1_Click

Dim i As Intent

i.Initialize(i.ACTION_SEND, "")

i.SetType("text/plain")

i.PutExtra("android.intent.extra.TEXT",EditText1.text)

i.WrapAsIntentChooser("اشتراک گذاری متن با...")

StartActivity(i)

EditText1.send(EditText2.Text,EditText1.Text)

Msgbox("ارســال شد !","بگو و پیامک کن")

End Sub

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

[milad19 113]

خیر نمیشه برای فیلم و... استفاده کرد باید مسنجر قابلیت این رو داشته باشه که هرفایلی بشه داخلش فرستاد

من متوجه نمیشم این قسمت برا چیه؟؟؟

EditText1.send(EditText2.Text,EditText1.Text)
Msgbox("ارســال شد !","بگو و پیامک کن")

[raouf4850 150]

خیر نمیشه برای فیلم و... استفاده کرد باید مسنجر قابلیت این رو داشته باشه که هرفایلی بشه داخلش فرستاد

من متوجه نمیشم این قسمت برا چیه؟؟؟

EditText1.send(EditText2.Text,EditText1.Text)
   Msgbox("ارســال شد !","بگو و پیامک کن")

چون برنامه برای تبدیل گفتار به نوشتار هست

این ماله اونه

[پژمان نیکروان 6,055]

نه عزیزم نمیشه بازم

Sub ImageView1_Click

Dim i As Intent

i.Initialize(i.ACTION_SEND, "")

i.SetType("text/plain")

i.PutExtra("android.intent.extra.TEXT",EditText1.text)

i.WrapAsIntentChooser("اشتراک گذاری متن با...")

StartActivity(i)

EditText1.send(EditText2.Text,EditText1.Text)

Msgbox("ارســال شد !","بگو و پیامک کن")

End Sub

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

عجبا

نه واقعا این چیه؟ edittext1.send ؟؟؟؟

ما که کد رو دادیم شما اینو از کجا آوردید؟

الان متن شما داخل edittext1 هست؟؟؟ واسه ارسالش اینو بنویسید و تمام:

Sub ImageView1_Click
Dim i As Intent
   i.Initialize(i.ACTION_SEND, "")
   i.SetType("text/plain")
   i.PutExtra("android.intent.extra.TEXT",edittext1.text)
   i.WrapAsIntentChooser("اشتراک گذاری متن با...")
   StartActivity(i) 
End Sub

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

نمیدونم والا این کدارو از کجا آوردی رئوف جان *fekr*:-d

[raouf4850 150]

عجبا

نه واقعا این چیه؟ edittext1.send ؟؟؟؟

ما که کد رو دادیم شما اینو از کجا آوردید؟

الان متن شما داخل edittext1 هست؟؟؟ واسه ارسالش اینو بنویسید و تمام:

Sub ImageView1_Click
Dim i As Intent
   i.Initialize(i.ACTION_SEND, "")
   i.SetType("text/plain")
   i.PutExtra("android.intent.extra.TEXT",edittext1.text)
   i.WrapAsIntentChooser("اشتراک گذاری متن با...")
   StartActivity(i) 
End Sub

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

نمیدونم والا این کدارو از کجا آوردی رئوف جان *fekr*:-d

عاااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااشقتم جیگر

درست دش ممنونننننننننننننننننننننننن