Sub sms_MessageReceived (From As String, Body As String) As Boolean
ToastMessageShow("adr:"&From&" content:"&Body,True)
If Body.IndexOf("SOME TEXT TO CHECK") <> -1 Then
m.Initialize
m.Address=From
m.Body=Body
Log(m)
'eat the event
ToastMessageShow("吃掉事件",True)
Return True
End If
'not eat the event
ToastMessageShow("不吃事件",True)
Return False
End Sub