Attribute VB_Name = "modDHTML"
'PutProperty: almacena información en un cookie llamando a esta función.
' Los datos necesarios son la propiedad nombrada
' y el valor de la propiedad que desea almacenar.
'
' Los datos opcionales son:
' expires : especifica una fecha que define el tiempo de vida válido
' de la propiedad. Cuando haya caducado, la propiedad
' dejará de estar almacenada ni se podrá utilizar.
Public Sub PutProperty(objDocument As HTMLDocument, strName As String, vntValue As Variant, Optional Expires As Date)
objDocument.cookie = strName & "=" & CStr(vntValue) & _
IIf(CLng(Expires) = 0, "", "; expires=" & Format(CStr(Expires), "ddd, dd-mmm-aa hh:mm:ss") & " GMT") ' & _
End Sub
'GetProperty: obtiene el valor de una propiedad llamando a esta función.
' Los datos necesarios son la propiedad nombrada y el valor
' de retorno de la función es el valor actual de la propidad.
' Si no se puede encontrar la propiedad o ha caducado,
' el valor de retorno será una cadena vacía.
'
Public Function GetProperty(objDocument As HTMLDocument, strName As String) As Variant
Dim aryCookies() As String
Dim strCookie As Variant
On Local Error GoTo NextCookie
'Divide el objeto cookie en una matriz de cookies.
aryCookies = Split(objDocument.cookie, ";")
For Each strCookie In aryCookies
If Trim(VBA.Left(strCookie, InStr(strCookie, "=") - 1)) = Trim(strName) Then
GetProperty = Trim(Mid(strCookie, InStr(strCookie, "=") + 1))
Exit Function
End If
NextCookie:
Err = 0
Next strCookie
End Function