Visual Basic - URGENTE!!: SMS EN VB6

Life is soft - evento anual de software empresarial

URGENTE!!: SMS EN VB6

Publicado por Mory (4 intervenciones) el 14/08/2001 17:58:30

Hola
Necesito desarrolar un módulo en VB6 que pueda enviar SMS a cualquier móvil. Estoy utilizando Microsoft XML, v3.0 (msxml3.dll) con las siguientes líneas de código:

Private Sub EnvioSMS()
Dim oHttp As ServerXMLHTTP
Set oHttp = CreateObject("msxml2.serverXMLHTTP")
oHttp.Open "GET", "http://www.billiger-
telefonieren.de/sms/send.php3?action=accept", False
oHttp.send
End Sub

Si establezco una conexión a una dirección de un servidor local no tengo problemas, pero a cualquier dirección de un servidor externo, no puedo (error en el método send).

Necesito ayuda URGENTE en este tema, agradecería a quien pueda orientarme.

PD: la cuenta usada en el código es para envio grátis de SMS.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

RE:URGENTE!!: SMS EN VB6

Publicado por JSKASI (1 intervención) el 16/08/2001 14:00:59

Hice una aplicación similar, pero me conectaba a un servidor cualquiera, por el puerto del correo saliente y enviaba un mail en función de la compañía de teléfono, p.e.:
amena nº[email protected]
movistar nº[email protected] (no estoy seguro)

espero que te sirva...

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

RE:URGENTE!!: SMS EN VB6

Publicado por Mory (4 intervenciones) el 16/08/2001 19:24:28

YA ENCONTRE UNA SOLUCION, SE LAS COMENTO ACA PARA QUE LA UTILICEN:

GENERE UNA PEQUEÑA PAGINA ASP QUE HACE UN SUBMIT A UNA DIRECCION HTTP DE UN SERVIDOR QUE CORRESPONDE A UNA EMPRESA DE TELEFONI MOVIL, LES COPIO EL EJEMPLO:

<html>
<body>
<form method="post" action="http://aca_direccion_empresa_telefonia_movil/nombre_pagina" name="nombresms" >
<input type="hidden" name="RECIPIENT" value="<%=request("numero")%>">
<input type="hidden" name="TEXT" value="<%=request("mensaje")%>">
</form>
<script language="JavaScript">
{
document.smsbellsouth.submit()
}
</script>
</body>
</html>

HAY QUE CONSIDERAR QUE LA DIRECCION ESTE CORRECTA, QUE LOS NOMBRES DE LOS PARAMETROS SEAN LOS MISMOS.
TAMBIEN HAY QUE TENER PRESENTE QUE CADA EMPRESA DE TELEFONIA MOVIL PUEDE TENER MAS PARAMETROS O MENOS, ETC.

BUENO, LUEGO EN CODIGO VB6, EN UN FORM INCLUI LA REFERENCIA MICROSOFT INTERNET CONTROL Y EL COMPONENTE Y EL COMPONENTE DEL MISMO NOMBRE Y GENERE EL SIGUIENTE PROCEDIMIENTO:

Public Sub execution()
On Error GoTo ErrorCall
Dim lilong As Long
Screen.MousePointer = 11
txt_output = ""
WebBrowser1.Navigate Me.txt_message
Screen.MousePointer = 0
Exit Sub

ErrorCall:
MsgBox ("No Ejecutar")
Resume Next
Exit Sub
End Sub

DONDE EL CONTROL Me.txt_message, TIENE LA DIRECCION HTTP CON LOS PARAMETROS (FONO, MENSAJE)

ESPERO LES SIRVA

Valora esta respuesta

Comentar

Coneccion a base de datos con ADO

¿Como imprimir textbox y richtextbox en un folio??