You must add RELEASE lcHTML:

lcHTML=.null.
RELEASE lcHTML && Holds a reference to lox
lox=.null.
RELEASE lox 

You can also rewrite the code and have lox=CREATEOBJECT('internetexplorer.application') before the loop, so that you will always use the same lox. To do this, you must change a few other lines also.


>>>>>>When I am finished running the crawler app I'm working upon, the Taskmaster Processes shows several iexplorer32 sessions still running. What is a good way to prevent that from the app?
>>>>>
>>>>>You may want to release IE instances you started in the program.
>>>>I did that, but ie tabs continue to be created.
>>>
>>>Can you show your exact code and how do you release the IE instance?
>>
>>I use Object.Release. I'll add some comments to the code before I post it.
>
>

>******************************************
>* http://en.wikipedia.org/wiki/The_Wisdom_of_Crowds
>* http://evolvingtrends.wordpress.com/2006/07/09/e-society-p2p-application/
>* Gather information from blogs, comment sites, forums etc
>* Process and determine what the group's postings suggest
>* to process abd determine near future events that MAY occur.
>* Maybe this should be put on codeplex for any UT person to 
>* contribute to the project.
>******************************************
>* NetScrape
>* KUDOS to Tore who supplied the original code
>SET DEFAULT TO C:\scraper
>CLOSE TABLES
>USE srchwrds IN 1 && A table of words that will determins what snippet to collect
>USE URLs IN 2 && A table of URLs of blogs, comment sites, forums etc
>USE results IN 3 && Stores the snippets (about 1000 characters or so)
>SELECT srchwrds
>COUNT TO SearchWord
>SELECT URLs
>COUNT TO URLcount
>FOR Num = 1 TO URLcount
>	GOTO Num
>	GotUrl = location
>	GotUrl = ALLTRIM(GotUrl)
>	lcURL = TRANSFORM(GotUrl)
>	lnTime=1200 && 12 seconds
>	lox=CREATEOBJECT('internetexplorer.application')
>	lox.VISIBLE=.F.
>	lox.NAVIGATE(lcURL)
>	lox.VISIBLE=.F.
>	WAIT 'Navigating!' WINDOW NOWAIT
>	IF !NavComplete(lox,lnTime)
>		??CHR(7)
>		WAIT 'Timeout fail!' WINDOW
>		lox.VISIBLE=.T.
>		RELEASE lox
>		RETURN
>	ENDIF
>	WAIT CLEAR
>	lcHTML=lox.DOCUMENT.body.outertext && or innertext to ignore URLs
>* Find a string inside a string
>	SELECT srchwrds
>	FOR WordNum = 1 TO SearchWord
>		GOTO WordNum
>		Searching = ALLTRIM(words)
>		Searching = TRANSFORM(Searching)
>		SaveMe = ""
>		SaveMe = SUBSTR(lcHTML,ATC(Searching,lcHTML)-300,450) && Get words on either side of the search word.
>*		? SaveMe  && For testing
>		IF LEN(ALLTRIM(SaveMe)) > 1
>			SELECT results
>			APPEND BLANK
>			REPLACE captured WITH DATE()
>			REPLACE usedkey WITH srchwrds.words
>			REPLACE stored WITH SaveMe
>		ENDIF
>		SaveMe = ""
>		SELECT srchwrds
>	NEXT WordNum
>	SELECT URLs
>	RELEASE lox
>NEXT Num
>*****************************************************************************
>FUNCTION NavComplete
>LPARA toIE, tnTimeout
>lnTimeout=IIF( TYPE("tnTimeout")="N",tnTimeout ,60 )
>lnTimeElapsed=0
>lnStartSeconds=SECONDS()
>DO WHILE .T.
>	IF toIE.ReadyState=4 AND !toIE.Busy
>		DO WHILE .T.
>			IF toIE.DOCUMENT.ReadyState="complete"
>				RETURN .T.
>			ENDIF
>			IF (SECONDS()-lnStartSeconds)>lnTimeout
>				RETURN .F.
>			ENDIF
>		ENDDO
>	ENDIF
>	IF (SECONDS()-lnStartSeconds)>lnTimeout
>		RETURN .F.
>	ENDIF
>ENDDO
>ENDFUNC
>