FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Capturar la direcci贸n del navegador
Posts: 470
Joined: Fri Feb 05, 2010 11:30 AM
Capturar la direcci贸n del navegador
Posted: Thu Sep 15, 2022 07:47 PM

Buenas tardes:

驴C贸mo puedo capturar desde mi aplicaci贸n, la ruta que indica mi navegador que est谩 abierto?

Necesito tomar esa direcci贸n, para realizar un procedimiento... tengo el navegador abierto y
desde mi sistema, necesito saber d贸nde est谩 apuntando...

Muchas gracias
Roberto

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Capturar la direcci贸n del navegador
Posted: Thu Sep 15, 2022 08:22 PM

Que navegador ?

Cualquier navegador ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 470
Joined: Fri Feb 05, 2010 11:30 AM
Re: Capturar la direcci贸n del navegador
Posted: Thu Sep 15, 2022 08:24 PM

Si es posible, si Antonio... del navegador que est茅 activo.
Sino, puedo llegar a lanzar uno y usar ese, pero para librarme de eso y que el usuario pueda
elegir el que m谩s le guste...

Muchas gracias!
Roberto

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Capturar la direcci贸n del navegador
Posted: Fri Sep 16, 2022 04:36 AM
Roberto,

You can use Ctrl + L ; Ctrl + C. This is valid for all the browser I have used.

You can also use F6; Ctrl + C this is working with chrome.

You can use F4; Ctrl + C. This is working with Firefox.

https://www.edureka.co/community/33916/how-to-get-the-url-of-the-current-tab-in-google-chrome

Tendrias que localizar el handle de la ventana del navegador y enviar esas combinaciones de teclas. El resultado queda en el clipboard.

Prueba asi: MsgInfo( FindWindow( "Chrome_WidgetWin_1", 0 ) )
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Capturar la direcci贸n del navegador
Posted: Fri Sep 16, 2022 05:11 AM
Estoy probando asi pero aun falla el env铆o de Ctrl+C
Code (fw): Select all Collapse
#include "FiveWin.ch" 

#define WM_ACTIVATE 聽0x0006

function Main()

聽 聽local hWndChrome := FindWindow( "Chrome_WidgetWin_1", 0 )

聽 聽PostMessage( hWndChrome, WM_ACTIVATE, 0x1, 0x056C ) 
聽 聽PostMessage( hWndChrome, WM_KEYDOWN, VK_F6, 0 )
聽 聽PostMessage( hWndChrome, WM_KEYUP, VK_F6, 0 )
聽 聽PostMessage( hWndChrome, WM_KEYDOWN, VK_CONTROL, 0 )
聽 聽PostMessage( hWndChrome, WM_KEYDOWN, Asc( "c" ), 0 )
聽 聽PostMessage( hWndChrome, WM_KEYUP, VK_CONTROL, 0 )
聽 聽PostMessage( hWndChrome, WM_KEYUP, Asc( "c" ), 0 )

聽 聽OpenClipboard( 0 )
聽 聽MsgInfo( GetClpData( 1 ) )
聽 聽CloseClipboard()

return nil
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Capturar la direcci贸n del navegador
Posted: Fri Sep 16, 2022 05:51 AM
He probado tambi茅n asi pero de momento no hay suerte:
Code (fw): Select all Collapse
#include "fivewin.ch" 

#define WM_ACTIVATE  0x0006

function Main()

   local hWndChrome := FindWindow( "Chrome_WidgetWin_1", 0 )

   PostMessage( hWndChrome, WM_ACTIVATE, 0x1, 0x056C ) 
   Sleep( 500 )
   PostMessage( hWndChrome, WM_KEYDOWN, VK_F6, 0 )
   PostMessage( hWndChrome, WM_KEYUP, VK_F6, 0 )
   SendCtrlC()

   OpenClipboard( 0 )
   MsgInfo( GetClpData( 1 ) )
   CloseClipboard()

return nil

#pragma BEGINDUMP

#include <hbapi.h>
#include <windows.h>

HB_FUNC( SENDCTRLC )
{
   INPUT ip;
   ip.type = INPUT_KEYBOARD;
   ip.ki.wScan = 0;
   ip.ki.time = 0;
   ip.ki.dwExtraInfo = 0;
 
   // Press the "Ctrl" key
   ip.ki.wVk = VK_CONTROL;
   ip.ki.dwFlags = 0; // 0 for key press
   SendInput( 1, &ip, sizeof( INPUT ) );

   // Press the "c" key
   ip.ki.wVk = 'c';
   ip.ki.dwFlags = 0; // 0 for key press
   SendInput( 1, &ip, sizeof( INPUT ));

   // Release the "c" key
   ip.ki.wVk = 'c';
   ip.ki.dwFlags = KEYEVENTF_KEYUP;
   SendInput( 1, &ip, sizeof( INPUT ) );

   // Release the "Ctrl" key
   ip.ki.wVk = VK_CONTROL;
   ip.ki.dwFlags = KEYEVENTF_KEYUP;
   SendInput( 1, &ip, sizeof( INPUT ) );
   
   Sleep( 1000 ); // pause for 1 second
}

#pragma ENDDUMP
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 470
Joined: Fri Feb 05, 2010 11:30 AM
Re: Capturar la direcci贸n del navegador
Posted: Fri Sep 16, 2022 10:41 AM

Muchas gracias Antonio!

La consulta es, se podr谩?
He probado con el formato que me pasas y no tengo el resultado tampoco...

Roberto

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar
Posts: 470
Joined: Fri Feb 05, 2010 11:30 AM
Re: Capturar la direcci贸n del navegador
Posted: Fri Sep 16, 2022 01:40 PM

Antonio,
si lanzo mi url a WebView, no puedo obtener el resultado en alg煤n dato?

Veo que la WebView tiene un par de datas pero no devuelve eso.

Av铆same cuando puedas!
Gracias!!

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Capturar la direcci贸n del navegador
Posted: Sat Sep 17, 2022 02:45 AM
Usando WebView es muy sencillo:
Code (fw): Select all Collapse
#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   local oWebView := TWebView():New()

   oWebView:bOnBind = { | cJson, nCalls | MsgInfo( cJson, nCalls ) }
   oWebView:Bind( "SendToFWH" )
   oWebView:Navigate( "https://www.google.com" )
   Sleep( 200 )
   oWebView:Eval( "SendToFWH( document.URL )" )
   oWebView:Run()
   oWebView:Destroy()

return nil

//----------------------------------------------------------------------------//
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 470
Joined: Fri Feb 05, 2010 11:30 AM
Re: Capturar la direcci贸n del navegador
Posted: Mon Sep 19, 2022 02:00 PM

Gracias Maestro... intentar茅 ver si puedo aplicar esto...

muchas gracias!!!!!!
Saludos, Roberto...

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar

Continue the discussion