نمایش پیامک دریافتی

[hooooman 11]

سلام

جستجو کردم پیدا نکردم!!!!!

میخام یه sms که دریافت میشه بلافاصله متنش رو توی یه label نمایش بدم .یعنی کاربر نره داخل inbox بلافاصله labثl باز بشه و نمایش داده بشه. خب برای اینکار لازمه برنامه همیشه درحال گوش کردن باشه

ممکنه راهنمایی کنید؟

[favast777 0]

سلام

دوستان من تازه واردم

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

البته با پیامک

لطفا راهنمایی کنید ممنون...

[mahfelsoft 130]

آقا پژمان ممنون.ولی نتونستم باها کار کنم . یعنی به نتیجه ای نرسیدم .

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

[مهدی ایزدی 9,203]

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

باید توی سرویس اجرا بشه هاااا *fekr*

بنده یکی دو ماه پیش یک برنامه ی حدودا حرفه ای با همین کدها ساختم برای مشتری *nose*

[mahfelsoft 130]

میشه بیشتر توضیح بدید . من راستش با دریافت پیامک کار نکردم تا حالا . اطلاعاتم راجع بهش کمه . میشه راهنمایی کنید .

[مهدی ایزدی 9,203]

http://answercenter.ir/thread2258.html

[hooooman 11]

این قسمت رو حتما ببینید

B4X

سلام

این سرویس ارورو نداره اما با استارت شدنش هیچ اتفاقی نمی افته!!!!!

تا حالا از دوستان کسی امتحان کرده؟

[مهدی ایزدی 9,203]

سلام

این سرویس ارورو نداره اما با استارت شدنش هیچ اتفاقی نمی افته!!!!!

تا حالا از دوستان کسی امتحان کرده؟

بله بنده. باهاش چه کارها که نکردم سر جریاناتی *عطسه*

فقط کمی تغییر باید توش داد. ساده هست و کارآمد.

[msajad 501]

Dim x As SmsMessages
   Dim msg As Sms
   Dim allSmss As List
   allSmss.Initialize
   allSmss = x.GetAll
   For i = 0 To allSmss.Size - 1
       msg = allSmss.Get(i)
       If msg.Type = x.TYPE_INBOX Then
           If msg.Address = "+989301234567" Then 
               editText1.Text = msg.Body
           End If
       End If
   Next

[مهدی ایزدی 9,203]

Dim x As SmsMessages
   Dim msg As Sms
   Dim allSmss As List
   allSmss.Initialize
   allSmss = x.GetAll
   For i = 0 To allSmss.Size - 1
       msg = allSmss.Get(i)
       If msg.Type = x.TYPE_INBOX Then
           If msg.Address = "+989301234567" Then 
               editText1.Text = msg.Body
           End If
       End If
   Next

این کد که برای چک کردن پیام های موجود توی Inbox ما هست.

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

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

[msajad 501]

این کد که برای چک کردن پیام های موجود توی Inbox ما هست.

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

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

خوب همینه دیگه باید اینو تو سرویس بزاریم بعد هر یک ثانیه یک بار چک کنه

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

[hooooman 11]

بله بنده. باهاش چه کارها که نکردم سر جریاناتی *عطسه*

فقط کمی تغییر باید توش داد. ساده هست و کارآمد.

عذر میخام اگه ناراحتتون کردم!!!!! *تعجب3*

اگه ممکنه میشه راهنمایی بفرمایید؟

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

به نظر من ازاین روش بشه یه کارایی کرد.

البته خودم تست نکردم.

کتابخانه phone رو تیک زدم و یه متغیر تعریف کردم:

Dim s As SmsInterceptor

بعد قسمت activity_create مینویسیم:

s.Initialize("s")

خط اول که متغیر رو Initialize کردم و یه event واسش تعریف کردم.

بعد از طریق این ساب میتونیم پیام هارو بلافاصله دریافت کنیم:

Sub s_MessageReceived (From As String, Body As String) As Boolean
   ToastMessageShow("Sms az: "&From,True)
   ToastMessageShow("matn sms: "&Body,True)
End Sub

همه چی معلومه دیگه... From فکر کنم شماره طرف باشه و Body هم متن پیام هست.

بازم میگم من تست نکردم و خودم اینو نوشتم،یازهم اساتید دیگه یا آقا مهدی میتونن تشخیص بدن که درست هست یانه.

[esmaeil57 64]

http://answercenter.ir/thread2258.html

سلام جناب آقای ایزدی.

این سورس هم که پیام میره داخل صندوق ورودی گوشی!!!!!!!!!*naa*

یه سورسی آقای مصطفی حقیقی عزیز گذاشتن اون روی گوشی خودم که هوآوی با اندروید 4.2.2 هست خیلی خوبه ولی یه چیز اعصاب خردکن این که روی گوشی سامسونگ با اندروید 4.4.4 پیام ابورت نمیشه و باز هم میره داخل اینباکس.

[mehdi77rezai 6]

Dim x As SmsMessages

Dim msg As Sms

Dim allSmss As List

allSmss.Initialize

allSmss = x.GetAll

For i = 0 To allSmss.Size - 1

msg = allSmss.Get(i)

If msg.Type = x.TYPE_INBOX Then

If msg.Address = "+989301234567" Then

editText1.Text = msg.Body

End If

End If

Next

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

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

[مهدی ایزدی 9,203]

سلام

دوستان من تازه واردم

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

البته با پیامک

لطفا راهنمایی کنید ممنون...

درود

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

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

[fg123 4]

سلام کسی هست منو راهنمایی کنه؟

[محمد احمدی 70]

شما باید از سرویس استفاده کنید و برای لیستنینگ پیامک از کتابخونه phonestatelistener و phone استفاده کنید

[esmaeil57 64]

سلام

جستجو کردم پیدا نکردم!!!!!

میخام یه sms که دریافت میشه بلافاصله متنش رو توی یه label نمایش بدم .یعنی کاربر نره داخل inbox بلافاصله labثl باز بشه و نمایش داده بشه. خب برای اینکار لازمه برنامه همیشه درحال گوش کردن باشه

ممکنه راهنمایی کنید؟

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

راجع به این قضیه قبلا خیلی بحث شده. برین به این تاپیک:

http://answercenter.ir/thread727.html

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

محمد میشه یکم بیشتر توضیح بدی همچنین کتابخونش هم بذاری؟ منم لازم دارم.

[hooooman 11]

نمونه کد از کجا میتونم پیدا کنم