Alternatively to what others already suggested you may try this:
#DEFINE READYSTATE_COMPLETE 4
DECLARE INTEGER FindWindow ;
IN WIN32API ;
STRING cNULL, ;
STRING cWinName
DECLARE INTEGER FindWindow IN WIN32API ;
STRING lpclassname, STRING lpCaption
Declare Long SetActiveWindow in WIN32API Long hwnd
oShell = CreateObject("WScript.Shell")
oIE = CreateObject("InternetExplorer.Application")
oIE.Navigate("
http://www.microsoft.com")
oie.Visible=.t.
do while oIE.Readystate <> READYSTATE_COMPLETE
wait wind time 1.0 "Connecting to web site...."
enddo
if oShell.AppActivate(oIE.Document.title)
oShell.SendKeys("%Vc")
WAIT WINDOW TIMEOUT 2.0 ""
lhWnd = FindWindow("Notepad", 0)
if lhWnd#0 AND SetActiveWindow(lhWnd)=0
oShell.SendKeys("^+{END}^C")
lchtml=_cliptext
WAIT WINDOW TIMEOUT 2.0 ""
oShell.SendKeys("%Fx")
endif
else
* what ever
ENDIF
?lchtml
ERASE c:\txt.txt
=STRTOFILE(_cliptext,"c:\txt.txt")
oIE.Quit
oie=.null.
oShell=.null.
CLEAR DLLS
>>?oie.Document.Body.InnerHTML
>
>That doesn't return the correct result either.