send incomming msg (SMS) to VB

[PoTeToJB]

thank

i dont know sony ericsson have text mode. i think only PDU mode..

i have PDU conveter in vb.

i try text mode now..

[PoTeToJB]

hello
kamet...

1)
i try call out the phone using ATD0127674067.. but still cant..
i thing the problem is my phone modem stay in Off-line Command Mode.. i read the at command datasheet the say i must change to on-line data mode. but i dont know how to go online command mode..

can u help me...

2)
i can read my msg using hiperterminal.

AT
OK
AT+CGMF=1 (change to text mode)
OK
AT+CGMR=1
............................................
...........................................
.............................................
the msg in TEXT mode..

the msg have time send, no phone, the msg..
how to separate the msg.

3)i sent the command for read the msg from cell phone using VB but have problem..
i run the vb and push the " READ "(for read the msg).i recieve the msg but if i push back the READ button the new output cannot out.. u thing my modem cell phone have problem or not.

4)
i connet the phone to computer and open and run the hyperterminal.

i try what u say if the cell phone recieve the msg, the output is +CMTI:"ME",(storage bank number). but in my hyperterminal cant change. dont read anything.

this your idea

(from cell phone): +CMTI: "ME",27
(from computer): at+cmgr=27
(from cell phone): +CMGR: "REC UNREAD","+15551234567","John Doe","05/10/18,23:21:45-20"
Hello World

[kamet]

Try this setup to initially change your cell's default setting.



to set up, try this:

at+cmgf=1 (set to text mode)
at+cnmi=2,1,0,0,0 (set to hear sms delivery response on terminal)
at+cpms="me","me","me" (set mem storage to phone mem read/write)




to read the sms, try this:

+CMTI: "ME",27 (replace "27" with your message bank number)


I don't understand what you mean when you say the new message doesnt output. Are you talking about a new sms being sent won't read or are you saying that trying to read another message won't appear? You have to remember to change the memory bank that you are reading from.


Also, take a look at this part of your code:

Do
DoEvents
buffer$ = buffer$ & MSComm1.Input
Loop Until InStr(buffer$, "OK")

Do you realize that when you receive your message, the cell phone does not reply "OK" ? It only response with "OK" when you issue a command TO the cell phone, not the other way around. It is possible that your program reads the message and then hangs because it is waiting for an "OK" reply which it never will receive. Just an observation, I might be incorrect as to what you are trying to do with your code.

Good luck.

[PoTeToJB]

thankQ
kamet

i set the phone like this
at+cmgf=1
at+cnmi=2,1,2,0,0
at+cpms="me","sm","me"

how to save this setting. because after i disconnet the the phone dont save the setting.i must set the phone back if i want read recieve msg.

thank for help me

[kamet]

PoTeToJB, I don't think you can save the settings when you disconnect the phone. If somebody knows how to, I would like to know that as well because I can't save it myself. I always initialize the connection with those settings everytime to ensure that they are properly set.

[charudatt]

i have a SIMCOM Modem and I give a command AT&W which writes my current setting to the modem. Hope it works and helps.


Well I am looking for some help in rx SMS using VB6. I have successfully rx the SMS using a PIC Micro and PBP. But don't know how to Rx it in VB.

I understood the CMGR command but I don't know How I can skip a set of 51 character to escape the SMS details and copy just the message.

Any Help ?

Thanks in advance.

[PoTeToJB]

hello
charudatt

i use this code for read the msg and serperate the msg...

Private Sub Command1_Click()
Dim buffer$
DIM newMsg As String, MSG As String

MSComm1.Output = "AT+CMGF=1" + Chr(13)

Do
DoEvents
buffer$ = buffer$ & MSComm1.Input
Loop Until InStr(buffer$, "OK")
Text1.Text = Text1.Text & vbCr & buffer$
buffer$ = ""
MSComm1.Output = "AT+CMGR=1" + Chr(13)

Do
DoEvents
buffer$ = buffer$ & MSComm1.Input
Loop Until InStr(buffer$, "OK")
Text1.Text = Text2.Text & vbCr & buffer$
Text2.Text = buffer$
buffer$ = ""


newMsg = Text2.Text
newMsg = Right(newMsg, Len(newMsg) - 51) 'SKIP 51 character

MSG = Left(newMsg, 100) 'NO 100 DEPEND YOUR MSG LENGTH,IF DONT KNOW U CAN PUT MORE THAN 100

newMsg = newMsg & "MESSAGE =" & MSG & vbCrLf

MSComm1.PortOpen = False
End Sub



Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "57600,n,8,1"
MSComm1.PortOpen = True
MSComm1.Handshaking = comNone

End Sub

i hope help u abit.
but i still problem for read incomming msg.. i still study now