SMS - sms desde visual basic.net

gracias por leer esto, necesito ayuda, necesito el codigo para poder enviar un mensaje de texto desde un programa de visual basic.net a un celular nokia o desde cualquier otro

Revisa este link te podria ayudar hay varios programas en diferentes lenguajes que te podrían ayudar, suerte
http://www.activexperts.com

Sub enviarSMS(ByVal numero As String, ByVal mensaje As String, ByVal puerto As String)
Dim serialport As SerialPort

Try
serialport = New SerialPort()

With serialport
.PortName = puerto ' Puerto de comunicaciones COM1, COM2...
.BaudRate = 9600 ' velocidad del puerto
.Parity = Parity.None ' Paridad
.StopBits = StopBits.One ' Bit de para
.DataBits = 8 ' Bits de datos

If .IsOpen = False Then ' Si el puerto no esta abierto
.Open() ' Abrir el puerto
End If

.Write("ATZ0" & vbCr)
.WriteLine("AT+CMGF=1" & vbCr) ' Configurando envio de SMS modo texto
Thread.Sleep(1000) ' Esperar 1 segundo
.Write("AT+CMGS=" & Chr(34) & numero & Chr(34) & vbCr) ' Numero al que se envia el SMS
.Write(mensaje & Chr(26) & vbCr)
Thread.Sleep(1000) ' Esperar 1 segundo

.Close()
MsgBox("Mensaje enviado")

End With

Catch Ex As IO.IOException
Console.WriteLine(Ex.Message)
End Try

End Sub

hola esta buenisimo el codigo me sirvio de mucho gracias...

pero ahora como le puedo hacer para poder leer los mensajes

o sea la verdad no se como devuelve los mensajes tengo los comando AT

pero esa parte no se como funciona el serialport por favor ayudenme gracias.

podrian enviarme un ejemplo a mi correo:

[email protected]

Me puedes explicar con es que te funciono el codigo que colocó el amigo con un ejemplo

gracias

Hola disculpame
que puerto utilizaste ?
implemente el codigo pero no se que puerto usar para el ultimo parametro
saludos
manuel

a ver si alguien me puede ayudar, tengo agere win modem, con el hyperterminal funciona perfecto, en Windows 7 64b
pero cuando lo llevo a visual basic net 2013 usando serialport, no hace nada, no disca, y pasa por todo el proceso del ejemplo anterior, pero nada, es como que no reconoce el modem. en hyperterminal esta colgado sobre agere win modem, que usa com7 pero si yo lo paso a com7 directo no funciona, quizás esta ahí el problema es como un puerto virtual.

alguna ayuda seria genial, gracias.