send incomming msg (SMS) to VB

[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

[charudatt]

Thank you. But my idea is to read a incoming SMS using VB. This includes the following steps.

(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

This is simple using PIC BASIC Pro but I am not sure how to do this in VB6
OK step one has definate characters to trap as I am going to keep my SMS's below 10
Step 2 Is simple as I can just issue a command using VB.
Step 3 is a bit challengeing as I am interested in only "Hello World"

Any help. Are there any free ActiveX/OCX for receiving SMS for VB6

regards
Charudatt

an after thought : should i be trapping a carriage return as the EOM (End Of Message) marker ?

[PoTeToJB]

hello
charudatt

u say simple using PIC BASIC Pro for read incomming msg.
can u share it..
i want send and read incomming msg.. using pic

[charudatt]

OK I shall share it. Give me a day, shall format the text and share it with you. Right now its just small routines.

regards
Charudatt