Hola a todos....
Recurro a uds porque no puedo solucionar hace varios dias un tema con sms en
visual basic 6.
Tengo un codigo que envia sms utilizando el hyperterminal, es medio largo pero
funciona bien, el problema es cuando necesito enviar un sms a mas de un
destinatario. A continuacion pongo el codigo que envia los sms.
Private Static Sub MSComm1_OnComm()
Dim EVMsg$
Dim ERMsg$
' Branch according to the CommEvent property.
Select Case MSComm1.CommEvent
' Event messages.
Case comEvReceive
Dim Buffer As Variant
Buffer = MSComm1.Input
If confirm_linea1.Text = "" Then
ShowData linea1, (StrConv(Buffer, vbUnicode))
tmr_linea1.Enabled = True
tmr_linea1.Interval = 2000
ElseIf confirm_linea2.Text = "" Then
ShowData linea2, (StrConv(Buffer, vbUnicode))
tmr_linea2.Enabled = True
tmr_linea2.Interval = 2000
ElseIf confirm_linea3.Text = "" Then
ShowData linea3, (StrConv(Buffer, vbUnicode))
tmr_linea3.Enabled = True
tmr_linea3.Interval = 2000
ElseIf confirm_linea4.Text = "" Then
ShowData linea4, (StrConv(Buffer, vbUnicode))
tmr_linea4.Enabled =
True
tmr_linea4.Interval = 2000
Else
ShowData Text2, (StrConv(Buffer, vbUnicode))
' MSComm1.PortOpen = False
End If
Case comEvSend
Case comEvCTS
EVMsg$ = "Change in CTS Detected"
Case comEvDSR
EVMsg$ = "Change in DSR Detected"
Case comEvCD
EVMsg$ = "Change in CD Detected"
Case comEvRing
EVMsg$ = "The Phone is Ringing"
Case comEvEOF
EVMsg$ = "End of File Detected"
' Error messages.
Case comBreak
ERMsg$ = "Break Received"
Case comCDTO
ERMsg$ = "Carrier Detect Timeout"
Case comCTSTO
ERMsg$ =
"CTS Timeout"
Case comDCB
ERMsg$ = "Error retrieving DCB"
Case comDSRTO
ERMsg$ = "DSR Timeout"
Case comFrame
ERMsg$ = "Framing Error"
Case comOverrun
ERMsg$ = "Overrun Error"
Case comRxOver
ERMsg$ = "Receive Buffer Overflow"
Case comRxParity
ERMsg$ = "Parity
Error"
Case comTxFull
ERMsg$ = "Transmit Buffer Full"
Case Else
ERMsg$ = "Unknown error or event"
End Select
End Sub
Basicamente lo que hace es ir escribiendo los comando at en un textbox y
esperando las respuesta y de ahi va avanzando hasta que manda el mensaje.
El procedimiento showdata lo que hace es mostrar solamente la informacion
recibida del hiperterminal.
Como veran es medio engorroso el codigo, pero lo arme de algo que encontre
buscando por internet.
Si alguien me puede dar una idea o un metodo mas facil para solucionar este
tema se los agradecere.
Saludos y muchas gracias de antemano por su ayuda.
Saludos
Yahoo! Cocina
Registrate y cargá tu receta. Podés ganar premios.
www.promorecetas.com
