How to send message using GSM from VB6

[kenlow]

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

[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

[Joe Caverly]

The link below has VB6 SMS Source Samples;

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

Joe

[Thierry69]

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

Seems very promising, tested in a few minutes seems working

[Bobbles]

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 ?

[kenlow]

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

[kenlow]

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