Sub ParseSmsIntent (In As Intent) As Message()
Log("#3")
ToastMessageShow("#3",True)
ToastMessageShow("went into parseSMSIntent.Action",True)
Dim messages() As Message
If In.HasExtra("pdus") = False Then Return messages
Dim pdus() As Object
Dim r As Reflector
pdus = In.GetExtra("pdus")
If pdus.Length > 0 Then
Log("#4")
ToastMessageShow("#4",True)
Dim messages(pdus.Length) As Message
Dim From As String
Dim smsin As String
For i = 0 To pdus.Length - 1
r.Target = r.RunStaticMethod("android.telephony.SmsMessage", "createFromPdu", _
Array As Object(pdus(i)), Array As String("[B"))
messages(i).Body = r.RunMethod("getMessageBody")
messages(i).Address = r.RunMethod("getOriginatingAddress")
ToastMessageShow(r.RunMethod("getMessageBody"),True)
smsin = r.RunMethod("getMessageBody")
From = r.RunMethod("getOriginatingAddress")
Dim job4 As HttpJob
'Send a POST request
job4.Initialize("Job4", Me)
job4.PostString("http://www.mysite.com/api", "smsin="&smsin&"&From="&From)
If smsin.ToLowerCase = "hello" Then
SI_MessageReceived(From,smsin)
End If
Next
End If
Return messages
End Sub
Sub JobDone (Job As HttpJob)
Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
End Sub