Sub StartListening
SMSIntercept.Initialize2("SI",999)
ToastMessageShow("I am listening",False)
End Sub
Sub SI_MessageReceived(from As String, msg As String) As Boolean
ToastMessageShow("Received msg & msg",True)
Dim i As Int = msg.IndexOf(" ")
Dim ID As Int = msg.SubString2(0,i)
Dim MobileNumber As String = msg.SubString2(i+1,msg.Length)
Dim who As String = "New client"
Dim DT As String = DateTime.Now
Sql1.ExecNonQuery2("INSERT INTO SMSReceived VALUES(?,?,?,?,?,?)", Array As Object(Null,MobileNumber,"New client",ID,DT,"Y"))
SendAnMail1(from,who,ID & "|" & MobileNumber)
....conversion code returning Akey
ToastMessageShow(AKey.ToUpperCase,True)
Psms.Send(MobileNumber," Key to use " & AKey.ToUpperCase)
Return True
End Sub