Sms Interception library.

taximania

Well-Known Member
Licensed User
Longtime User
SmsIntercept.dll for device.
SmsInterceptDesktop.dll (dummy library) to compile for device.

The library contains 2 objects.

1: SmsInterNAD (NotifyAndDelete)
This object intercepts sms messages but doesn't pass the message to your device sms handler. The sms won't appear in your sms Inbox.
It has 2 properties, 'From' and 'Body'.
'From' contains the 'Name' of the sender if they are stored in your contacts list. Or the phone number if they aren't.
'Body' contains the actual sms text.

2: SmsInterN (Notify)
The message is still intercepted and is also received by the device sms handler.
It has the same 2 properties as above.

I've tried it with the hardware library 'ShowTodayScreen'. It doesn't work.
Your application must be the visible, on screen form :-(

Feel free to ask any questions :)
 

Attachments

  • SmsIntercept.zip
    4.4 KB · Views: 50
Last edited:

Cableguy

Expert
Licensed User
Longtime User
Nice adition.....where were you two years ago, when I coded a spy app for a special phone?...
 

taximania

Well-Known Member
Licensed User
Longtime User
I've the added SmsSend object.

Add object reference to SmsSend
name it, eg smss
Then smss.New1(string number,string text) Just like the Outlook.dll

I've also added the Time and Request methods.
Add object reference to InterSmsNAD or InterSmsN
Name it, eg smsinternad
smsinternad.time returns Ticks, so,
msgbox(Time(smsinternad.Time)) gives the time of the text received.
msgbox(Date(smsinternad.Time)) gives the date of the text.

msgbox(smsinternad.Request) returns True or False if the sender of the text asked for a request notification.
 

taximania

Well-Known Member
Licensed User
Longtime User
Another omission from my first post.
Don't try reading the values in the Inter_MessageReceived Sub.

Try

Sub Inter_MessageReceived
msgbox("Text received")
End Sub

Sub Button1_Click
Msgbox(Inter.Body)
End Sub
 

bloxmedia

Member
Licensed User
No :sign0085: doesn't work out. already

Sub Inter_MessageReceived
msgbox("Text received")
End Sub

Is not doing it for me.
 

winjiadh

Active Member
Licensed User
Longtime User
I can‘t use it in my HD2

I write a test demo, like this
Sub Globals
'Declare the global variables here.

End Sub

Sub App_Start
Form1.Show
Smsinternad.New1
textbox1.Text =Smsinternad.From
textbox2.Text =Smsinternad.Body
End Sub
Sub smsInternad_MessageReceived
Msgbox("Text received")
End Sub

Sub Button1_Click
Msgbox(Smsinternad.Body)
End Sub
I Compile it to a device .exe file and copy it and SMSintercept.dll to my HD2.
I run it and use other phone send the SMS to my phone. but the program can't intercept it .
what wrong with me?
can you tell me:sign0085:
 

taximania

Well-Known Member
Licensed User
Longtime User
B4X:
Smsinternad.New1 
textbox1.Text =Smsinternad.From 
textbox2.Text =Smsinternad.Body

From and Body will be blank until Sub smsInternad_MessageReceived
is called and handled.

Why Smsinternad.New1 but smsInternad_MessageReceived.
I don't think Basic4ppc is case sensitive. Maybe the compiled version on an HD2 is.
Have you tried running the code on the device, instead of compiled.
It might be a problem with my SmsInterceptDesktop.dll
 

winjiadh

Active Member
Licensed User
Longtime User
It can't intercept

I copy the .sbp file to my device. run it in basic4ppc ,when the sms received the program can't intercept it
would you pst a completion sample code?
thank you very much
:sign0085:
 

taximania

Well-Known Member
Licensed User
Longtime User
Did you not read the post in this thread before posting ?
Have you tried looking at the links I supplied previously ?

Your new post today, answered by Erel, states it's an HD2 problem !!
 
Last edited:
Top