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()
You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login(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
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()
You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login(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

