ارسال پیامک

سوال

سلام دوستان
من برای برنامه ام ارسال پیامک تعبیه کردم به این شکل که وقتی کاربر روی دکمه پیامک کلیک کرد، یک ماژول باز میشه که توش یک ادیت تکس و یک دکمه ارسال هست
با این کد برای ارسال پیامک نوشتم اما وقتی ارسال میکنه پیامک خالی می فرسته
کدام اینه

dim pm as phonesms

pm.send2(“number”,txt1.text,true,true)

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

حل شد 0
, 2019-06-19T14:05:27+03:30 2 پاسخ کاربر 0

پاسخ ها ( 2 )

  1. morteza
    0
    2019-06-19T20:23:15+03:30
    پاسخ

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

    پرمیژن مربوطه رو به برنامه دادید.( داخل اندروید مانیفست نوشتید؟ )

    • hamedkhakee
      0
      2019-06-19T23:44:29+03:30
      پاسخ
      این پاسخ ویرایش شد.

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

      AddPermission(android.permission.SEND_SMS)

      • morteza
        1
        2019-06-22T22:24:32+03:30
        پاسخ

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

        این شکلی بنویس:

        Sub Globals
Dim p As PhoneSms
Dim check As PhoneEvents
End Sub

        بعدش

        Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("l1")
check.Initialize("check")
End Sub

        بعدش

        Sub Button1_Click
p.Send2("09366928285","www.Basic4Android.org",True,True)
End Sub

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

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

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

         

        بهترین پاسخ
  2. hamedkhakee
    1
    2019-06-29T11:36:51+03:30
    پاسخ

    از پاسخ و محبت شما بسیار ممنونم

ارسال یک پاسخ