mscomm error 8020 - VB-MUNDO

malm82 · #1 (**permalink**) 22-11-2007, 16:17:11

Hola amigos, estoy haciendo una aplicacion para enviar sms desde mi PC, estoy usando el control mscomm al cual le envio comandos AT pero al momento de querer leer (MSComm1.Input) me sale un error (8020- Error al leer del dispositivo comm) ya he buscado de que se trata este error pero nada me saca del apuro, agradeceria a alguien que me pueda ayudar

Saludos cordiales

malm82 · #2 (**permalink**) 22-11-2007, 23:06:36

Hola amigos despues de tanto buscar la forma de como enviar los sms, encontre la forma aqui pongo la forma en lo hice

Código:

Dim objComunicar As Object

Public Sub SendSMS(strSMS As String, Numero As String)
On Error GoTo SendSMS_Error
    
Set objComunicar = CreateObject("MSCommLib.MSComm")
  
    objComunicar.InputLen = 0 ' El valor 0 hace que se lea todo
    objComunicar.RThreshold = 1 ' al recibir uno o mas caracteres
    objComunicar.SThreshold = 0 ' al enviar uno o mas caracteres
    'Indicaremos el puerto COM a utilizar (donde esté conectado el módem)
    objComunicar.CommPort = Puerto
  
    'En la configuración le indicaremos
    '300 = 300 baudios (velocidad)
    'N = sin paridad
    '8 = 8 bits de datos
    '1 = bit de parada
    objComunicar.Settings = str$(9600) + ",N,8,1"
    
    objComunicar.PortOpen = True
    
    'Liberamos el búfer de salida
    objComunicar.InBufferCount = 0
    
    'Establece que el tipo a usar es modo texto (la otra opcion es 0=PDU)
    cadConexion$ = "AT+CMGF=1" + Chr$(13)
    'Enviamos los comandos AT al módem
    objComunicar.Output = cadConexion$

    
    'comando para enviar un SMS junto con el numero de celular
    cadConexion$ = "AT+CMGS=" + Chr$(34) + Numero + Chr$(34) + Chr$(13)
    
    'Enviamos los comandos AT al módem
    objComunicar.Output = cadConexion$
    
    'por ultimo colocamos el mensaje del SMS 
    cadConexion$ = strSMS + Chr$(26)
    
    'Enviamos los comandos AT al módem
    objComunicar.Output = cadConexion$
    
SendSMS_Done:
  Exit Sub

SendSMS_Error:

    
End Sub

NOTA tienen que poner un procedimiento de captura de error para que cuando marque el error de que no se puede leer el dispositivo continue
se que es un poco torpe pero funciona asi jejejejej

La parte donde le dicen que escribiran un SMS la pueden modificar por AT+CMGW (la S por W) para que vean como se crea en su celular los sms y evitar que se agote su credito