FoxPro/Visual FoxPro - Creando tu propio navegador

no te gusta el Internet explorer or Netscape crea tu propio navegador solo con algunas lineas de codigo
PUBLIC ox
ox = CreateObject("MyInternetExplorer")
ox.visible = .t.
ox.oWeb.navigate(GETENV("computername")) && insert your URL here

DEFINE CLASS MyInternetExplorer AS form
ADD OBJECT oWeb AS CWeb
caption = "My Internet Explorer"
PROCEDURE init
THISFORM.LEFT = 0
THISFORM.WIDTH = SYSMETRIC(1) * 3/4
THISFORM.height = SYSMETRIC(2)*3/4
THIS.Resize
PROCEDURE resize
This.oWeb.resize
ENDDEFINE

DEFINE CLASS CWeb AS olecontrol
oleclass = "Shell.Explorer.1"
PROCEDURE Resize
THIS.Width = THISFORM.Width - 10
THIS.Height = THISFORM.Height - 10
PROCEDURE Refresh
nodefault
ENDDEFINE

Oye entonces solo faltaria la barra para escribir la pagina a la que deseo acceder, cierto??

Un Saludo Mexican

"Dia de la Raza"

asi es compañero