Nadie tiene idea? Seguramente alguno de uds hizo algo de esto.... Saludos
--- El mar 9-jun-09, Vanesa Bdm <[email protected]> escribió: De: Vanesa Bdm <[email protected]> Asunto: [vbusers] Enviar sms Para: "vbusers List Member" <[email protected]> Fecha: martes, 9 de junio de 2009, 7:21 pm 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 Recetas prácticas y comida saludable Visitá http://ar.mujer.yahoo.com/cocina/ Yahoo! Cocina Recetas prácticas y comida saludable http://ar.mujer.yahoo.com/cocina/
