Ver Mensaje Individual
  #1 (permalink)  
Antiguo 28/08/2013, 10:20
emilio_alac05
 
Fecha de Ingreso: septiembre-2012
Mensajes: 75
Antigüedad: 11 años, 7 meses
Puntos: 2
ejecutar procesos sieguientes

Hola amigos del foro buen dia estoy buscando ayuda, tengo un problema para ejecutar una sentencia

Uso un comando AT+CMGD=1 & vbcrlf cuando envio este comando si se realizo con exito me devuelven un OK si no un ERROR

como podria validar que el proceso continue hasta que sea igual a OK, saludos. lo necesito.gracias.


utilizo este codigo pero no me lo respeta se pasa a llamar call send_sms sin que reciba OK, cual es el problema?,saludos. ayudenme
Código:

Código:
sub borrar()

Do Until InStr(MSComm1.Input, "OK")
        
    MSComm1.Output = "AT+CMGD=" & 8 & vbCrLf
        
        DoEvents
    Loop
    Call send_sms

end sub