mahdi tahan 723 ارسال شده در 1 بهمن، ۱۳۹۵ اشتراک گذاری ارسال شده در 1 بهمن، ۱۳۹۵ با سلام ازونجایی که کتابخونه 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))) دسترسی ها فراموش نش البته ممکن راه های بهتری هم باش لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.