Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Duda] Envio de Mensajes por whatsapp (https://www.cobolforo.es/showthread.php?t=919)

Roger 24 de noviembre de 2018 02:32
Envio de Mensajes por whatsapp
 
¿Se puede Enviar mensajes por WhatsApp Web usando un programa powercobol?
de manera directa.

Fito 26 de noviembre de 2018 15:04
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 27 de noviembre de 2018 15:43
Asi es Fito uso el webservice es gratuito pero deseo usar el api estoy haciendo pruebas pero me falta a seguir testeando.

Fito 27 de noviembre de 2018 18:25
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...

Código COBOL:
  1.  IDENTIFICATION DIVISION.
  2.  PROGRAM-ID.  YEISON.
  3.  ENVIRONMENT DIVISION.
  4.  CONFIGURATION SECTION.
  5.  REPOSITORY.
  6.      CLASS COM AS "*COM"
  7.      CLASS COMEXCEPTION AS "*COM-EXCEPTION".
  8.  DATA DIVISION.
  9.  WORKING-STORAGE SECTION.
  10.  
  11.  01  winhttp           pic x(128) value "WinHttp.WinHttpRequest.5.1".
  12.  
  13.  01  oWS usage object reference COM.
  14.  
  15.  01  metodo            pic x(256) value "POST".
  16.  01  api               pic x(256) value "http://104.131.172.142/chhapi/".
  17.  01  modo              pic x(256) value "FALSE".
  18.  
  19.  01  respuesta         pic x(8192).
  20.  
  21.  01  sep-f             pic x(12) value '------Fito' & X'0D0A'.
  22.  01  sep-1             pic xx    value X'0D0A'.
  23.  01  sep-2             pic xxxx  value X'0D0A0D0A'.
  24.  
  25.  01  COMM-verPedidos.
  26.      02                         pic x(12) value '------Fito' & X'0D0A'.
  27.      02                         pic x(49) value 'Content-Disposition: form-data; name="action"' & X'0D0A0D0A'.
  28.      02                         pic x(12) value 'verPedidos' & X'0D0A'.
  29.      02                         pic x(12) value '------Fito' & X'0D0A'.
  30.      02                         pic x(48) value 'Content-Disposition: form-data; name="token"' & X'0D0A0D0A'.
  31.      02 verPedidos-token        pic x(32) value '73b1f30a5879bc43c18e8f8cb5ab2f78'.
  32.      02                         pic x(2)  value X'0D0A'.
  33.      02                         pic x(12) value '------Fito' & X'0D0A'.
  34.      02                         pic x(45) value 'Content-Disposition: form-data; name="st"' & X'0D0A0D0A'.
  35.      02 verPedidos-estado       pic x(1)  value 'N'.
  36.      02                         pic x(2)  value X'0D0A'.
  37.      02                         pic x(12) value '------Fito' & X'0D0A'.
  38.      02                         pic x(52) value 'Content-Disposition: form-data; name="timeStart"' & X'0D0A0D0A'.
  39.      02 verPedidos-desfec       pic x(10) value '2016-05-13'.
  40.      02                         pic x(2)  value X'0D0A'.
  41.      02                         pic x(12) value '------Fito' & X'0D0A'.
  42.      02                         pic x(50) value 'Content-Disposition: form-data; name="timeEnd"' & X'0D0A0D0A'.
  43.      02 verPedidos-desfec       pic x(10) value '2016-05-13'.
  44.      02                         pic x(2)  value X'0D0A'.
  45.      02                         pic x(12) value '------Fito--'.
  46.  01  verPedidos redefines COMM-verPedidos pic x(389).
  47.  
  48.  01  COMM-verCobranzas.
  49.      02                         pic x(12) value '------Fito' & X'0D0A'.
  50.      02                         pic x(49) value 'Content-Disposition: form-data; name="action"' & X'0D0A0D0A'.
  51.      02                         pic x(14) value 'verCobranzas' & X'0D0A'.
  52.      02                         pic x(12) value '------Fito' & X'0D0A'.
  53.      02                         pic x(48) value 'Content-Disposition: form-data; name="token"' & X'0D0A0D0A'.
  54.      02 verCobranzas-token      pic x(32) value '73b1f30a5879bc43c18e8f8cb5ab2f78'.
  55.      02                         pic x(2)  value X'0D0A'.
  56.      02                         pic x(12) value '------Fito' & X'0D0A'.
  57.      02                         pic x(45) value 'Content-Disposition: form-data; name="st"' & X'0D0A0D0A'.
  58.      02 verCobranzas-estado     pic x(1)  value 'N'.
  59.      02                         pic x(2)  value X'0D0A'.
  60.      02                         pic x(12) value '------Fito' & X'0D0A'.
  61.      02                         pic x(52) value 'Content-Disposition: form-data; name="timeStart"' & X'0D0A0D0A'.
  62.      02 verCobranzas-desfec     pic x(10) value '2016-05-13'.
  63.      02                         pic x(2)  value X'0D0A'.
  64.      02                         pic x(12) value '------Fito' & X'0D0A'.
  65.      02                         pic x(50) value 'Content-Disposition: form-data; name="timeEnd"' & X'0D0A0D0A'.
  66.      02 verCobranzas-desfec     pic x(10) value '2016-05-13'.
  67.      02                         pic x(2)  value X'0D0A'.
  68.      02                         pic x(12) value '------Fito--'.
  69.  01  verCobranzas redefines COMM-verCobranzas pic x(391).
  70.      
  71.  01  RH11              pic x(256) value "Content-Type".
  72.  01  RH12              pic x(256) value "multipart/form-data; boundary=----Fito".
  73.  
  74.  01  RH21              pic x(256) value "Cache-Control".
  75.  01  RH22              pic x(256) value "no-cache".
  76.  
  77.  LINKAGE SECTION.
  78.  
  79.  01  yeison-params.
  80.      02 yeison-comm    pic 99.
  81.      02 yeison-fec1    pic 9(8).
  82.      02 yeison-fec2    pic 9(8).
  83.      02 yeison-resp    pic x(8192).
  84.      02 yeison-envio   pic x(8192).
  85.  
  86.  PROCEDURE DIVISION using yeison-params.
  87.  
  88.  declaratives.
  89.      err section.
  90.         use after exception excep.
  91.         invoke exception-object "GET-SOURCE"      returning SRC.
  92.         invoke exception-object "GET-DESCRIPTION" returning MSG.
  93.         invoke pow-self "DisplayMessage" using MSG SRC POW-DMICONERROR.
  94.         exit program.
  95.  
  96.  end declaratives.
  97.  
  98.  Programa Section.
  99.        
  100.  comienzo.
  101.      invoke COM "CREATE-OBJECT" using winhttp returning oWS.
  102.  
  103.      invoke oWS "OPEN" using metodo api modo.
  104.  
  105.      invoke oWS "setRequestHeader" using RH11 RH12.
  106.      invoke oWS "setRequestHeader" using RH21 RH22.
  107.  
  108.      evaluate yeison-comm
  109.         when function upper-case(yeison-comm) = "VERPEDIDOS"
  110.            invoke oWS "send" using verPedidos
  111.            move verPedidos   to yeison-envio
  112.      end-evaluate.
  113.      
  114.      invoke oWS "get-Responsetext" returning respuesta.
  115.  
  116.      move respuesta    to yeison-resp.
  117.  
  118.      set oWS           to null.
  119.  
  120.  sale.
  121.      exit program.
  122.  
  123.  END PROGRAM YEISON.

Roger 28 de noviembre de 2018 03:10
Gracias Fito me servira de referencia todo suma.

JCantero 23 de marzo de 2021 18:31
Espiar a alguien es completamente ilegal. Sin paliativos.

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

Kuk 23 de marzo de 2021 19:07
@JCantero, este se había creído que somos tontos. Como viene de Ucrania, Kansas... :rofl:

Josber 23 de marzo de 2021 19:33
Cita:
Citación del post de Kuk (Mensaje 6576)
Como viene de Ucrania, Kansas...
:D

Pa'vernos matao .... :D

Kuk 23 de marzo de 2021 21:29
Cita:
Citación del post de Josber (Mensaje 6577)
Pa'vernos matao
Es que es buenísimo :rofl::rofl::rofl:

JuanJuan77 25 de marzo de 2021 12:02
hola, estoy buscando lo mismo, pudiste hacerlo?

y como lo venias haciendo como es??

gracias


La franja horaria es GMT +2. Ahora son las 15:52.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.