Envio de Mensajes por whatsapp

[Roger]

¿Se puede Enviar mensajes por WhatsApp Web 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.

[Joedan]

Si no sabe cómo, pero desea rastrear a una persona en su WhatsApp, debe saber cómo hacerlo. [URL BORRADA] ellos pueden decirte en detalle cómo y qué hacer para espiarlos. También es completamente legal y encontrarás absolutamente todos los datos sobre la ubicación de la persona.

Mensaje de MODERADOR

Te has equivocado de foro, machote

[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...

[Josber]

Como viene de Ucrania, Kansas...

Pa'vernos matao ....

[Kuk]

Pa'vernos matao

Es que es buenísimo