Bonjour,

Je souhaite récupérér les données issu d'une page web :
http://81.248.141.204:8002/index.html

Un tableau sur la droite indique les valeurs que je souhaite relire.

J'ai utilisé, il me semble les codes sources disponibles ici :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Public Sub closeInter()
    InternetCloseHandle (hSession)
End Sub
Sub test()
 
'getweblog("http://81.248.22.106:3232/","C:")
 
End Sub
 
 
Sub GetWeblog()
 
Dim url As String
Dim strFic As String
 
url = "http://81.248.22.106:3232/"
strFic = "d:\rien.txt"
 
    ' pointeur du lien lien
    Dim hUrlFile As Long
    Dim bBoucle As Boolean
    ' bloc de lecture par buffer 4 096 caractères
    Dim sReadBuf As String * 4096
    Dim OctetsLus As Long
    ' pointeurs des fichiers
    Dim localFile As Long
    ' chronométrage du temps d'exécution
    Dim t0 As Single, t1 As Single
 
    t0 = GetTickCount()
 
    ' ouverture des ressources de navigation internet
    openInter
 
    ' désignation d'un pointeur de fichier libre
    localFile = FreeFile
 
    ' si le fichier existe déjà on l'efface
    If Len(Dir(strFic)) > 0 Then Kill strFic
 
    ' ouverture du fichier en mode binaire
    Open strFic For Binary As #localFile
 
    ' ouverture de l'url
    hUrlFile = InternetOpenUrl(hSession, url, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
 
    bBoucle = True
    While bBoucle
        sReadBuf = ""
        ' lecture par bloc de 4096 caractères
        bBoucle = InternetReadFile(hUrlFile, sReadBuf, 4096&, OctetsLus)
        ' écriture par bloc dans le fichier local
        Put #localFile, , Left(sReadBuf, OctetsLus)
        If OctetsLus = 0 Then bBoucle = False
        DoEvents
    Wend
    ' fermeture du fichier local
    Close #localFile
    ' fermeture des ressources de navigation
    closeInter
 
    t1 = GetTickCount()
    Debug.Print "téléchargement du xml : "; Format((t1 - t0) / 1000, "0.000") & " s"
 
    ' parsing XML du fichier nous verrons ce point plus tard dans l'article
    'xmlParser strFic
 
End Sub
Hors je ne reçois vraiment qu'une partie du code source de la page, je ne comprends pas..
Ou je ne comprends pas le découpage de la page web.
Lorsque dans l'espion de variable, je regarde l'objet Html récupérer, je ne vois vraiment nulle part les données qui m’intéresse.

Le résultat de d:\rien.text est le suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
 
<html>
    <head>
        <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
        <title>Sunny WebBox</title>
    </head>
    <frameset rows="75,*,22" frameborder="no" border="2" framespacing="0">
        <frame src="top.htm" name="topFrame" scrolling="NO" topmargin="0" leftmargin="0" marginheight="0"
            marginwidth="0" noresize>
        <frame src="home_frameset.htm" name="mainFrame" topmargin="0" leftmargin="0" marginheight="0"
            marginwidth="0">
        <frame src="bottom.htm" name="bottomFrame" scrolling="NO" topmargin="0" leftmargin="0"
            marginheight="0" marginwidth="0" noresize>
    </frameset>
</html>
Je cherche depuis hier, et je ne vois vraiment rien, quelque chose doit m'échapper.
Hors lors de la lecture du code source depuis IE, je vois bien tout ce qui m’intéresse...


Please Help :o