Récupérer les Images du WebBrowser

Comme d'hab qui creuse assez longtemps trouve...

Voilà j'ai écris cette petite fonction
On passe en paramètre:
Le nom du webBrowser pour lequel on souhaite copier les images
Le dossier dans lequel on souhaite copier ces images

La fonction retourne une hashTable contenant comme clé le nom de fichier local et comme valeur l'url originale de l'image

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Function GetWebBrowserImagesFromCache(ByVal WB As WebBrowser, ByVal DestDir As String) As Hashtable
 
        Dim OutTable As New Hashtable
        Dim images As String() = GetWebBrowserImagesUrl(WB, "All")
        Dim wc = New System.Net.WebClient()
        Dim imageName As String = ""
        Dim tmpStrs As String()
        Dim imageExt As String = ""
        Dim imgCnt As Integer = 0
        Dim newImgName As String = ""
 
 
        'ICI ON INDIQUE DE SE SERVIR DANS LE CACHE SEULEMENT
        wc.CachePolicy = New Net.Cache.RequestCachePolicy(Net.Cache.RequestCacheLevel.CacheOnly)
        For Each src As String In images
            tmpStrs = Split(src, "/")
            imageName = tmpStrs(tmpStrs.Count - 1)
            tmpStrs = Split(imageName, ".")
            If tmpStrs.Count > 0 Then
                imageExt = tmpStrs(tmpStrs.Count - 1).ToLower
            Else
                imageExt = "ukn"
            End If
 
            'check for doubles
            If OutTable.Contains(src) Then
                'OutTable("src") = newImgName
            Else
 
                If imageExt = "jpg" Or imageExt = "gif" Or imageExt = "png" Then
 
                    newImgName = DestDir + "\" + "image." + addZeroToNumber(imgCnt.ToString, 5) + "." + imageExt
 
                    OutTable.Add(newImgName, src)
 
                    Try
                        wc.DownloadFile(src, newImgName)
                    Catch ex As Exception
                        MsgBox(ex.Message + vbLf + "could not read this image from cache: " & src, MsgBoxStyle.Information)
                    End Try
                    imgCnt = imgCnt + 1
 
                End If
            End If
 
        Next
 
        Return OutTable
 
 
    End Function

J'espère que ce petit code sera utile à quelqu'un...:ccool: