Abrir pagina web con navegadores (Chrome, Mozilla, Explorer) desde Form - VFP

Saludos. En esta ocasion presentaremos como escribir una direccion web en un control text de un formulario y abrir dicha direccion con los navegadores de Chrome, Mozilla e InternetExplorer.

Vamos a suponer que tenemos un formulario que contiene:

- 1 control Text (Text1) para introducir la direccion de la pagina web.
- 3 botones de comando. Cada boton corresponde a un navegador. Establecemos la propiedad caption de cada uno para hacer referencia:
     ~ Command1.Caption = "Mozilla Firefox"
     ~ Command2.Caption = "Google Chrome"
     ~ Command3.Caption = "Internet Explorer"

Va asi: 

1. En el evento click del Command1 (Navegador Mozilla) escribimos un codigo como este: 

DECLARE INTEGER ShellExecute IN "Shell32.dll" ; 

INTEGER hwnd, ; 

STRING lpVerb, ; 

STRING lpFile, ; 

STRING lpParameters, ; 

STRING lpDirectory, ; 

LONG nShowCmd 

**Abrimos explorador Firefox

=Shellexecute(0,"Open","C:\Program Files (x86)\Mozilla Firefox\firefox.exe",THISFORM.Text1.VALUE,"",0) 

2. En el evento click del Command2 (Navegador Google Chrome) escribimos un codigo como este: 

DECLARE INTEGER ShellExecute IN "Shell32.dll" ; 

INTEGER hwnd, ; 

STRING lpVerb, ; 

STRING lpFile, ; 

STRING lpParameters, ; 

STRING lpDirectory, ; 

LONG nShowCmd 

**Abrimos explorador Chrome

=Shellexecute(0,"Open","C:\Program Files (x86)\Google\Chrome\Application\chrome.exe",THISFORM.Text1.VALUE,"",0) 

3. En el evento click del Command3 (Navegador Internet Explorer) escribimos un codigo como este: 

*Abrimos explorador Explorer

WITH THISFORM

poExplorer = CreateObject("internetexplorer.Application") 

poExplorer.Navigate((THISFORM.Text1.Value), " ")

poExplorer.Visible=.T.

ENDWITH

Guardamos y ejecutamos. :) 

La direccion web debe ser introducida en el control Text1 asi (ejemplo): www.yahoo.com y luego proceder a dar un click sobre el boton que escojamos como navegador para abrir dicha pagina. 

Cabe destacar que en los codigos referentes a Mozilla y Chrome debe copiarse la ubicacion de los ejecutables de cada navegador en el equipo ("firefox.exe" y "chrome.exe"). 

Saludos. Sugerencias y comentarios son siempre bienvenidos para mejorar! 

Un abrazo! Desde Managua, Nicaragua. 

Ravenn! :)