برقراری تماس و ارسال پیامک با intent

[mojtaba2213 4]

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

لطفاً دسترسی زیر را از برنامه حذف کنید و امکان مورد نظر خود را از طریق Intent پیاده‌سازی کنید. 


تماس مستقیم با شماره تلفن‌ها-android.permission.CALL_PHONE

ارسال پیامک ها-android.permission.SEND_SMS

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

 

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

ممنون میشم کمکم کنه

 

در ضمن خیلی جست و جو کردم و پرسیدم اما به نتیجه نرسیدم

 

[محمدرضا شاهپیری 5,579]

برای اس ام اس

Dim In As Intent
Dim number = "0123456789" As String
In.Initialize(In.ACTION_VIEW, "sms:" & number)
In.PutExtra("sms_body", "this is the body")
StartActivity(In)

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

#If java
import android.content.Intent;
import android.net.Uri;
import anywheresoftware.b4a.BA;
public void startDial(String phone) {
	Intent intent = new Intent(Intent.ACTION_DIAL, Uri.fromParts("tel", phone, null));
	intent.setFlags(Intent.FLAG_ACTIVITY_NEW_TASK);
	BA.applicationContext.startActivity(intent);
}
#End If

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

	Dim jo As JavaObject
	jo.InitializeContext.RunMethod("startDial",Array As String("09128786877"))

 

[mojtaba2213 4]

در 10 دقیقه قبل، محمدرضا شاهپیری گفته است :

برای اس ام اس

Dim In As Intent
Dim number = "0123456789" As String
In.Initialize(In.ACTION_VIEW, "sms:" & number)
In.PutExtra("sms_body", "this is the body")
StartActivity(In)

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

#If java
import android.content.Intent;
import android.net.Uri;
import anywheresoftware.b4a.BA;
public void startDial(String phone) {
	Intent intent = new Intent(Intent.ACTION_DIAL, Uri.fromParts("tel", phone, null));
	intent.setFlags(Intent.FLAG_ACTIVITY_NEW_TASK);
	BA.applicationContext.startActivity(intent);
}
#End If

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

	Dim jo As JavaObject
	jo.InitializeContext.RunMethod("startDial",Array As String("09128786877"))

 

 

سلام

خیلی ممنون

 

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

آیا بازار قبول می کنه؟

 

 

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

 

[mojtaba2213 4]

در 51 دقیقه قبل، محمدرضا شاهپیری گفته است :

برای اس ام اس

Dim In As Intent
Dim number = "0123456789" As String
In.Initialize(In.ACTION_VIEW, "sms:" & number)
In.PutExtra("sms_body", "this is the body")
StartActivity(In)

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

#If java
import android.content.Intent;
import android.net.Uri;
import anywheresoftware.b4a.BA;
public void startDial(String phone) {
	Intent intent = new Intent(Intent.ACTION_DIAL, Uri.fromParts("tel", phone, null));
	intent.setFlags(Intent.FLAG_ACTIVITY_NEW_TASK);
	BA.applicationContext.startActivity(intent);
}
#End If

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

	Dim jo As JavaObject
	jo.InitializeContext.RunMethod("startDial",Array As String("09128786877"))

 

مرسی از شما