Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - pachoduran

#1
Hola, muy interesante este tema, hice la prueba y me ha funcionado muy bien, he tratado de enviar un mensaje con una foto y no he podido, podrian ayudarme?

Modifique la funcion SendWA del ejemplo para poder enviar imagenes:

    Public Function SendWA(ByVal MSG As String, ByVal Num As String) As Boolean
        Dim usrMan As New WhatsUserManager()
        Dim imgSegnature As Image

        Dim tmpUser = usrMan.CreateUser(Num, "User")
        imgSegnature = Image.FromFile("p.jpg")
        Dim ms = New MemoryStream()
        No tienes permitido ver enlaces. Registrate o Entra a tu cuenta(ms, System.Drawing.Imaging.ImageFormat.Jpeg) ' Use appropriate format here
        Dim bytes = ms.ToArray()

        wa.SendMessageImage(Num, bytes, ApiBase.ImageType.JPEG)

        Return True
    End Function

Siempre se bloquea y nunca envia la imagen.

Muchas gracias. Dios los bendiga