***************************************
** Ken Levy's Notes
** LAFox
** 2014-07-16
***************************************
URLDownloadToFile function
http://msdn.microsoft.com/en-us/library/ie/ms775123(v=vs.85).aspx
 
Using ScriptControl Methods
http://msdn.microsoft.com/en-us/library/aa227637(v=vs.60).aspx
 
 
*x.prg
GetMSFT()
RETURN
 
FUNCTION GetMSFT
    DECLARE long URLDownloadToFile in c:\windows\system32\URLMON.DLL long, string, string, long, long
    URLDownloadToFile(0,"http://finance.yahoo.com/q?s=msft","x.txt",0,0)
    *MODIFY FILE x.txt NOWAIT
    cFile=FILETOSTR("x.txt")
    nAtPos=ATC("time_rtq_ticker",cFile)
    cText=SUBSTR(cFile,nAtPos,100)
    nAtPos=ATC(">",cText,2)
    cText=SUBSTR(cText,nAtPos+1,5)
    WAIT WINDOW cText 
ENDFUNC
 
 
Microsoft WebBrowser ActiveX control sample code:
 
Control.Navigate2(http://finance.yahoo.com/q?s=msft)
 
*BeforeNavigate2:
*** ActiveX Control Event ***
LPARAMETERS pdisp, url, flags, targetframename, postdata, headers, cancel
cURL=URL
ACTIVATE SCREEN
? cURL
IF ATC("apple",cURL)>0
      cancel=.T.
      MESSAGEBOX("You do not have access to Apple news during work hours!")
ENDIF
 
*DownloadComplete event
*** ActiveX Control Event ***
LPARAMETERS pdisp, url
WAIT WINDOW this.document.body.all("yfi_rt_quote_summary").innertext NOWAIT