Did you try oIE.Quit() ?
>How do I close the explorer window ?
>
>I need to close it after read by my application,
>because I am using scan, I many open windows will cause memory problems
>
>I tried oIE.close, and oIE.release but they do not work
>
>
>**********************************************************************
>
>SELECT reembolso
> STORE 0 TO objEntregues
>
>
> SCAN for reembolso.retirou = .F. .AND. reembolso.dev = .F. .AND. reembolso.pg = .F.
>
>PUBLIC lcInnerText
>
>oIE = CreateObject("InternetExplorer.Application")
>#DEFINE READYSTATE_COMPLETE 4
>#DEFINE MAX_TIME 30
>
>local lcInnerText
>local lcIPAdd
>local lnStartedAt
>local lnWaiting
>local lcRetVal
>
>
>
>STORE ALLTRIM(Reg_tipo) + ALLTRIM (REG) + "BR" to obj_num
>
>
>lnStarted = SECONDS()
>
>lcUrl = "http://websro.correios.com.br/sro_bin/txect01$.QueryList?P_LINGUA=001&P_TIPO=001&P_COD_UNI=" + obj_num
>*lcUrl = INPUTBOX("Digite o endereço","Obter conteúdo em texto de uma página web",lcUrl,15000)
>
>oIE.Visible = .T.
>oIE.navigate(lcUrl)
>
>do while oIE.Readystate <> READYSTATE_COMPLETE or lnWaiting >= MAX_TIME
> lnWaiting = Seconds() - lnStarted
>enddo
>
>if lnWaiting < MAX_TIME
> lcInnerText = oIE.Document.Body.InnerText
>else
> lcInnerText="???????????????"+chr(13)+'Timeout'
>endif
>
>*=strtofile(lcInnerText, obj_num + ".txt")
>locate1 = 'ENTREGUE' $ UPPER(lcInnerText)
>
>IF locate1 = .T.
> replace reembolso.retirou WITH .T.
> objEntregues = objEntregues + 1
> ENDIF
>
>
>lcUrl.close
>
>
>
>
>
>RELEASE lcInnerText
>
>
>*RELEASE READYSTATE_COMPLETE
>*RELEASE MAX_TIME
>
>release lcInnerText
>release lcIPAdd
>release lnStartedAt
>release lnWaiting
>release lcRetVal
>
>
>
> ENDSCAN
>
>
> = MESSAGEBOX (STR(objEntregues))
>
>*************************************************************************
If it's not broken, fix it until it is.
My Blog