Envio de Mensajes por whatsapp

[Roger]

¿Se puede Enviar mensajes por WhatsApp Web (https://web.whatsapp.com/) usando un programa powercobol?
de manera directa.

[Fito]

Hola Roger:

Según tengo entendido hay que conectarse con una api o webservice que te haga la conexion, seguremante de pago.

Saludos.

Fito...

[Roger]

Asi es Fito uso el webservice es gratuito pero deseo usar el api estoy haciendo pruebas pero me falta a seguir testeando.

[Fito]

Hola Roger:

Acá te voy a pegar algo que estuve probando cuando intenté trabajar con webservice.
No sé si será parecido a lo que necesitás, vos verás.
Ademas te cuento que bajé un programa para probar la comunicación con el webservice que me sirvió para hacer todo esto. Se llama "Postman", fijate si te sirve.

Saludos.

Fito...


IDENTIFICATION DIVISION.
PROGRAM-ID. YEISON.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
REPOSITORY.
CLASS COM AS "*COM"
CLASS COMEXCEPTION AS "*COM-EXCEPTION".
DATA DIVISION.
WORKING-STORAGE SECTION.

01 winhttp pic x(128) value "WinHttp.WinHttpRequest.5.1".

01 oWS usage object reference COM.

01 metodo pic x(256) value "POST".
01 api pic x(256) value "http://104.131.172.142/chhapi/".
01 modo pic x(256) value "FALSE".

01 respuesta pic x(8192).

01 sep-f pic x(12) value '------Fito' & X'0D0A'.
01 sep-1 pic xx value X'0D0A'.
01 sep-2 pic xxxx value X'0D0A0D0A'.

01 COMM-verPedidos.
02 pic x(12) value '------Fito' & X'0D0A'.
02 pic x(49) value 'Content-Disposition: form-data; name="action"' & X'0D0A0D0A'.
02 pic x(12) value 'verPedidos' & X'0D0A'.
02 pic x(12) value '------Fito' & X'0D0A'.
02 pic x(48) value 'Content-Disposition: form-data; name="token"' & X'0D0A0D0A'.
02 verPedidos-token pic x(32) value '73b1f30a5879bc43c18e8f8cb5ab2f78'.
02 pic x(2) value X'0D0A'.
02 pic x(12) value '------Fito' & X'0D0A'.
02 pic x(45) value 'Content-Disposition: form-data; name="st"' & X'0D0A0D0A'.
02 verPedidos-estado pic x(1) value 'N'.
02 pic x(2) value X'0D0A'.
02 pic x(12) value '------Fito' & X'0D0A'.
02 pic x(52) value 'Content-Disposition: form-data; name="timeStart"' & X'0D0A0D0A'.
02 verPedidos-desfec pic x(10) value '2016-05-13'.
02 pic x(2) value X'0D0A'.
02 pic x(12) value '------Fito' & X'0D0A'.
02 pic x(50) value 'Content-Disposition: form-data; name="timeEnd"' & X'0D0A0D0A'.
02 verPedidos-desfec pic x(10) value '2016-05-13'.
02 pic x(2) value X'0D0A'.
02 pic x(12) value '------Fito--'.
01 verPedidos redefines COMM-verPedidos pic x(389).

01 COMM-verCobranzas.
02 pic x(12) value '------Fito' & X'0D0A'.
02 pic x(49) value 'Content-Disposition: form-data; name="action"' & X'0D0A0D0A'.
02 pic x(14) value 'verCobranzas' & X'0D0A'.
02 pic x(12) value '------Fito' & X'0D0A'.
02 pic x(48) value 'Content-Disposition: form-data; name="token"' & X'0D0A0D0A'.
02 verCobranzas-token pic x(32) value '73b1f30a5879bc43c18e8f8cb5ab2f78'.
02 pic x(2) value X'0D0A'.
02 pic x(12) value '------Fito' & X'0D0A'.
02 pic x(45) value 'Content-Disposition: form-data; name="st"' & X'0D0A0D0A'.
02 verCobranzas-estado pic x(1) value 'N'.
02 pic x(2) value X'0D0A'.
02 pic x(12) value '------Fito' & X'0D0A'.
02 pic x(52) value 'Content-Disposition: form-data; name="timeStart"' & X'0D0A0D0A'.
02 verCobranzas-desfec pic x(10) value '2016-05-13'.
02 pic x(2) value X'0D0A'.
02 pic x(12) value '------Fito' & X'0D0A'.
02 pic x(50) value 'Content-Disposition: form-data; name="timeEnd"' & X'0D0A0D0A'.
02 verCobranzas-desfec pic x(10) value '2016-05-13'.
02 pic x(2) value X'0D0A'.
02 pic x(12) value '------Fito--'.
01 verCobranzas redefines COMM-verCobranzas pic x(391).

01 RH11 pic x(256) value "Content-Type".
01 RH12 pic x(256) value "multipart/form-data; boundary=----Fito".

01 RH21 pic x(256) value "Cache-Control".
01 RH22 pic x(256) value "no-cache".

LINKAGE SECTION.

01 yeison-params.
02 yeison-comm pic 99.
02 yeison-fec1 pic 9(8).
02 yeison-fec2 pic 9(8).
02 yeison-resp pic x(8192).
02 yeison-envio pic x(8192).

PROCEDURE DIVISION using yeison-params.

declaratives.
err section.
use after exception excep.
invoke exception-object "GET-SOURCE" returning SRC.
invoke exception-object "GET-DESCRIPTION" returning MSG.
invoke pow-self "DisplayMessage" using MSG SRC POW-DMICONERROR.
exit program.

end declaratives.

Programa Section.

comienzo.
invoke COM "CREATE-OBJECT" using winhttp returning oWS.

invoke oWS "OPEN" using metodo api modo.

invoke oWS "setRequestHeader" using RH11 RH12.
invoke oWS "setRequestHeader" using RH21 RH22.

evaluate yeison-comm
when function upper-case(yeison-comm) = "VERPEDIDOS"
invoke oWS "send" using verPedidos
move verPedidos to yeison-envio
end-evaluate.

invoke oWS "get-Responsetext" returning respuesta.

move respuesta to yeison-resp.

set oWS to null.

sale.
exit program.

END PROGRAM YEISON.

[Roger]

Gracias Fito me servira de referencia todo suma.

[JCantero]

Espiar a alguien es completamente ilegal. Sin paliativos.

Tened cuidado en pinchar en link de este tipo que producen efectos colaterales.

[Kuk]

@JCantero, este se había creído que somos tontos. Como viene de Ucrania, Kansas... :rofl:

[Josber]

Como viene de Ucrania, Kansas... :D

Pa'vernos matao .... :D

[Kuk]

Pa'vernos matao
Es que es buenísimo :rofl::rofl::rofl:

[JuanJuan77]

hola, estoy buscando lo mismo, pudiste hacerlo?

y como lo venias haciendo como es??

gracias