[Sintaxis] Sacar y guardar el cógido fuente de una pagina Web

[Roger]

Amigos del foro
Como puedo programar en power este control shortcut ctrl+u y automaticamente lo envia a un archivo (html) me urge.

[Kuk]

Roger, lo puedes hacer en el "KeyDown" del Form:

*
 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 LINKAGE         SECTION.
 01  POW-ARG-KEYCODE PIC S9(4) COMP-5.
 01  POW-ARG-SHIFT   PIC S9(4) COMP-5.
 PROCEDURE       DIVISION USING POW-ARG-KEYCODE POW-ARG-SHIFT.
     
     IF  POW-ARG-KEYCODE = POW-KEY-U AND
         POW-ARG-SHIFT = POW-SHIFTSTATE-CTRL
         tu codigo...
     END-IF

[Roger]

KUK
desde un boton llamar a una pagina web activar crtl+u y se grabe en un archivo en forma automatica.


¿Hay otra forma de pasar la informacion que me muestra en esta pagina?
no importa si fuese en htlm

[Kuk]

Roger, es que no te has explicado bien antes. Tu lo que quieres es algo mas complicado de hacer.

Se me ocurren 2 opciones:

1. Mediante un control WebBrowser (o similar), cargar la magina y sacarle el codigo fuente.
2. Mediante VBScript, no se exactamente como pero pienso que se podria hacer.

Si solo fuera llamar la web se podria por COM (el ejemplo que publico Rapinto hace unos dias), VBScript o incluso por Shell directamente desde PowerCOBOL, pero si quieres guardar el fuente... La via mas rapida seria WebBrowser.

Lo del Ctrl+U no se a que sirve pero supongo que si tienes la pagina dentro del control WebBrowser te tu Form le podras hacer lo que quieras.

[Roger]

KUk
Mediante un control WebBrowser (o similar), cargar la maquina y sacarle el codigo fuente.

con el navegador se hace de esta manera he visto otros programadores
hacen esto con un boton en sus programa

Mozilla Firefox:

Abre Mozilla Firefox
Clic derecho o presiona las teclas Control + U
Haz clic en "Ver código fuente"

Una vez completados los pasos anteriores una nueva ventana se abrirá mostrando el código fuente.

Haz clic en el menú Archivo
Clic en "Guardar como"
Guarda el archivo como un archivo txt.. Ejemplo de nombre de archivo : codigo fuente.txt

[Kuk]

Roger, todo lo que dices se hace a mano, con el raton. No se puede (o es casi imposible) de hacerlo via programa, en todo caso seria muy muy pero que muy complicado.

Existen controles OCX, de Microsoft que se llama WebBrowser, DBITech tiene el CtHtml o algo asi se llama... Si lo metes en tu aplicacion en un Form, puedes manejar todo, asimismo sacar el codigo fuente de la pagina cargada en el control. Es esto lo que te decia

P.D. esa carita de colleja espero que no sea para mi queriendo decir que no me entero de nada en esta vida

[Rapinto]

Roger,

Penso que se consegue assim:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01 WINHTTP               PIC X(128) VALUE "MSXML2.ServerXMLHTTP".
*
 01 OBJHTTP USAGE OBJECT REFERENCE COM.
 
 01 OP1 PIC X(256) VALUE "POST".
 01 WSSITE PIC X(256) VALUE SPACE.
 01 SITE   PIC X(256) VALUE SPACE.
*
 01 OP3 PIC X(256) VALUE "FALSE".
*
 01 OP4 PIC X(256) VALUE "User-Agent".
 01 OP5 PIC X(256) VALUE "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)".
 01 OP6 PIC X(256) VALUE " ".
 
 01 COUNTER     pic s9(09) comp-5.
 01 DMICON      pic s9(09) comp-5.
 01 returnvalue pic s9(09) comp-5.
 01 RESPOSTA    PIC X(8192).
*
 01  OLE-ERR-INFO.                                                
    03  OLE-ERR-TYPE                  PIC X(001).                          
    03  OLE-ERR-WCODE                 PIC X(002).                          
    03  ROLE-ERR-WCODE REDEFINES OLE-ERR-WCODE  PIC S9(04) COMP-5.
    03  OLE-ERR-SCODE                 PIC X(004).                          
    03  ROLE-ERR-SCODE REDEFINES OLE-ERR-SCODE PIC S9(09) COMP-5.
*
 PROCEDURE       DIVISION. 
 DECLARATIVES.                                              
 OLE-ERRO SECTION.                                          
    USE AFTER EXCEPTION COMEXCEPTION.                           
            INVOKE EXCEPTION-OBJECT "GET-ERROR-TYPE"              
                 RETURNING OLE-ERR-TYPE. 
            INVOKE POW-SELF "DisplayMessage" USING OLE-ERR-TYPE "ERRO EM OLE2"
            GO TO MAIN-90.
 END DECLARATIVES.
 MAIN SECTION.
 MAIN-00.
    INITIALIZE SITE.
    MOVE "TEXT" OF CMSITE TO WSSITE.
    IF WSSITE = SPACE GO TO MAIN-99-EXIT.
    IF WSSITE(1:4) = "HTTP" OR = "http" GO TO MAIN-10.
    MOVE "HTTP://" TO SITE.
    MOVE WSSITE    TO SITE(8:).
    MOVE SITE TO WSSITE.
    MOVE SITE TO "TEXT" OF CMSITE.
*
 MAIN-10.
    INVOKE COM "CREATE-OBJECT" USING WINHTTP RETURNING OBJHTTP.
*
    INVOKE OBJHTTP "OPEN" USING OP1 WSSITE.
 
    INVOKE OBJHTTP "setRequestHeader" USING OP4 OP5 .
*
    INVOKE OBJHTTP    "send" USING OP6.
*
    INVOKE OBJHTTP    "get-ResponseText" RETURNING RESPOSTA.
    MOVE RESPOSTA TO XMLLINHA.
    MOVE RESPOSTA TO "TEXT" OF CMTEXT1.
*   INVOKE OBJHTTP "get-ResponseBody" RETURNING RESPOSTA.
*****
*   MOVE RESPOSTA TO XMLLINHA.
    GO TO MAIN-90.
 MAIN-90.
    SET OBJHTTP TO NULL.
 MAIN-99-EXIT.
    EXIT PROGRAM.

Em anexo tens um ppj (Versão 9.0 do Fujitsu Cobol)

[Kuk]

Rapinto, esto es VBScript, pasandolo por COM/OLE no? En realidad VBScript utiliza COM/OLE tambien (si no me equivoco). O sea, al menos la mayoria de sus posibilidades se basan en COM/OLE. Corrigeme si no es correcto.

[Roger]

Amigos KUK Y RAPINTO
Si es tema creo un poco complicado pero nada imposible, he estado revisando y trasteando otras posibilidades hice pruebas con cthtml.ocx de dbi tech funciona en 60% pero el problema surge cuando necesito esa informacion pasar a mi base de datos este control tiene una propiedad de URL pero como el link tiene capcha solo te pasa la parte inicial de del URL.
Tampoco te permite captar el codigo fuente, por el ppj. que me envio Rapinto probe con este link Consulta RUC me envia un error ERROR EM OLE 2.
Creo que por este link esta la grieta que es para consulta mediante celulares y si te permite coger el codigo fuente.

¿Cual es la finalidad de todo esto? tengo sistemas ya instalado en diferentes empresas que tenian la validacion en linea la consulta del RUC por medio de otro link pero este dejo de funcionar, de igual forma otras empresas que tiene sistemas en otros lenguajes ya arreglaron este
"problema" estos lo hicieron en diferentes lenguajes fox pro, visual basic, phyton mi deseo era hacerlo en powercobol como anteriormente lo hice pero me tope con todo este desconocimiento.

si desean ver aca dejo unos enlaces donde demuestran el aplicativo
Consulta RUC Sunat - Peru Foxpro - YouTube
Consulta Ruc 2015 + Codigo Fuente + Explicación = S/. 100.00 - YouTube

[Kuk]

Roger, yo de web no controlo mucho. Lo que te puedo ofrecer de ayuda es:
Si existe una DLL sea en VB sea en C++ (compilada) que haga lo mismo que hace esa web, la puedo sondear y darte el codigo COBOL para que la llames mediante WinAPI, cargarla dinamicamente, encontrar y llamar la función necesaria (o sea, sin necesidad de *.LIB).