How to send message using GSM from VB6

Private Sub Command1_Click()

On Error Resume Next
MSComm1.CommPort = 9
MSComm1.Settings = "9600,N,8,1"
MSComm1.Handshaking = comRTS
MSComm1.RTSEnable = True
MSComm1.DTREnable = True
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.InputMode = comInputModeText
MSComm1.InputLen = 0
MSComm1.PortOpen = True

MSComm1.Output = "AT" & vbCrLf
MSComm1.Output = "AT+CMGF=1" & vbCrLf
MSComm1.Output = "AT+CMGS=" '& Chr(34) & Trim(Text1.Text) & Chr(34) & vbCrLf
MSComm1.Output = Mid(Text2.Text, 1, 160) & Chr(26)
MSComm1.PortOpen = False
MsgBox "Successfully send Msg "


End Sub

does that code have anything to do with GSM?
do you have GSM modem?

there have been many threads about sending text messages in this forum, most seem to use some web interface

The link below has VB6 SMS Source Samples;

http://www.scampers.org/steve/sms/samples.htm

Joe

Try this : https://sindhitutorials.com/blog/gsm...s-android-app/

Seems very promising, tested in a few minutes seems working

In Australia ALL new smart phones use 4G (aka LTE I think).
Australia still has 3G, and phones can revert to that (EG when I call my friend, both of our phones revert to 3G whilst we are on the call)

I just googled, and still could not find an answer to this question -
Is 4G GSM ?

Quote:

---

Originally Posted by westconn1

does that code have anything to do with GSM?
do you have GSM modem?

there have been many threads about sending text messages in this forum, most seem to use some web interface

---

it is SIM300Z GSM MODULE

Quote:

---

Originally Posted by westconn1

does that code have anything to do with GSM?
do you have GSM modem?

there have been many threads about sending text messages in this forum, most seem to use some web interface

---

it is SIM300Z GSM MODULE