URL dans Internet Explorer

Question

Bonjour, 
j'aimerais savoir comment je pourrais faire pour que, quand je tapes une URL dans un Internet Explorer (ou alors lors d'un click sur un lien), mon prog VB qui tournera en tache de fond intercepte l'adresse du site (pour faire un prog de statistiques des adresses que je visite le plus).
Faut-il que le prog intègre IE en tant que plug-in, ou peut-il être indépendant ?

Bref, y-a-t-il un moyen de faire ca ?

Merci d'avance
Mx

TFlorian · Answer

Bonjour, tu a deux possibilitee: la premiere est d'integree IE dans ton projet et de recuperer les url qui sont envoyee par le prog ... ca c'est symple a recuperer mais il faut que tu redevelope tout un navigateux ce qui n'est pas tres symple surtout avec les fonctionnalisee accrue qu'offre IE aujourd'huit... la seconde possibilite est de fair appel a une API ... en fait c'est a un enssemble d'api ... c'esten fait un exemple (un peut modifier) de chez http://www.allapi.net/ bon : 1) 1form 2) 1 listbox liste1 3) 1 module de classe renommer MemoryBlock ce code dans la form : '-----------------------------------------------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 "Fontion desactivee par TFlorian!!!" '"Cache deleted..." End If End Sub Private Sub Form_Resize() List1.Top = 0 List1.Left = 0 List1.Width = Form1.Width - 100 List1.Height = Form1.Height - 320 End Sub ' ---------------------------------------------FINI 'celui ci dans le module de classe: '-------------------------------MODULE DE CLASSE 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 '----------------------------------FINI MODULE CLASSE en fait ma codification a consister a empecher la purge de la cache ... en la mettant en remarque donc pour ceux que ca interesse c'est dedans ;-) voila ca doit fonctionner .... lors du lancemant le programme demmande de vider la cache, on choisi NON et on a la liste de toutes les URL visitee (image ...) il est judicieux de mettre le listbox en Sorted=true c'est plus lisible ... bon et appres il ne te reste plusqu'a fais ce que tu veux avec ta liste de URL ... NB : je ne pence pas que les URL de navigation demmandee par un projet en VB serrais prise en conte dans la cache de IE ... en fait seul la cache d'internet explorer doit etre accessible ... si tu prefer la premiere methode dis le moi que je te donne des morceaux de code pour faire ca ;-) By TFlorian.

MorpionMx · Answer

Ok,  je vais regarder tout ca
Merci beaucoup !

a++
Mx

URL dans Internet Explorer

2 réponses

Discussions similaires