Opening a Web Page

[ChrisAgius]

Any Idea on how to open a web page in a default browser. or internet explorer

 

[jonscott8]

Hi Chris,

DECLARE INTEGER ShellExecute IN SHELL32 INTEGER hwnd, STRING cOP, STRING cFile,;
STRING cParams, STRING cStartDir, INTEGER nShowCmd
DECLARE INTEGER GetDesktopWindow IN User32

lnWhnd = GetDesktopWindow()
lnResult = ShellExecute(lnWhnd, 'OPEN', '

http://WWW.TEK-TIPS.COM',

'', '', 5) Jon Hawkins
jonscott8@yahoo.com

The World Is Headed For Mutiny,
When All We Want Is Unity. - Creed

 

[jonscott8]

APPENDUM

IF lnResult < 0x32
MESSAGEBOX('Unable to Open Web Page',0,'Error')
ENDIF Jon Hawkins
jonscott8@yahoo.com

The World Is Headed For Mutiny,
When All We Want Is Unity. - Creed

 

[foxdev]

Wouldn't COM be the easier way to do this?

oWeb = CreateObject("InternetExplorer.Application")
oWeb.Visible = .T.
oWeb.Navigate("[URL unfurl="true"]www.foxdev.com")[/URL]

Robert Bradley

http://www.foxdev.com/

 

[Diederik]

The advantage of using the windows shell is that you don't have to worry about the installed browser (Internet Explorer or Netscape)
Diederik Vermeeren
verm1864@exact.nl

 

[foxdev]

True...I entirely agree, but:

* the OP mentioned IE as an acceptable choice

* for better or worse, just about everyone running Windows has IE installed (though not necessarily the default), thanks to A) Microsoft's efforts to make our Windows experience better, or B) Microsoft's attempt to affect the U.S. Electoral College voting.

Robert Bradley

http://www.foxdev.com/

 

[jonscott8]

Wouldn't COM be the easier way to do this?

Of course it would. But as Diederik mentioned, it's best to let the OS delegate what browser to use, in the event IE isnt installed.

FWIW, I thought of posting the following:

WshShell = CreateObject(&quot;WScript.Shell&quot
WshShell.Run(&quot;Iexplore.exe

http://WWW.TEK-TIPS.COM&quot;,1)

But that not only creates a dependancy on IE, but WSH as well. So in this case, I felt the API was more reliable.

oWeb.Navigate(&quot;www.foxdev.com&quot

Yet another shameless plug. :-V Jon Hawkins
jonscott8@yahoo.com

The World Is Headed For Mutiny,
When All We Want Is Unity. - Creed