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

[hooooman 11]

سلام

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

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

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

[نیما قبادی 246]

'Service module
Sub Process_Globals




Dim PSL As PhoneStateListener

End Sub
Sub Service_Create



PSL.Initialize("PSL")


PSL.startListening()
ToastMessageShow(PSL.CellLocation,False)



End Sub

Sub Service_Start (StartingIntent As Intent)

End Sub

Sub Service_Destroy

End Sub
' Callback invoked when the call-forwarding indicator changes.
Sub PSL_onCallForwardingIndicatorChanged(cfi As Boolean)

End Sub


Sub PSL_onCallStateChanged (State As Int, incomingNumber As String)

End Sub

Sub PSL_onCellLocationChanged(Location As String)

End Sub

Sub PSL_onDataActivity(Direction As Int, strDirection As String)

End Sub

Sub PSL_onDataConnectionStateChanged(state As Int, Connectionstate As String)

End Sub

Sub PSL_onMessageWaitingIndicatorChanged(mwi As Boolean)

End Sub

Sub PSL_onServiceStateChanged(State As Int, strState As String)

End Sub

Sub PSL_onSignalStrengthsChanged (signalStrength As String)
ToastMessageShow(signalStrength, False)
ToastMessageShow(PSL.CdmaDbm, False)
End Sub

Sub Process_Globals

   Dim PSL As PhoneStateListener
End Sub

Sub Service_Create


  PSL.Initialize("PSL", False)


   PSL.startListening()


End Sub

Sub PSL_onCallStateChanged (State As Int, incomingNumber As String)

  Select State
     Case "0"
               ToastMessageShow("The phone state is idle.",False)

     Case "1"
         ToastMessageShow("The phone state is ringing.",False)

     Case "2"
         ToastMessageShow("The phone state is off the hook.",False)
  End Select
End Sub

همچین اونت هایی داره

[نیما قبادی 246]

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

B4X