رفتن به مطلب

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


mahdi tahan

ارسال‌های توصیه شده

با سلام

ازونجایی که کتابخونه smsplus هنگام ارسال پیام ، متن رو نمیداد و فقط MessageId رو میداد.دنبال راهی بودم که وقتیی پیامو کاربر ارسال کرد اونو  بگیریم....

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

یک سرویس بسازید و کتابخونه phone و smsplus رو تیک بزنید

Sub Process_Globals

  	Dim LstSms As List
	Dim SmsMessage As SmsMessages
	Dim s As SmsInterceptor
	Dim sms As String
End Sub
Sub Service_Create


 s.Initialize2("s",900)
 s.ListenToOutgoingMessages


 LstSms.Initialize
End Sub

حالا داخل sub ارسال پیام:

Sub s_MessageSent (MessageId As Int)

  LstSms = SmsMessage.GetAll
  sms = LstSms.Get(0)
	

  Dim arr() As String
  arr=Regex.Split(",",sms)
  ToastMessageShow(arr(6),True)
End Sub

تو این sub به محض ارسال پیام،تمام پیام هارو میگیریم و داخل یک لیست میریزیم

بعد با این کد sms = LstSms.Get(0) اخرین پیام که همون پیام ارسال شده است رو داخل یک string میریزیم.

این string شامل تمام اطلاعات پیام ارسالیمون میش.(id,threadid,personid,date,read,type,body,address)

خوب با یک Regex میایم هر کدوم و داخل یک string میریزیم.

نتیجه این میشه که ما 7 تا string داریم که داخل هر کدومشون یکی از اطلاعات بالاس.

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

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

sql.ExecNonQuery2("INSERT INTO Sms VALUES(?,?)",Array As String(arr(6),arr(7)))

دسترسی ها فراموش نش

البته ممکن راه های بهتری هم باش:fekr:

 

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

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...