How can I use VB to send me a text message ? Can someone show me an example.
Printable View
How can I use VB to send me a text message ? Can someone show me an example.
Do you mean a mobile phone SMS?
I would be interested on how to send SMS messages using VB... If its possible?
me too, i might investigate...Quote:
Originally posted by Leather
I would be interested on how to send SMS messages using VB... If its possible?
Yes,
I want to be able to send an SMS message to a mobile phone. Is this possible ?
If anyone knows they will be my hero, or heroine.
i'm guessing you can do it with winsock yes?
essentially the same.
specifiy a phone no, send data...
The SMS data specification (and it's hardware specific extensions - e.g. Logos and Ringtones) is available online.
However, the only online systems that can broadcast these from a PC require a pay-per-use subscription.
Many newer phones have a dataport built in and it is possible to interface through these and send your SMS through your phone connected to your PC - however there doesn't seem to be a standardised driver interface (an equivalent of winspool.drv for printers) so any code that uses this will need to be very highly configurable....
...hmmm, big project ahead....
Here you go....
and once you connect your mobile to your serial port you can use the following code:
*all code liberated from various sources....i.e. not my own....Code:' Set up the communications port
MSComm1.CommPort = 1
' Com Port 1
' Set for 9600 baud, no parity, 8 data, and 1 stop bit.
MSComm1.Settings = "9600,N,8,1"
' Tell the control to read entire buffer when Input is used
MSComm1.InputLen = 0
' Open the port
MSComm1.PortOpen = True
' Send an
'AT' command to the phone
MSComm1.Output = "AT" & Chr$(13) & Chr(10)
' The phone will respond with an 'OK'
' Set up the phone for a text message
MSComm1.Output = "AT+CMGF=1" & Chr$(13) & Chr(10)
' The phone will respond with an 'OK'
' Prep for SMS, give destination type and destination address.
' Enter the destination type and destination address to prep for SMS
' e.g. AT+CMGS="+2145551212",129
MSComm1.Output = "AT+CMGS= " & Chr(34) & "+2145551212" & Chr(34) & ",129" & Chr$(13) & Chr(10)
' The phone will return a'>' prompt, and await entry of the SMS message text.
' Now send the text to the phone and terminate with (Ctrl-Z)
MSComm1.Output = "This is a test. WOW! "
' The phone will respond with a conformation containing the 'message reference number' eg. +CMGS:
' Close the port
MSComm1.PortOpen = False
'From a terminal, it would look like this:
'AT
'OK
'AT CMGF = 1
'OK
'AT+CMGS="+15127752607",129 >This is a test. WOW!
'+CMGS:
'49
'OK
where are they available online?Quote:
Originally posted by MerrionComputin
The SMS data specification (and it's hardware specific extensions - e.g. Logos and Ringtones) is available online.
However, the only online systems that can broadcast these from a PC require a pay-per-use subscription.
Many newer phones have a dataport built in and it is possible to interface through these and send your SMS through your phone connected to your PC - however there doesn't seem to be a standardised driver interface (an equivalent of winspool.drv for printers) so any code that uses this will need to be very highly configurable....
...hmmm, big project ahead....
this is something that i would be interested in...write an SMS sending program = free SMS'ing?
Smart messaging Specification version 2.0.0
Note that you still need a phone to send the SMS message thus created so this does not free you from operator charges...
HTH,
Duncan
Has any1 gone any further on this one?
Where to I get a serial cable for my phone? Can I adapt or make one from something?
thnx,
squirrelly1