Te juro que nunca hice algo asi... Perdon :( Atte Almeda Claudia
El 11 de junio de 2009 9:15, Vanesa Bdm <[email protected]> escribió: > 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/ > > > ------------------------------ > > ¡Viví la mejor experiencia en la web! > Descargá gratis el nuevo Internet Explorer 8 > http://downloads.yahoo.com/ieak8/?l=ar >
