ارسال پیامک از طریق صفحه پیامک گوشی

[محمد امین مهمان]

با سلام

ببخشید مجبور شدم تایپیک بزنم هرچی گشتم و امتحان کردم نشد

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

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

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

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

اگر نیست لطفا راهنمایی کنید چیکار کنم

(میخواهم کاربر به اون شماره ای که توی برنامه تعیین شده متنشو بنویشه و خودش ارسال را بزنه)

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

شما باید از طریق اینتنت اینکارو انجام بدین.

با این یه تکه کد:

Dim In As Intent
Dim number = "09388091472" As String
In.Initialize(In.ACTION_VIEW, "sms:" & number)
In.PutExtra("sms_body", "متن پیامک")
StartActivity(In)  

خیلی راحت ، وقتی این کد رو بذارید داخل رویداد یه باتون ، کاربر منتقل میشه به پیامک خود گوشی و به اون شماره ای که تایین کردین واردش میکنه.

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

[محمد امین مهمان]

سلام وتشکر

آقا ی عباس2142 من کدهای شما را عینا توی برنامه گذاشتم ولی خطا داد

اونedit text همه که گفتید باید توی ساب گلوبال تعریف می کردم.درسته؟؟؟؟

این خطا و کد هاش>

[Elyas Erfani 3,582]

سلام

نکته اول اینکه ادیت تکستو بد معرفی کردید et چسبیده به Dim

نکته دوم اینکه پیغام خطا میگه ک بدنه پیام اشتباهه

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

نکته سوم هم اینکه ب جای Dim از Private استفاده کنید

Private EditText1 As EditText

و در ساب دکمه مورد نظر

Dim e As PhoneSms

(e.Send("Phone Number",EditText1.Text

[abbas2142 557]

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

 

خوب شبیه ساز که امکان برقراری پیام و تماس نداره ( البته فکر کنم )

 

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

 

نکته سوم هم اینکه ب جای Dim از Private استفاده کنید

 

زیاد فکر نکنم تاثیری داشته باشه 

[Elyas Erfani 3,582]

@abbas2142

ن تاثیری توی خطایی ک ایشون میگن نداره ولی درستش اینه که واسه ویو‌ها از Private استفاده کنن

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

Sent from my D2502 using Tapatalk

[محمد امین مهمان]

با سلام خدمت همه دوستان

باز هم خطا میده

اون هم اینجوری

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

دانلود سورس

من هم خودم هنگ کردم هم شما را اذیت کردم

ببخشد :(

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

این همه درگیری و سردرگمی برای چی؟!

شما میخواین چیکار بکنید؟؟

از طریق خود برنامتون فقط یه اس ام اس ارسال کنید؟؟! (این روش مورد قبول مارکت ها نیست)

یا اینکه منتقلش کنید به پیامک خود گوشی تا از اونجا ارسال بکنه؟

[محمد امین مهمان]

آقای نیکروان

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

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

در ضمن برنامه را نمی خام توی هیچ مارکتی بذارم.

حالا ممنون میشم راهنمایی کنید

آیا چنین چیزی امکان داره؟؟؟

سورس هم گذاشته بودم

[محمد امین مهمان]

تشکر آقای نیکروان

درست شد

[abbas2142 557]

ولی همین طوری که آقای نیکروان گفتن این کار که کاربر پیام ارسال کنه مورد تایید ماکت ها نیست ،،،، البته من فقط بازار رو تست کردم و برنامه رو که ارسال کردم گفت قابلیت ارسال اس ام اس واسه کاربر چون هزینه بردار هستش برنامه تایید نمی شه و باید تصیحیح شود

[abbas2142 557]

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

Dim a As PhoneSms

Sub btn1_Click
	a.Send("شماره",ET.Text)
End Sub

اینا هم واسه چک کردن اینکه پیام ارسال شده یا نه


Sub check_SmsSentStatus (Success As Boolean, ErrorMessage As String, PhoneNumber As String, Intent As Intent)
If Success=False Then
Msgbox("پیغام ارسال نشد" & ErrorMessage,"خطا")
Else
Msgbox("پیغام شما با موفقیت ارسال شد","ارسال شد")
End If
End Sub

Sub check_SmsDelivered (PhoneNumber As String, Intent As Intent)
Msgbox("پیغام شما دریافت شد","دریافت")
End Sub