Device message reader dll

It can read all, 'Message Stores', on your device. MMS, SMS, Email accounts etc.
This is work in progress, not the lib, that works :sign0060:
The 'How to use', explanation needs working on. So here's a start.

Copy the 4 files in the attached zipfile to a New folder on your device.
Run the .sbp file on your device.
You should get this screen.
Select the Message store you want from combobox1. Top left.
Click one of the buttons top right.
I = Inbox
S = SentItems
O = Outbox
D = DeletedItems
Then wait . . . .

Once you get the 'Read' msgbox.
Select the msg num you want to see using combobox2,
left of 'Read' button. Then press 'Read' button.



The zip will be added soon. Hopefully tonight.
Happy New Year everyone

I hate help files. Hope this covers things


Sub Globals
'Declare the global variables here.
End Sub

Sub App_Start
Form1.Show
Sip=False
sms.New1
Msgbox(sms.About,"MsgLib")
For a = 0 To sms.NumOfStores-1 'For each number of device message stores 0-?
sms.SetStoreNum=a 'Set the store number 0-?
combobox1.Add(sms.GetStoresName) 'Get the store name and populate combobox1
Next
combobox1.SelectedIndex=0 'Reset combobox1 index
End Sub

Sub ComboBox1_SelectionChanged(Index, Value) 'Set's desired store number. eg 2=SMS on my device
sms.SetStoreNum=index
store=value 'Save store name for further use
End Sub

Sub Button1_Click
a=sms.GetNumInboxItems 'Returns the number of Inbox messages
If a = 0 Then Return 'If empty, return
combobox2.Clear 'Reset combobox2
label2.Text="Reading ."
For b = 0 To a -1
combobox2.Add(b) 'Add number values for each message to combobox2
Next
combobox2.SelectedIndex=0 'Start at '0'
sms.LoadInboxMsg 'Load all Inbox messages to memory
label2.Text=a & " Read."
Msgbox("Read",store) 'Done
End Sub

Sub Button3_Click 'As sub above but reads Sent Items
a=sms.GetNumSentItems
If a = 0 Then Return
combobox2.Clear
label2.Text="Reading ."
For b = 0 To a -1
combobox2.Add(b)
Next
combobox2.SelectedIndex=0
sms.LoadSentMsg
label2.Text=a & " Read."
Msgbox("Read",store)
End Sub

Sub Button4_Click 'As sub above but reads Outbox Items
a=sms.GetNumOutboxItems
If a = 0 Then Return
combobox2.Clear
label2.Text="Reading ."
For b = 0 To a -1
combobox2.Add(b)
Next
combobox2.SelectedIndex=0
sms.LoadOutboxMsg
label2.Text=a & " Read."
Msgbox("Read",store)
'msgbox()
End Sub

Sub Button5_Click 'As sub above but reads Deleted Items
a=sms.GetNumDeletedItems
If a = 0 Then Return
combobox2.Clear
label2.Text="Reading ."
For b = 0 To a -1
combobox2.Add(b)
Next
combobox2.SelectedIndex=0
sms.LoadDeletedMsg
label2.Text=a & " Read."
Msgbox("Read",store)
'msgbox()
End Sub

Sub Button2_Click
sms.SetMsgNum=combobox2.SelectedIndex 'Select the message number
textbox1.Text=sms.GetMsgSubject 'Gets the message subject, for email. Or SMS Body
label3.Text=sms.GetMsgSenderName '
label4.Text=sms.GetMsgSenderAddress '
label5.Text=Time(sms.GetMsgDate) 'In Ticks
label6.Text=Date(sms.GetMsgDate) 'In Ticks
label7.Text=sms.GetMsgBody 'Same as GetMsgSubject for SMS. Or Body for email
End Sub

After a post by Agraham in my 'Chit Chat' post, 'C# Question'
I've made a few alterations to my lib.

And found a couple of bugs.
1: I can't seem to cure
2: GetMsgBody, was actually returning GetMsgSubject :sign0137:
My typo.
On correction of it, GetMsgBody now throws an Invalid thingy.

Win Mo 5-6 uses MIME for message Body's.
A Basic4ppc string won't accept this and throws up

I've looked, but haven't found a solution.

Some Text missing

I'll try to run in my HD2

I'll try to run in my HD2
It's something wrong

Is it something to do with the HD2.
Apparently my intercept.dll doesn't work on HD2 either ?


http://www.b4x.com/forum/additional-libraries/6914-sms-interception-library.html#post40742

taximania,
Is it possible in the dynamic library MsgLib.dll add methods with the help of which we can delete sms out of folders, add sms to folders and replace them to others, for instance from the incoming to deleted and so on?

Discorez said:

taximania,
Is it possible in the dynamic library MsgLib.dll add methods with the help of which we can delete sms out of folders, add sms to folders and replace them to others, for instance from the incoming to deleted and so on?

Click to expand...

One step at a time. I'm working on it

Super! It will be very useful library.
Good luck in creation!

Updated a faster version of MsgLib in #Post1.
Still no 'Body' available :sign0161: