Cookie

Pierre Gard

13/06/2004 à 20:40

Bon, j'ai trouvé, j'utilise les valeurs de la déclaration

Private Type INTERNET_CACHE_ENTRY_INFO
dwStructSize As Long
lpszSourceUrlName As Long
lpszLocalFileName As Long
CacheEntryType As Long
dwUseCount As Long
dwHitRate As Long
dwSizeLow As Long
dwSizeHigh As Long
LastModifiedTime As FILETIME
ExpireTime As FILETIME
LastAccessTime As FILETIME
LastSyncTime As FILETIME
lpHeaderInfo As Long
dwHeaderInfoSize As Long
lpszFileExtension As Long
dwReserved As Long
dwExemptDelta As Long
'szRestOfData() As Byte
End Type

et j'ai toutes les infos que je cherchais.

Avec mes meilleures salutations
Pierre-André

"Pierre Gard" a écrit dans le message
de news:%

Bonjour,

Je cherche toujours des infos sur les cookies. J'ai trouvé sur AllAPI, la
possibillté de rechercher et d'effacer un cookie avec VB6 mais je ne peux
pas déterminer la validité du cookie. De plus, je ne comprends pas comment
sont nommés les cookies sous Windows XP et 2K.

Je cherche des codes sources de VB pour lister, appeler un cookie et
connaître son contenu et ses propriétés.
De plus, si je vais dans la liste des cookies, je ne suis pas capable avec
la foncfion rechercher un fichier de windows, de le retouver car je ne
comprends pas comment ils s'appellent sous windows réellement.

Merci de vore aide

Avec mes meilleures salutations
Pierre

François Picalausa

13/06/2004 à 21:39

Hello,

Très bon à savoir!
Merci!

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"Pierre Gard" a écrit dans le
message de news:OTLy$

Bon, j'ai trouvé, j'utilise les valeurs de la déclaration

Private Type INTERNET_CACHE_ENTRY_INFO
dwStructSize As Long
lpszSourceUrlName As Long
lpszLocalFileName As Long
CacheEntryType As Long
dwUseCount As Long
dwHitRate As Long
dwSizeLow As Long
dwSizeHigh As Long
LastModifiedTime As FILETIME
ExpireTime As FILETIME
LastAccessTime As FILETIME
LastSyncTime As FILETIME
lpHeaderInfo As Long
dwHeaderInfoSize As Long
lpszFileExtension As Long
dwReserved As Long
dwExemptDelta As Long
'szRestOfData() As Byte
End Type

et j'ai toutes les infos que je cherchais.

Avec mes meilleures salutations
Pierre-André

"Pierre Gard" a écrit dans le
message de news:%
Bonjour,

Je cherche toujours des infos sur les cookies. J'ai trouvé sur
AllAPI, la possibillté de rechercher et d'effacer un cookie avec VB6
mais je ne peux pas déterminer la validité du cookie. De plus, je ne
comprends pas comment sont nommés les cookies sous Windows XP et 2K.

Je cherche des codes sources de VB pour lister, appeler un cookie et
connaître son contenu et ses propriétés.
De plus, si je vais dans la liste des cookies, je ne suis pas
capable avec la foncfion rechercher un fichier de windows, de le
retouver car je ne comprends pas comment ils s'appellent sous
windows réellement.

Merci de vore aide

Avec mes meilleures salutations
Pierre

ng

13/06/2004 à 21:58

Salut,

En effet, je viens de voir un exemple dans l'API-Guide pour ceux que cela
interesse :

'This project requries a form with a listbox (List1) on it
'and a class module (MemoryBlock)

'In the form:
Option Explicit
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type INTERNET_CACHE_ENTRY_INFO
dwStructSize As Long
lpszSourceUrlName As Long
lpszLocalFileName As Long
CacheEntryType As Long
dwUseCount As Long
dwHitRate As Long
dwSizeLow As Long
dwSizeHigh As Long
LastModifiedTime As FILETIME
ExpireTime As FILETIME
LastAccessTime As FILETIME
LastSyncTime As FILETIME
lpHeaderInfo As Long
dwHeaderInfoSize As Long
lpszFileExtension As Long
dwReserved As Long
dwExemptDelta As Long
'szRestOfData() As Byte
End Type
Private Declare Function FindFirstUrlCacheEntry Lib "wininet.dll" Alias
"FindFirstUrlCacheEntryA" (ByVal lpszUrlSearchPattern As String, ByVal
lpFirstCacheEntryInfo As Long, ByRef lpdwFirstCacheEntryInfoBufferSize As
Long) As Long
Private Declare Function FindNextUrlCacheEntry Lib "wininet.dll" Alias
"FindNextUrlCacheEntryA" (ByVal hEnumHandle As Long, ByVal
lpNextCacheEntryInfo As Long, ByRef lpdwNextCacheEntryInfoBufferSize As
Long) As Long
Private Declare Sub FindCloseUrlCache Lib "wininet.dll" (ByVal hEnumHandle
As Long)
Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias
"DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
Private Sub Form_Load()
'KPD-Team 2001
'URL: http://www.allapi.net/
'E-Mail:
Dim ICEI As INTERNET_CACHE_ENTRY_INFO, Ret As Long
Dim hEntry As Long, Msg As VbMsgBoxResult
Dim MemBlock As New MemoryBlock
'Start enumerating the visited URLs
FindFirstUrlCacheEntry vbNullString, ByVal 0&, Ret
'If Ret is larger than 0...
If Ret > 0 Then
'... allocate a buffer
MemBlock.Allocate Ret
'call FindFirstUrlCacheEntry
hEntry = FindFirstUrlCacheEntry(vbNullString, MemBlock.Handle, Ret)
'copy from the buffer to the INTERNET_CACHE_ENTRY_INFO structure
MemBlock.ReadFrom VarPtr(ICEI), LenB(ICEI)
'Add the lpszSourceUrlName string to the listbox
If ICEI.lpszSourceUrlName <> 0 Then List1.AddItem
MemBlock.ExtractString(ICEI.lpszSourceUrlName, Ret)
End If
'Loop until there are no more items
Do While hEntry <> 0
'Initialize Ret
Ret = 0
'Find out the required size for the next item
FindNextUrlCacheEntry hEntry, ByVal 0&, Ret
'If we need to allocate a buffer...
If Ret > 0 Then
'... do it
MemBlock.Allocate Ret
'and retrieve the next item
FindNextUrlCacheEntry hEntry, MemBlock.Handle, Ret
'copy from the buffer to the INTERNET_CACHE_ENTRY_INFO structure
MemBlock.ReadFrom VarPtr(ICEI), LenB(ICEI)
'Add the lpszSourceUrlName string to the listbox
If ICEI.lpszSourceUrlName <> 0 Then List1.AddItem
MemBlock.ExtractString(ICEI.lpszSourceUrlName, Ret)
'Else = no more items
Else
Exit Do
End If
Loop
'Close enumeration handle
FindCloseUrlCache hEntry
'Delete our memory block
Set MemBlock = Nothing
Msg = MsgBox("Do you wish to delete the Internet Explorer cache?",
vbYesNo + vbDefaultButton2 + vbQuestion)
If Msg = vbYes Then
'loop trough the entries...
For Ret = 0 To List1.ListCount - 1
'...and delete them
DeleteUrlCacheEntry List1.List(Ret)
Next Ret
MsgBox "Cache deleted..."
End If
End Sub

'In the class module 'MemoryBlock':
Option Explicit
Private Const MEM_DECOMMIT = &H4000
Private Const MEM_RELEASE = &H8000
Private Const MEM_COMMIT = &H1000
Private Const MEM_RESERVE = &H2000
Private Const MEM_RESET = &H80000
Private Const MEM_TOP_DOWN = &H100000
Private Const PAGE_READONLY = &H2
Private Const PAGE_READWRITE = &H4
Private Const PAGE_EXECUTE = &H10
Private Const PAGE_EXECUTE_READ = &H20
Private Const PAGE_EXECUTE_READWRITE = &H40
Private Const PAGE_GUARD = &H100
Private Const PAGE_NOACCESS = &H1
Private Const PAGE_NOCACHE = &H200
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal
pDest As Long, ByVal pSrc As Long, ByVal ByteLen As Long)
Private Declare Function VirtualAlloc Lib "kernel32" (ByVal lpAddress As
Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect
As Long) As Long
Private Declare Function VirtualFree Lib "kernel32" (ByVal lpAddress As
Long, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long
Private Declare Function VirtualLock Lib "kernel32" (ByVal lpAddress As
Long, ByVal dwSize As Long) As Long
Private Declare Function VirtualUnlock Lib "kernel32" (ByVal lpAddress As
Long, ByVal dwSize As Long) As Long
Private Declare Function IsBadReadPtr Lib "kernel32" (ByVal lp As Long,
ByVal ucb As Long) As Long
Private Declare Function IsBadWritePtr Lib "kernel32" (ByVal lp As Long,
ByVal ucb As Long) As Long
Private Declare Function IsBadStringPtr Lib "kernel32" Alias
"IsBadStringPtrA" (ByVal lpsz As Long, ByVal ucchMax As Long) As Long
Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal
lpStringDest As String, ByVal lpStringSrc As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal
lpString As Long) As Long
Private m_VirtualMem As Long, lLength As Long
'Returns the handle of the allocated memory
Public Property Get Handle() As Long
Handle = m_VirtualMem
End Property
'Allocates a specific amount of bytes in the Virtual Memory
Public Sub Allocate(lCount As Long)
ReleaseMemory
m_VirtualMem = VirtualAlloc(ByVal 0&, lCount, MEM_COMMIT,
PAGE_EXECUTE_READWRITE)
VirtualLock m_VirtualMem, lCount
End Sub
'Reads from the allocated memory and writes it to a specified pointer
Public Sub ReadFrom(hWritePointer As Long, lLength As Long)
If IsBadWritePtr(hWritePointer, lLength) = 0 And IsBadReadPtr(Handle,
lLength) = 0 Then
CopyMemory hWritePointer, Handle, lLength
End If
End Sub
'Writes to the allocated memory and reads it from a specified pointer
Public Sub WriteTo(hReadPointer As Long, lLength As Long)
If IsBadReadPtr(hReadPointer, lLength) = 0 And IsBadWritePtr(Handle,
lLength) = 0 Then
CopyMemory Handle, hReadPointer, lLength
End If
End Sub
'Extracts a string from the allocated memory
Public Function ExtractString(hStartPointer As Long, lMax As Long) As String
Dim Length As Long
If IsBadStringPtr(hStartPointer, lMax) = 0 Then
ExtractString = Space(lMax)
lstrcpy ExtractString, hStartPointer
Length = lstrlen(hStartPointer)
If Length >= 0 Then ExtractString = Left$(ExtractString, Length)
End If
End Function
'Release the allocated memory
Public Sub ReleaseMemory()
If m_VirtualMem <> 0 Then
VirtualUnlock m_VirtualMem, lLength
VirtualFree m_VirtualMem, lLength, MEM_DECOMMIT
VirtualFree m_VirtualMem, 0, MEM_RELEASE
m_VirtualMem = 0
End If
End Sub
Private Sub Class_Terminate()
ReleaseMemory
End Sub

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/

François Picalausa a écrit :

Hello,

Très bon à savoir!
Merci!

"Pierre Gard" a écrit dans le
message de news:OTLy$
Bon, j'ai trouvé, j'utilise les valeurs de la déclaration

Private Type INTERNET_CACHE_ENTRY_INFO
dwStructSize As Long
lpszSourceUrlName As Long
lpszLocalFileName As Long
CacheEntryType As Long
dwUseCount As Long
dwHitRate As Long
dwSizeLow As Long
dwSizeHigh As Long
LastModifiedTime As FILETIME
ExpireTime As FILETIME
LastAccessTime As FILETIME
LastSyncTime As FILETIME
lpHeaderInfo As Long
dwHeaderInfoSize As Long
lpszFileExtension As Long
dwReserved As Long
dwExemptDelta As Long
'szRestOfData() As Byte
End Type

et j'ai toutes les infos que je cherchais.

Avec mes meilleures salutations
Pierre-André

"Pierre Gard" a écrit dans le
message de news:%
Bonjour,

Je cherche toujours des infos sur les cookies. J'ai trouvé sur
AllAPI, la possibillté de rechercher et d'effacer un cookie avec VB6
mais je ne peux pas déterminer la validité du cookie. De plus, je ne
comprends pas comment sont nommés les cookies sous Windows XP et 2K.

Je cherche des codes sources de VB pour lister, appeler un cookie et
connaître son contenu et ses propriétés.
De plus, si je vais dans la liste des cookies, je ne suis pas
capable avec la foncfion rechercher un fichier de windows, de le
retouver car je ne comprends pas comment ils s'appellent sous
windows réellement.

Merci de vore aide

Avec mes meilleures salutations
Pierre

Salut,

En effet, je viens de voir un exemple dans l'API-Guide pour ceux que cela
interesse :

'This project requries a form with a listbox (List1) on it
'and a class module (MemoryBlock)

'In the form:
Option Explicit
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type INTERNET_CACHE_ENTRY_INFO
dwStructSize As Long
lpszSourceUrlName As Long
lpszLocalFileName As Long
CacheEntryType As Long
dwUseCount As Long
dwHitRate As Long
dwSizeLow As Long
dwSizeHigh As Long
LastModifiedTime As FILETIME
ExpireTime As FILETIME
LastAccessTime As FILETIME
LastSyncTime As FILETIME
lpHeaderInfo As Long
dwHeaderInfoSize As Long
lpszFileExtension As Long
dwReserved As Long
dwExemptDelta As Long
'szRestOfData() As Byte
End Type
Private Declare Function FindFirstUrlCacheEntry Lib "wininet.dll" Alias
"FindFirstUrlCacheEntryA" (ByVal lpszUrlSearchPattern As String, ByVal
lpFirstCacheEntryInfo As Long, ByRef lpdwFirstCacheEntryInfoBufferSize As
Long) As Long
Private Declare Function FindNextUrlCacheEntry Lib "wininet.dll" Alias
"FindNextUrlCacheEntryA" (ByVal hEnumHandle As Long, ByVal
lpNextCacheEntryInfo As Long, ByRef lpdwNextCacheEntryInfoBufferSize As
Long) As Long
Private Declare Sub FindCloseUrlCache Lib "wininet.dll" (ByVal hEnumHandle
As Long)
Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias
"DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
Private Sub Form_Load()
'KPD-Team 2001
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim ICEI As INTERNET_CACHE_ENTRY_INFO, Ret As Long
Dim hEntry As Long, Msg As VbMsgBoxResult
Dim MemBlock As New MemoryBlock
'Start enumerating the visited URLs
FindFirstUrlCacheEntry vbNullString, ByVal 0&, Ret
'If Ret is larger than 0...
If Ret > 0 Then
'... allocate a buffer
MemBlock.Allocate Ret
'call FindFirstUrlCacheEntry
hEntry = FindFirstUrlCacheEntry(vbNullString, MemBlock.Handle, Ret)
'copy from the buffer to the INTERNET_CACHE_ENTRY_INFO structure
MemBlock.ReadFrom VarPtr(ICEI), LenB(ICEI)
'Add the lpszSourceUrlName string to the listbox
If ICEI.lpszSourceUrlName <> 0 Then List1.AddItem
MemBlock.ExtractString(ICEI.lpszSourceUrlName, Ret)
End If
'Loop until there are no more items
Do While hEntry <> 0
'Initialize Ret
Ret = 0
'Find out the required size for the next item
FindNextUrlCacheEntry hEntry, ByVal 0&, Ret
'If we need to allocate a buffer...
If Ret > 0 Then
'... do it
MemBlock.Allocate Ret
'and retrieve the next item
FindNextUrlCacheEntry hEntry, MemBlock.Handle, Ret
'copy from the buffer to the INTERNET_CACHE_ENTRY_INFO structure
MemBlock.ReadFrom VarPtr(ICEI), LenB(ICEI)
'Add the lpszSourceUrlName string to the listbox
If ICEI.lpszSourceUrlName <> 0 Then List1.AddItem
MemBlock.ExtractString(ICEI.lpszSourceUrlName, Ret)
'Else = no more items
Else
Exit Do
End If
Loop
'Close enumeration handle
FindCloseUrlCache hEntry
'Delete our memory block
Set MemBlock = Nothing
Msg = MsgBox("Do you wish to delete the Internet Explorer cache?",
vbYesNo + vbDefaultButton2 + vbQuestion)
If Msg = vbYes Then
'loop trough the entries...
For Ret = 0 To List1.ListCount - 1
'...and delete them
DeleteUrlCacheEntry List1.List(Ret)
Next Ret
MsgBox "Cache deleted..."
End If
End Sub

'In the class module 'MemoryBlock':
Option Explicit
Private Const MEM_DECOMMIT = &H4000
Private Const MEM_RELEASE = &H8000
Private Const MEM_COMMIT = &H1000
Private Const MEM_RESERVE = &H2000
Private Const MEM_RESET = &H80000
Private Const MEM_TOP_DOWN = &H100000
Private Const PAGE_READONLY = &H2
Private Const PAGE_READWRITE = &H4
Private Const PAGE_EXECUTE = &H10
Private Const PAGE_EXECUTE_READ = &H20
Private Const PAGE_EXECUTE_READWRITE = &H40
Private Const PAGE_GUARD = &H100
Private Const PAGE_NOACCESS = &H1
Private Const PAGE_NOCACHE = &H200
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal
pDest As Long, ByVal pSrc As Long, ByVal ByteLen As Long)
Private Declare Function VirtualAlloc Lib "kernel32" (ByVal lpAddress As
Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect
As Long) As Long
Private Declare Function VirtualFree Lib "kernel32" (ByVal lpAddress As
Long, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long
Private Declare Function VirtualLock Lib "kernel32" (ByVal lpAddress As
Long, ByVal dwSize As Long) As Long
Private Declare Function VirtualUnlock Lib "kernel32" (ByVal lpAddress As
Long, ByVal dwSize As Long) As Long
Private Declare Function IsBadReadPtr Lib "kernel32" (ByVal lp As Long,
ByVal ucb As Long) As Long
Private Declare Function IsBadWritePtr Lib "kernel32" (ByVal lp As Long,
ByVal ucb As Long) As Long
Private Declare Function IsBadStringPtr Lib "kernel32" Alias
"IsBadStringPtrA" (ByVal lpsz As Long, ByVal ucchMax As Long) As Long
Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal
lpStringDest As String, ByVal lpStringSrc As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal
lpString As Long) As Long
Private m_VirtualMem As Long, lLength As Long
'Returns the handle of the allocated memory
Public Property Get Handle() As Long
Handle = m_VirtualMem
End Property
'Allocates a specific amount of bytes in the Virtual Memory
Public Sub Allocate(lCount As Long)
ReleaseMemory
m_VirtualMem = VirtualAlloc(ByVal 0&, lCount, MEM_COMMIT,
PAGE_EXECUTE_READWRITE)
VirtualLock m_VirtualMem, lCount
End Sub
'Reads from the allocated memory and writes it to a specified pointer
Public Sub ReadFrom(hWritePointer As Long, lLength As Long)
If IsBadWritePtr(hWritePointer, lLength) = 0 And IsBadReadPtr(Handle,
lLength) = 0 Then
CopyMemory hWritePointer, Handle, lLength
End If
End Sub
'Writes to the allocated memory and reads it from a specified pointer
Public Sub WriteTo(hReadPointer As Long, lLength As Long)
If IsBadReadPtr(hReadPointer, lLength) = 0 And IsBadWritePtr(Handle,
lLength) = 0 Then
CopyMemory Handle, hReadPointer, lLength
End If
End Sub
'Extracts a string from the allocated memory
Public Function ExtractString(hStartPointer As Long, lMax As Long) As String
Dim Length As Long
If IsBadStringPtr(hStartPointer, lMax) = 0 Then
ExtractString = Space(lMax)
lstrcpy ExtractString, hStartPointer
Length = lstrlen(hStartPointer)
If Length >= 0 Then ExtractString = Left$(ExtractString, Length)
End If
End Function
'Release the allocated memory
Public Sub ReleaseMemory()
If m_VirtualMem <> 0 Then
VirtualUnlock m_VirtualMem, lLength
VirtualFree m_VirtualMem, lLength, MEM_DECOMMIT
VirtualFree m_VirtualMem, 0, MEM_RELEASE
m_VirtualMem = 0
End If
End Sub
Private Sub Class_Terminate()
ReleaseMemory
End Sub

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/

François Picalausa <fpicalausa@chez.com> a écrit :

Hello,

Très bon à savoir!
Merci!

"Pierre Gard" <pharmasoftsupprimerceci@tvs2net.ch> a écrit dans le
message de news:OTLy$ZXUEHA.1048@tk2msftngp13.phx.gbl

Bon, j'ai trouvé, j'utilise les valeurs de la déclaration

Private Type INTERNET_CACHE_ENTRY_INFO
dwStructSize As Long
lpszSourceUrlName As Long
lpszLocalFileName As Long
CacheEntryType As Long
dwUseCount As Long
dwHitRate As Long
dwSizeLow As Long
dwSizeHigh As Long
LastModifiedTime As FILETIME
ExpireTime As FILETIME
LastAccessTime As FILETIME
LastSyncTime As FILETIME
lpHeaderInfo As Long
dwHeaderInfoSize As Long
lpszFileExtension As Long
dwReserved As Long
dwExemptDelta As Long
'szRestOfData() As Byte
End Type

et j'ai toutes les infos que je cherchais.

Avec mes meilleures salutations
Pierre-André

"Pierre Gard" <pharmasoftsupprimerceci@tvs2net.ch> a écrit dans le
message de news:%23VDFbTUUEHA.3476@tk2msftngp13.phx.gbl...

Bonjour,

Je cherche toujours des infos sur les cookies. J'ai trouvé sur
AllAPI, la possibillté de rechercher et d'effacer un cookie avec VB6
mais je ne peux pas déterminer la validité du cookie. De plus, je ne
comprends pas comment sont nommés les cookies sous Windows XP et 2K.

Je cherche des codes sources de VB pour lister, appeler un cookie et
connaître son contenu et ses propriétés.
De plus, si je vais dans la liste des cookies, je ne suis pas
capable avec la foncfion rechercher un fichier de windows, de le
retouver car je ne comprends pas comment ils s'appellent sous
windows réellement.

Merci de vore aide

Avec mes meilleures salutations
Pierre

Vous avez filtré cet utilisateur ! Consultez son message

Salut,

En effet, je viens de voir un exemple dans l'API-Guide pour ceux que cela
interesse :

'This project requries a form with a listbox (List1) on it
'and a class module (MemoryBlock)

'In the form:
Option Explicit
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type INTERNET_CACHE_ENTRY_INFO
dwStructSize As Long
lpszSourceUrlName As Long
lpszLocalFileName As Long
CacheEntryType As Long
dwUseCount As Long
dwHitRate As Long
dwSizeLow As Long
dwSizeHigh As Long
LastModifiedTime As FILETIME
ExpireTime As FILETIME
LastAccessTime As FILETIME
LastSyncTime As FILETIME
lpHeaderInfo As Long
dwHeaderInfoSize As Long
lpszFileExtension As Long
dwReserved As Long
dwExemptDelta As Long
'szRestOfData() As Byte
End Type
Private Declare Function FindFirstUrlCacheEntry Lib "wininet.dll" Alias
"FindFirstUrlCacheEntryA" (ByVal lpszUrlSearchPattern As String, ByVal
lpFirstCacheEntryInfo As Long, ByRef lpdwFirstCacheEntryInfoBufferSize As
Long) As Long
Private Declare Function FindNextUrlCacheEntry Lib "wininet.dll" Alias
"FindNextUrlCacheEntryA" (ByVal hEnumHandle As Long, ByVal
lpNextCacheEntryInfo As Long, ByRef lpdwNextCacheEntryInfoBufferSize As
Long) As Long
Private Declare Sub FindCloseUrlCache Lib "wininet.dll" (ByVal hEnumHandle
As Long)
Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias
"DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
Private Sub Form_Load()
'KPD-Team 2001
'URL: http://www.allapi.net/
'E-Mail:
Dim ICEI As INTERNET_CACHE_ENTRY_INFO, Ret As Long
Dim hEntry As Long, Msg As VbMsgBoxResult
Dim MemBlock As New MemoryBlock
'Start enumerating the visited URLs
FindFirstUrlCacheEntry vbNullString, ByVal 0&, Ret
'If Ret is larger than 0...
If Ret > 0 Then
'... allocate a buffer
MemBlock.Allocate Ret
'call FindFirstUrlCacheEntry
hEntry = FindFirstUrlCacheEntry(vbNullString, MemBlock.Handle, Ret)
'copy from the buffer to the INTERNET_CACHE_ENTRY_INFO structure
MemBlock.ReadFrom VarPtr(ICEI), LenB(ICEI)
'Add the lpszSourceUrlName string to the listbox
If ICEI.lpszSourceUrlName <> 0 Then List1.AddItem
MemBlock.ExtractString(ICEI.lpszSourceUrlName, Ret)
End If
'Loop until there are no more items
Do While hEntry <> 0
'Initialize Ret
Ret = 0
'Find out the required size for the next item
FindNextUrlCacheEntry hEntry, ByVal 0&, Ret
'If we need to allocate a buffer...
If Ret > 0 Then
'... do it
MemBlock.Allocate Ret
'and retrieve the next item
FindNextUrlCacheEntry hEntry, MemBlock.Handle, Ret
'copy from the buffer to the INTERNET_CACHE_ENTRY_INFO structure
MemBlock.ReadFrom VarPtr(ICEI), LenB(ICEI)
'Add the lpszSourceUrlName string to the listbox
If ICEI.lpszSourceUrlName <> 0 Then List1.AddItem
MemBlock.ExtractString(ICEI.lpszSourceUrlName, Ret)
'Else = no more items
Else
Exit Do
End If
Loop
'Close enumeration handle
FindCloseUrlCache hEntry
'Delete our memory block
Set MemBlock = Nothing
Msg = MsgBox("Do you wish to delete the Internet Explorer cache?",
vbYesNo + vbDefaultButton2 + vbQuestion)
If Msg = vbYes Then
'loop trough the entries...
For Ret = 0 To List1.ListCount - 1
'...and delete them
DeleteUrlCacheEntry List1.List(Ret)
Next Ret
MsgBox "Cache deleted..."
End If
End Sub

'In the class module 'MemoryBlock':
Option Explicit
Private Const MEM_DECOMMIT = &H4000
Private Const MEM_RELEASE = &H8000
Private Const MEM_COMMIT = &H1000
Private Const MEM_RESERVE = &H2000
Private Const MEM_RESET = &H80000
Private Const MEM_TOP_DOWN = &H100000
Private Const PAGE_READONLY = &H2
Private Const PAGE_READWRITE = &H4
Private Const PAGE_EXECUTE = &H10
Private Const PAGE_EXECUTE_READ = &H20
Private Const PAGE_EXECUTE_READWRITE = &H40
Private Const PAGE_GUARD = &H100
Private Const PAGE_NOACCESS = &H1
Private Const PAGE_NOCACHE = &H200
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal
pDest As Long, ByVal pSrc As Long, ByVal ByteLen As Long)
Private Declare Function VirtualAlloc Lib "kernel32" (ByVal lpAddress As
Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect
As Long) As Long
Private Declare Function VirtualFree Lib "kernel32" (ByVal lpAddress As
Long, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long
Private Declare Function VirtualLock Lib "kernel32" (ByVal lpAddress As
Long, ByVal dwSize As Long) As Long
Private Declare Function VirtualUnlock Lib "kernel32" (ByVal lpAddress As
Long, ByVal dwSize As Long) As Long
Private Declare Function IsBadReadPtr Lib "kernel32" (ByVal lp As Long,
ByVal ucb As Long) As Long
Private Declare Function IsBadWritePtr Lib "kernel32" (ByVal lp As Long,
ByVal ucb As Long) As Long
Private Declare Function IsBadStringPtr Lib "kernel32" Alias
"IsBadStringPtrA" (ByVal lpsz As Long, ByVal ucchMax As Long) As Long
Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal
lpStringDest As String, ByVal lpStringSrc As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal
lpString As Long) As Long
Private m_VirtualMem As Long, lLength As Long
'Returns the handle of the allocated memory
Public Property Get Handle() As Long
Handle = m_VirtualMem
End Property
'Allocates a specific amount of bytes in the Virtual Memory
Public Sub Allocate(lCount As Long)
ReleaseMemory
m_VirtualMem = VirtualAlloc(ByVal 0&, lCount, MEM_COMMIT,
PAGE_EXECUTE_READWRITE)
VirtualLock m_VirtualMem, lCount
End Sub
'Reads from the allocated memory and writes it to a specified pointer
Public Sub ReadFrom(hWritePointer As Long, lLength As Long)
If IsBadWritePtr(hWritePointer, lLength) = 0 And IsBadReadPtr(Handle,
lLength) = 0 Then
CopyMemory hWritePointer, Handle, lLength
End If
End Sub
'Writes to the allocated memory and reads it from a specified pointer
Public Sub WriteTo(hReadPointer As Long, lLength As Long)
If IsBadReadPtr(hReadPointer, lLength) = 0 And IsBadWritePtr(Handle,
lLength) = 0 Then
CopyMemory Handle, hReadPointer, lLength
End If
End Sub
'Extracts a string from the allocated memory
Public Function ExtractString(hStartPointer As Long, lMax As Long) As String
Dim Length As Long
If IsBadStringPtr(hStartPointer, lMax) = 0 Then
ExtractString = Space(lMax)
lstrcpy ExtractString, hStartPointer
Length = lstrlen(hStartPointer)
If Length >= 0 Then ExtractString = Left$(ExtractString, Length)
End If
End Function
'Release the allocated memory
Public Sub ReleaseMemory()
If m_VirtualMem <> 0 Then
VirtualUnlock m_VirtualMem, lLength
VirtualFree m_VirtualMem, lLength, MEM_DECOMMIT
VirtualFree m_VirtualMem, 0, MEM_RELEASE
m_VirtualMem = 0
End If
End Sub
Private Sub Class_Terminate()
ReleaseMemory
End Sub

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/

François Picalausa a écrit :

Hello,

Très bon à savoir!
Merci!

"Pierre Gard" a écrit dans le
message de news:OTLy$
Bon, j'ai trouvé, j'utilise les valeurs de la déclaration

Private Type INTERNET_CACHE_ENTRY_INFO
dwStructSize As Long
lpszSourceUrlName As Long
lpszLocalFileName As Long
CacheEntryType As Long
dwUseCount As Long
dwHitRate As Long
dwSizeLow As Long
dwSizeHigh As Long
LastModifiedTime As FILETIME
ExpireTime As FILETIME
LastAccessTime As FILETIME
LastSyncTime As FILETIME
lpHeaderInfo As Long
dwHeaderInfoSize As Long
lpszFileExtension As Long
dwReserved As Long
dwExemptDelta As Long
'szRestOfData() As Byte
End Type

et j'ai toutes les infos que je cherchais.

Avec mes meilleures salutations
Pierre-André

"Pierre Gard" a écrit dans le
message de news:%
Bonjour,

Je cherche toujours des infos sur les cookies. J'ai trouvé sur
AllAPI, la possibillté de rechercher et d'effacer un cookie avec VB6
mais je ne peux pas déterminer la validité du cookie. De plus, je ne
comprends pas comment sont nommés les cookies sous Windows XP et 2K.

Je cherche des codes sources de VB pour lister, appeler un cookie et
connaître son contenu et ses propriétés.
De plus, si je vais dans la liste des cookies, je ne suis pas
capable avec la foncfion rechercher un fichier de windows, de le
retouver car je ne comprends pas comment ils s'appellent sous
windows réellement.

Merci de vore aide

Avec mes meilleures salutations
Pierre

Cookie

3 réponses

Veuillez sélectionner un problème