Visual Basic.NET - Xml-Rpc + Vs.net + Movistar

Buenas ¡ Actualmente necesito realizar una apliacacion para el envio de correos a traves del portal de negocios de movistar.

He bajado el Api de Movistar https://www.mensajerianegocios.movistar.es/Manual_API.pdf
y he comprobado que hay varios ejemplos para realizar esto en java y php, pero yo necesito hacerlo en Vs.net.

Asi que me he decidido por usar la dll de Cooltek pero algo debo de hacer mal por que cuando voy a crear la interfaz obtengo el error :intenta implementar una interfaz no accesible

A ver si alguien me puede ayudar un Poco por si acaso les dejo el Codigo :

Imports CookComputing.XmlRpc
<XmlRpcUrl(http://www.mensajerianegocios.movistar.es/SrvConexion")> _
Interface IEnviarSms
<CookComputing.XmlRpc.XmlRpcMethod("MensajeriaNegocios.enviarSMS")> _
Function Envio(ByVal usuario As String, ByVal pass As String, ByVal lista As String()) As Integer
End Interface


Public Class Form1
Private Sms As IEnviarSms
Private ClientProtocol As XmlRpcClientProtocol
Private TxtUrl As String

Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Sms = CType(XmlRpcProxyGen.Create(GetType(IEnviarSms)), IEnviarSms)
End Sub

Hola.

Tengo el mismo problema, queresmo enviar los sms desde Excel.

Has conseguido completarlo?

saludos

¿Habéis conseguido enviar los sms usando CookComputing.XmlRpc? ¿Podéis darme un ejemplo de codigo para el envio de los sms con mensajeria de negocios?

Yo lo tengo funcionando y va bien

Aqui os dejo el codigo :

Imports CookComputing.XmlRpc


<XmlRpcUrl("http://www.mensajerianegocios.movistar.es/SrvConexion")> _
Public Interface Movistar
Inherits IXmlRpcProxy
<XmlRpcMethod("MensajeriaNegocios.enviarSMS")> Function Envio(ByVal usuario As String, ByVal password As String, ByVal lista As Object()) As Object()
End Interface





Public Class Form1



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


Dim proxy As Movistar = XmlRpcProxyGen.Create(Of Movistar)()


Dim mensajes(1) As Object


Dim sms1(2) As String
sms1(0) = "66666666"
sms1(1) = "PRueba xml-rpc"
sms1(2) = "Empresa"


mensajes(0) = sms1


Dim sms2(2) As String
sms2(0) = "6666667"
sms2(1) = "PRueba xml-rpc 2"
sms2(2) = "Empresa"

mensajes(1) = sms2

Dim resultado As Object() = proxy.Envio("Usuario", "Password", mensajes)

End Sub


End Class





Esta probado y funciona bien.

Hola

¿ Alguien sabe si este servicio tiene API para obtener el fichero generado con los mensajes que se han enviado ?

Saludos.

Hola

He copiado el código tal cual y no me funciona. No da errores ni nada. ¿Alguien tiene idea de porqué?


Saludos.

A mi también me funciona, aunque he tenido que hacer un cambio en la línea de XmlRpcProxyGen.Create, pongo el código tal cual cambiando la url y los datos de conexión (marcados en negrita):