Odio usar objets pero ya lo ternia armado y era lo que habia, el problema es que yo necesito descargar el codigo para parsear cada 5 minutos y esta porqueria me guarda en CACHE la informacion, alguie tiene idea como descargar el cache??? o como resetear las variables?
Private Function GetDownloadFile(strURL As String, Optional ByRef blnRet As Boolean) As String
On Error Resume Next
Err.Clear
If objXML Is Nothing Then
Set objXML = CreateObject("Microsoft.XMLHTTP")
End If
objXML.Open "GET", strURL, True
objXML.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 5.1) SKL/" & App.Major & "." & App.Minor & "." & App.Revision
objXML.SetRequestHeader "Accept-Language", "es-ar,es;q=0.8,en-us;q=0.5,en;q=0.3"
objXML.SetRequestHeader "Accept-Charset", "ISO-8859-1,utf-8;q=0.7,*;q=0.7"
objXML.sEnd
WaitTilDown 'wait til download
objXML.getAllResponseHeaders
GetDownloadFile = objXML.responseText
blnRet = Not (Err)
End Function
